[Lazarus] DBGrid.OnDrawColumnCell

[Luca Olivetti]

En/na Andrea Mauri ha escrit:
> Dear all,
> in my application I need to change the cell color of some cells in a 
> DBGrid.
> I use the OnDrawColumnCell event. My DBGrid name is dbgLoadings here the 
> OnDrawColumnCell event:
> 
> procedure TfrmPCA.dbgLoadingsDrawColumnCell(Sender: TObject; const Rect: 
> TRect;
>  DataCol: Integer; Column: TColumn; State: TGridDrawState);
> begin
>  if DataCol >= 2 then
>  begin
>     dbgLoadings.Canvas.Font.Color:= clWhite;
>     dbgLoadings.Canvas.Brush.Color:= clRed;
>  end;
>  if DataCol >= 2 then
>    dbgLoadings.DefaultDrawColumnCell
>      (Rect, DataCol, Column, State);
> end;
> 
> It does not work. The Font appears fuzzy coloured like if the white font 
> is written upon the original balck one. And the foreground of the cell 
> remain white.
> 
> Any hint?
> Regards,
> Andrea

I leave DefaultDrawing to true and use the OnPrepareCanvas event to do that.
See also
http://wiki.freepascal.org/Grids_Reference_Page


Bye
-- 
Luca Olivetti
Wetron Automatización S.A. http://www.wetron.es/
Tel. +34 93 5883004 (Ext.133)  Fax +34 93 5883007