Форум: "Базы";
Поиск по всему сайту: 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.71 MB
Время: 0.039 c
14-90384          mashinist             2001-12-02 23:49  2002.01.28  
Отрубить Инет


1-90295           Стас                  2002-01-09 11:28  2002.01.28  
Где достать?


4-90441           Leviathan             2001-11-26 23:03  2002.01.28  
Поймать выключение чужой программы


4-90431           Andrey Mihaylov       2001-11-30 01:38  2002.01.28  
Несколько вопросов о сервисах..... (((


14-90372          Digitman              2001-12-03 15:27  2002.01.28  
Win32.Invictus + I-Warm.Toil !!!!!!!!!