Wie kann ich Linienfarbe in Stringgrid ändern?

[Aurus]

Hallo

Ich zeichne in StringGrid1DrawCell farbige Zellen. Doch leider kann ich die Linienfarbe nicht beeinflussen.

Zuerst dachte ich es hat beim Zeichnen mit der Umrandung zu tun. Also Pen.Color :=clRed;

Aber so ist es nicht.


Wie muss ich das machen dass ich die Linienfarbe ändern kann?


Gruss

Aurus

[Helmi]

schau mir hier: link

[Aurus]

Hallo Helmi

Wenn ich

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

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


Gruss

Aurus

[Helmi]

Zitat:

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]

[Lannes]

Hallo,

Zitat:

Zitat von Aurus

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

meinst du damit: "es werden keine Strings angezeigt"?
Die Strings müssen dann natürlich auch in OnDrawCell ausgegeben werden, z.B. mit TextOut.
Dort habe ich vor kurzem einen 3-Zeiler gepostet:
Re: TStringGrid: GridColor

[Aurus]

Danke für die Tipps


Gruss

Aurus