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

Вниз

Текущая запись при раcкраске dbgrida   Найти похожие ветки 

 
dim- ©   (2004-06-21 02:45) [0]

Вставляю картинку в DBGrid:
procedure Tmain.RxDBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
 DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if DataCol=0 then begin
   if  gdSelected in State then begin
       if (DataModule1.spisok.FieldByName("podr").AsBoolean)then
     ImageList1.Draw(TRxDBGrid(Sender).Canvas,Rect.Left+1,Rect.Top+1, 5 );
   end else begin
       if (DataModule1.spisok.FieldByName("podr").AsBoolean)then
     ImageList1.Draw(TRxDBGrid(Sender).Canvas,Rect.Left+1,Rect.Top+1, 1);
   end;
end;

Все работает, только хотелось бы у текущей записи рисовать другую картинку. Свойство State дает результат только если стоишь непосредственно на первой колонке (в моем случае), а хотелось бы знать что данная запись активна не зависимо на какой колонке стоишь.


 
ЮЮ ©   (2004-06-21 03:49) [1]

Надо анализировать не State, а сравнивать значения ключевого поля рисуемой записи и текущей. (Значение ключевого поля текущей записи можно, например, сохранить в DataSet.Tag в AftrerSсroll последнего)



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

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

Наверх




Память: 0.46 MB
Время: 0.044 c
1-1089101589
Сергей_И
2004-07-06 12:13
2004.07.18
StringGrid удаление, вставка строк


14-1088102829
Knight
2004-06-24 22:47
2004.07.18
Моторола C350... что, правда, брать не стоит?


3-1087809669
xmrz
2004-06-21 13:21
2004.07.18
MS SQL 7.0 DST пакет - не запускается через Job


14-1088325039
_student
2004-06-27 12:30
2004.07.18
Нужно при щелчке на рабочем столе вывести звезду


3-1087805551
Yurko
2004-06-21 12:12
2004.07.18
Сравнение таблиц (помогите составить запрос)