[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