Wie kann ich Linienfarbe in Stringgrid ändern?

[Helmi]

Zitat von Aurus:

Hallo Helmi

Wenn ich

Pen.Color := clBlack;
Pen.Width := 2;
Pen.Style := psSolid;

einsetze und die Werte ändere geht nichts mit dem Gitter.

Was meinst du mit "geht nichts mit dem Gitter"?

Zeig doch mal deinen Code.


[edit]
Ich hab hier mal etwas Code um alle Linien einzufärben:

Delphi-Quellcode:

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  if not (gdFixed in State) then
    begin
      with StringGrid1.Canvas do
        begin
          Pen.Color := clRed;
          Pen.Width := 2;
          Pen.Style := psSolid;

          MoveTo(Rect.left - 1, Rect.Bottom);
          Lineto(Rect.right - 1, Rect.Bottom);

          MoveTo(Rect.Right, Rect.Top);
          LineTo(Rect.right, Rect.Bottom);
        end;
    end;
end;

[/edit]