Hi Leute,
ich hab 'nen StringGrid mit 7 Spalten. Die letzten beiden sollen sich jetzt von den ersten 5 abheben. Ich hatte gedacht, dass man einfach die Linie zwischen Spalte 5 und 6 dicker macht, als die anderen. hab aber keine ahnung wie das geht.
Falls aber einer von euch 'ne Alternative weiss, bin ich dankbar.

tia, read you gordon

hi,

es gibt ein event onDrawCell oder so ähnlich. Da kannst du dann bestimmen, wie die zellen gemalt werden und an deiner vorgesehenen stelle den rand dicker machen.

ich habe hier mal nen code, der in einem kalendar (oben waren die tage) die spalte des aktuellen tag dick eingerahmt hat. (links und rechts dick)

markieren

Delphi-Quellcode:

    if Acol > 0 then
      if EncodeDate(FYear, FMonth, ACol) = Date then begin
        Canvas.Pen.Color := clBlack;
        Canvas.Pen.Width := 2;
        Canvas.MoveTo(Rect.Left, Rect.Top); // links
        Canvas.LineTo(Rect.Left, Rect.Bottom);
        Canvas.MoveTo(Rect.Right, Rect.Top); //rechts
        Canvas.LineTo(Rect.Right, Rect.Bottom);
      end;

du musst halt nur die zeile mit dem encodedate anpassen und unten eine linie weniger zeichnen.

Gruß
Ken

Danke für die schnelle Antwort. Hab jetzt folgenden Code:

markieren

Delphi-Quellcode:

procedure StringGrid1.DrawCell(Sender: TObject; Acol, ARow : Integer;
Rect:TRect; State:TGridDrawState);
begin
if Acol = 4 then
   begin
   Canvas.Pen.Color:=clblack;
   Canvas.Pen.eidth:=3;
   Canvas.moveto(Rect.Left,Rect.Top);
   Canvas.Lineto(Rect.Left,Rect.Bottom);
   end;

Allerdings verstärkt er nicht die Linie im Stringgrid, sondern zeichnet eine Linie, die dann quasi vom Grid verdeckt wird. Was soll ich denn jetzt machen?

hi,

probier mal vor jedes Canvas noch dein Stringgrid zu schreiben

markieren

Delphi-Quellcode:

procedure StringGrid1.DrawCell(Sender: TObject; Acol, ARow : Integer;
Rect:TRect; State:TGridDrawState);
begin
if Acol = 4 then
   begin
   DeinGrid.Canvas.Pen.Color:=clblack;
   DeinGrid.Canvas.Pen.eidth:=3;
   DeinGrid.Canvas.moveto(Rect.Left,Rect.Top);
   DeinGrid.Canvas.Lineto(Rect.Left,Rect.Bottom);
   end;

hatte vergessen, daß in der funktion, aus der ich das genommen habe, am anfang der methode ein with Sender as TStringgrid do begin steht

Gruß
Ken

Danke! Mit StringGrid1.canvas.{etc}; geht es!