Рисование в заголовках DBGrid
chva © (2001-12-22 00:42:00)
Подскажите пожалуйста, как нарисовать картинки в заголовках
DBGrida. Я пытался разобраться как нечто подобное сделано в
RxDBGrig, но квалификация моя оставляет желать лучшего.
fester (2001-12-22 01:06:00) [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 когда надо перерисовать.
пока.
Наверх 
ЧАТ |
Орешник |
|
