1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, 
  ARow: Integer; Rect: TRect; State: TGridDrawState);
begin
  if not Odd(ARow) and not (gdFixed in State) then
    with StringGrid1 do
    begin
      Canvas.Brush.Color := clyellow;
      Canvas.FillRect(Rect);
      Canvas.TextOut(Rect.Left+2, Rect.Top+2, Cells[ACol, ARow]);
    end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, 
  ARow: Integer; Rect: TRect; State: TGridDrawState);
var KorrRect: TRect;                     //eingefügt
begin
  if not Odd(ARow) and not (gdFixed in State) then
    with StringGrid1 do
    begin
        KorrRect := Rect;                //eingefügt
        KorrRect.Left:=Rect.Left-4;      //eingefügt, nur durch Korrektur -4 wird das gesamte Feld gefüllt
      Canvas.Brush.Color := clyellow;
      Canvas.FillRect(KorrRect);         //geändert
      Canvas.TextOut(Rect.Left+2, Rect.Top+2, Cells[ACol, ARow]);
    end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

begin
  if DefaultDrawing then
  begin
    if StyleServices.Enabled then
    begin
      ARect.Left := ARect.Left + 4;

      [...]

    end
    else
      Canvas.TextRect(ARect, ARect.Left+2, ARect.Top+2, Cells[ACol, ARow]);
  end;
  inherited DrawCell(ACol, ARow, ARect, AState);
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:

if DefaultDrawing then               // und kann erst compiliert werden mit Unit Vcl.Themes
  if StyleServices.Enabled then
    begin
      ARect.Left := ARect.Left + 4;  // unklar warum + 4, warum nicht - 4
  ...                                // steht ARect KorrRect ?

  inherited DrawCell(ACol, ARow, ARect, AState); //DrawCell (..) lässt sich nicht compilieren (unbekannt}
   // auch nicht StringGrid1.DrawCell(...
   // ARow, ACol, Rect, State sind Parameter von Stringgrid1Drawcell
   // nicht jedoch ARect und AState					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
{Zeilen ggf Einfärben und Spalte 4 rechtsbündig}
var c        : TColor;
    RectKorr : TRect;
begin  with StringGrid1 do begin  
//StringGrid2.TopRow:=StringGrid1.TopRow;   // synchroner Zeilenlauf nur von Grid 2 nach 1
  if Arow<=FixedRows then  exit;
  RectKorr:=Rect;
  RectKorr.Left:=Rect.Left-4;               // nur durch Korrektur -4 wird das gesamte Feld gefüllt
   if uppercase(Cells[0,ARow])='V' then c:=clyellow else
     if (Cells[0,ARow])='C' then c:=clLime  // von Grid1 nach Grid 2 copierte Datei
     else begin
      if not ((gdFixed in State) or (odd(ARow)))  //(Cells[0,ARow]='D')
        then c := clBtnFace   
        else c := clwhite;
     end;
  Canvas.Brush.Color := c;
  Canvas.FillRect(RectKorr);
  Canvas.TextOut (Rect.Left + 2, Rect.Top + 2, Cells [ACol, ARow]);

  if (gdSelected in state) then            // selektierte Zeile
    begin
      Canvas.Brush.Color := $FFCC99;       // skyBluTColor
      Canvas.FillRect(RectKorr);
      Canvas.TextOut(Rect.Left + 2, Rect.Top + 2, Cells[aCol, aRow]);
    end;
  if (ACol=4) and (Arow> StringGrid1.FixedRows) then //Spalte 4 rechtsbündig
    WriteTextAligned(TStringGrid(Sender).Canvas, Rect, taRightJustify, TStringGrid(Sender).Cells[Acol, ARow]);
end; end;					

1:
2:
3:

    {$IF CompilerVersion <= 33.0}
        KorrRect.Left := Rect.Left - 4;      //eingefügt, nur durch Korrektur -4 wird das gesamte Feld gefüllt
    {$IFEND}