Color to cell grid! Problem in windows! (SOLVED)

[xinyiman]

procedure TForm1.Grid_RisultatoDrawCell(Sender: TObject; aCol, aRow: Integer; aRect: TRect; aState: TGridDrawState);
var
   P : Array[0..200] Of Char;
begin
     If {(aCol = 1) And }(aRow = 0) Then
        begin
             Grid_Risultato.Canvas.Brush.Color := clGray;
             Grid_Risultato.Canvas.Pen.Color := clGray;
             Grid_Risultato.Canvas.Font.Color := clYellow;
             Grid_Risultato.Canvas.Rectangle(aRect.Left, aRect.Top, aRect.Right, aRect.Bottom);
        end;
end;

Why this works in Linux makes the cells in the first row of the grid with a gray background and yellow writing on Windows XP and does not display anything but a blank rectangle?

[felipemdc]

Did you try with the latest Lazarus 0.9.29?

[xinyiman]

My Lazarus info

Version #: 0.9.29
Data: 2010-10-01
Versione FPC: 2.4.3
Revisione SVN: 27534
i386-win32-win32/win64

[bonmario]

Try this:

Code: [Select]

procedure TForm1.Grid_RisultatoPrepareCanvas(sender: TObject; aCol, aRow: Integer;
  aState: TGridDrawState);
var
   P : Array[0..200] Of Char;
begin
     If {(aCol = 1) And }(aRow = 0) Then
        begin
             Grid_Risultato.Canvas.Brush.Color := clGray;
             Grid_Risultato.Canvas.Font.Color := clYellow;
        end;
end;

Hi, Mario

[Ocye]

Canvas.Brush.Style should be set to bsSolid. On Windows the default seems to be bsClear.

[xinyiman]

Neither solution worked!

Help me please! 

[typo]

It works for me.

Lazarus 0.9.29 r24105 FPC 2.4.0 i386-win32-win32/win64

Windows XP.

[faber]

I think it's a bug in grids. It works only with older rev.

[faber]

try in this way

Code: [Select]

     if (aRow = 0) Then begin
        StringGrid1.Canvas.Font.Color := clYellow;
        StringGrid1.Canvas.Brush.Color := clGray;
        StringGrid1.DefaultDrawCell(ACol,ARow, ARect, AState);
     end;

[xinyiman]

try in this way

Code: [Select]

     if (aRow = 0) Then begin
        StringGrid1.Canvas.Font.Color := clYellow;
        StringGrid1.Canvas.Brush.Color := clGray;
        StringGrid1.DefaultDrawCell(ACol,ARow, ARect, AState);
     end;

Thank you. Is correct!