Главная страница
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.012 c
3-95680
Aleksandr
2002-08-08 14:26
2002.08.29
При добавке индекса к таблице ругается...


1-95743
Alex
2002-08-18 23:50
2002.08.29
Помогите разобраться!!!


14-95947
TTCustomDelphiMaster
2002-08-03 16:09
2002.08.29
Проблема с XP


14-95965
Socol
2002-08-04 11:11
2002.08.29
Исходники


14-95946
Cola
2002-07-27 21:47
2002.08.29
Как ИМЕННО беспла зарегестрировать EhLib.