[AndreSoft]

I have the following code to paint the cells in a dbgrid with a condition function DrawDataCell

if table.FieldByName if ('XXX'). Value = 'XX' then

begin

DBGrid1.Canvas.Font.Color: = clBlack;

DBGrid1.Canvas.Brush.Color: = clRed;

DBGrid1.Canvas.Font.Style: = [fsBold];

end;

DBGrid1.DefaultDrawDataCell (Rect, Field, State);

In a standard Delphi DBGrid it works normally. In the component TsDBGrid (AlphaD:cool: cells are not painted. How can I do this?

[Support]

Hello

I have made a test-application, but problem not exists here.

Can you help me with reproducing please?

[AndreSoft]

Hello

It works correctly when they are all fields in the DBGrid. If I edit some columns, they no longer work. My project has published several columns in which case they do not work

http://www.youtube.com/watch?v=mCBFhL-qPoM

[Support]

You should use the OnDrawColumn event in this case.

Standard grid have same behaviour.

[Author]

Posts