Форум: "Базы";
Поиск по всему сайту: 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.015 c
3-90220           vic910                2001-12-07 01:11  2002.01.28  
одновременная запись в Paradox несколькими клиентами


1-90245           LakeMan               2002-01-09 12:00  2002.01.28  
компонент TCrpe. Помогите пожалуйста


3-90230           Mr.Sane               2001-12-25 10:45  2002.01.28  
SQL


3-90194           Грифон                2001-12-23 11:33  2002.01.28  
SQL


1-90312           tovSuhov              2002-01-11 13:43  2002.01.28  
Люди, помогите!!!