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
--
_______________________________________________
Lazarus mailing list
[email protected]
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
