Форум: "Базы";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.28;
Скачать: [xml.tar.bz2];




Вниз

Рисование в заголовках DBGrid 


chva   (2001-12-22 00:42) [0]

Подскажите пожалуйста, как нарисовать картинки в заголовках DBGrida. Я пытался разобраться как нечто подобное сделано в RxDBGrig, но квалификация моя оставляет желать лучшего.



fester   (2001-12-22 01:06) [1]

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
if datacol=numrcol then
imagelist1.Draw(dbgrid1.Canvas,rect.Right-imagelist1.width,0,numkart);
end;

///я сделал так-все работает
здесь: numcol-номер столбца, numkart- номер картинки в imagelist
да и не забудь dbgrid.refresh когда надо перерисовать. пока.




Форум: "Базы";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.28;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.033 c
14-90354          Semen                 2001-11-21 10:42  2002.01.28  
Отслеживание питания


7-90404           Лана Розанова         2001-10-16 11:35  2002.01.28  
Какое разрешение?


3-90216           OlegD                 2001-12-24 18:45  2002.01.28  
ADO table


6-90335           Layet                 2001-11-07 08:13  2002.01.28  
TClientSocket


1-90326           Satrap                2002-01-06 11:56  2002.01.28  
особенности WndProc