Рисование в заголовках 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 когда надо перерисовать. пока.

Рисование в заголовках DBGrid Найти похожие ветки