Font draw in customdraw in dbgid

[mikutu]

if set color in DBGrid1DrawColumnCell and call DefaultDrawColumnCell font draw another if not use custom draw. In picture attach up - standart draw, down - custom draw.

Code: Pascal  [Select][+][-]

1. procedure TfrmMain.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
2.   DataCol: Integer; Column: TColumn; State: TGridDrawState);
3. var
4.   x, y: integer;
5.   isSelect: boolean;
6. begin
7.   isSelect := ((gdFocused in State) or (gdSelected in State));
8.   if (not isSelect) then begin
9.     TDBGrid(Sender).Canvas.Font.Color := $00C04020;
10.     TDBGrid(Sender).DefaultDrawColumnCell(Rect, DataCol, Column, State);
11.   end;
12. end;
13.  

[jamie]

Use "OnPrepairCanvas" to set the font and colors prior to painting.

[mikutu]

thank you, it's work