Форум: "Базы";
Поиск по всему сайту: 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.03 c
7-90396           Nikolay               2001-10-18 21:50  2002.01.28  
Tic-tac-свежесть всего в двух калориях?


7-90398           Kirill_SKTS           2001-10-17 21:50  2002.01.28  
Добыть звук из звуковухи


3-90224           EternalWonderer       2001-12-24 17:20  2002.01.28  
Проблема с count(*) в joined запросе


4-90433           Alex870               2001-11-28 23:18  2002.01.28  
Привет апишники!


3-90221           grab                  2001-12-24 20:30  2002.01.28  
сохранение и открытие файлов в StringGrid