Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.08.29;
Скачать: CL | DM;

Вниз

Работа с компонентом StringGrid   Найти похожие ветки 

 
Nikson ©   (2002-08-12 12:55) [0]

Ответьте, пожалуйста, на глупый вопрос - для выделения группы ячеек в компоненте StringGrid другим цветом создаю тип TGridrect:
type TGridCoord = record
X: Longint;
Y: Longint;

end;
type TGridRect = record

case Integer of
0: (Left, Top, Right, Bottom: Longint);
1: (TopLeft, BottomRight: TGridCoord);
end;

property Selection: TGridRect;

но компилятор ругается на строчку:
property Selection: TGridRect;
мол ожидается Declaration а найдено PROPERTY.
Далее программа имеет вид:
procedure TForm3.Button1Click(Sender: TObject);
var
myRect: TGridRect;
begin
myRect.Left := 3;
myRect.Top := 1;
myRect.Right := 2;
myRect.Bottom := 4;
Form4.StringGrid1.Selection := myRect;
end;
компилятор указывает на несоответствие типов в строке:
Form4.StringGrid1.Selection := myRect;
В чем тут дело?


 
Skier ©   (2002-08-12 13:00) [1]

>Nikson
Если ты так прямо и пишешь property Selection: TGridRect;
(не в классе) то - ЧЕГО ЖЕ ТЫ ХОТИШЬ от Delphi !?


 
Nikson ©   (2002-08-15 11:56) [2]

Возможно ли как нибудь переопределить свойство Selection в классе TStringGrid или просмотреть код этого класса


 
Skier ©   (2002-08-15 12:02) [3]

>Nikson



> ...переопределить свойство Selection


Нет. Т.к. GetSelection и SetSelection "лежат"
в разделе private.


> или просмотреть код этого класса


VCL вообще-то поставляется и исходными текстами :)


 
Nikson ©   (2002-08-15 13:46) [4]

Тогда получается невозможно привести в соответствие типы в строке:
Form4.StringGrid1.Selection := myRect;


 
Skier ©   (2002-08-15 13:53) [5]

>Nikson

Свой TGridRect удали не нужен он...
или так (если не удалять) :


procedure TForm1.Button2Click(Sender: TObject);
var
myRect: Grids.TGridRect;
begin
myRect.Left := 3;
myRect.Top := 1;
myRect.Right := 2;
myRect.Bottom := 4;
StringGrid1.Selection := myRect;
end;


 
Nikson ©   (2002-08-15 14:04) [6]

Спасибо Skier!!!
Однако еще вопрос в перввоначальной версии у меня никакого TGridRect не было и компилятор на строку:
myRect: TGridRect;
говорил мол TGridRect - неизвестный тип


 
Skier ©   (2002-08-15 14:07) [7]

>Nikson
Покажи код перввоначальной версии...


 
Nikson ©   (2002-08-15 15:40) [8]

Извини, Skier,что морочил тебе голову, просто я по глупости в uses забыл прописать Grids, а теперьо все нормально тип TgridRect действительно нафиг не нужен


 
Skier ©   (2002-08-15 15:42) [9]

>Nikson
Бывает :)


 
Nikson ©   (2002-08-17 12:52) [10]

>Skier
Возможно ли оставить некоторую область выделенной при изменении фокусировки?


 
sudiv ©   (2002-08-17 13:30) [11]

Некоторая область определяется какими-то условиями,
определяй и OnDrawDataCell если не ошибаюсь.



Страницы: 1 вся ветка

Текущий архив: 2002.08.29;
Скачать: CL | DM;

Наверх




Память: 0.49 MB
Время: 0.011 c
3-95673
nic418
2002-08-08 04:12
2002.08.29
Выборка из 2-х таблиц по условию


3-95642
Guerrillero Che
2002-08-07 15:25
2002.08.29
НД


1-95758
CashDi
2002-08-19 13:21
2002.08.29
регулярные выражения


1-95828
Brand
2002-08-17 00:05
2002.08.29
Как поступить?


14-95969
Nox
2002-08-04 18:51
2002.08.29
<<<Помогите>>>