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?