Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 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.007 c
1-95881
Flasher
2002-08-18 12:01
2002.08.29
Plug-in s


1-95775
Zelius
2002-08-19 14:48
2002.08.29
Дайти, плиз, ссылку на продвинутый и работающий ListView!


6-95919
BlackSun
2002-06-18 17:39
2002.08.29
Как переслать по сети изображение?


1-95845
VID
2002-08-17 16:10
2002.08.29
Как реализовать подсветку заднего фона строки (RichEdit) ?


1-95893
skyslider
2002-08-18 15:29
2002.08.29
Не могу понять почему не работает . Хелп плиз!!!





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский