Форум: "Основная";
Текущий архив: 2002.08.29;
Скачать: [xml.tar.bz2];
Вниз
Работа с компонентом 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;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.011 c