it works, thanks!
andrea
Luca Olivetti ha scritto:
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
--
_______________________________________________
Lazarus mailing list
[email protected]
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
