Linien im Stringgrid ziehen

[Sharky]

Hai Hansa,

und wieder heist es: "selber zeichnen"

hier einmal ein Ansatz:

Delphi-Quellcode:

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  if (ACol > 0) and (ARow > 1) then
    begin
     with (Sender as TStringGrid) do
      begin
       if not ((ARow mod 2) = 0) then         //jede zweite Zeile berücksichtigen
        begin
         Canvas.Pen.Color := clRed;
         Canvas.Pen.Width := 3;
         Canvas.MoveTo(rect.Left,rect.Top);
         Canvas.LineTo(rect.Right,rect.Top)
        end;
      end;
    end;
end;

Da gibt es nur noch einen kleinen Schönheitsfehler wenn nach dem eine Zelle/Zeile den Fokus hatte nach oben geganen wird.
Irgenwie wird da ein Stück der Linie abgeschnitten.