[Lazarus] DBGrid.OnDrawColumnCell
Andrea Mauri
andrea.mauri.75 at gmail.com
Thu Sep 17 20:06:30 CEST 2009
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
More information about the Lazarus
mailing list