Narazil jsem zřejmě na chybu v XE2 (D2007 ani 10.4.2 to nedělají).
Na levé straně buňky zůstane asi 2 pixely nevykresleno podkladovou barvou.
Nejlépe je to vidět na přiloženém obrazku
Potřebuji to nějak obejít - přechod na 10.4.2 je až to poslední řešení
DrawGrid nemohu použít - potřebuji totiž Objects
procedure TFoPlanSmen.GridHarmongramTxtDrawCell(Sender: TObject; ACol, ARow: Integer; Rect: TRect;
State: TGridDrawState);
begin
with TStringGrid(Sender) do
begin
Canvas.Brush.Color := clLime ;
Canvas.FillRect(Rect);
end;
end;