Главная страница
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.084 c
6-1084859339
Сергей12
2004-05-18 09:48
2004.07.18
Соединение Client Server


1-1089200259
Васька
2004-07-07 15:37
2004.07.18
Почта и интернет по щелчку


14-1088409304
anstrem
2004-06-28 11:55
2004.07.18
!!! Работа для программиста Delphi в Москве


3-1088182867
zokzok
2004-06-25 21:01
2004.07.18
ttable vs tquery


1-1088697879
ancara
2004-07-01 20:04
2004.07.18
Как бинарный файл в ресурсы засунуть?