Im Stringgrid eine Linie dicker als andere

[CenBells]

hi,

probier mal vor jedes Canvas noch dein Stringgrid zu schreiben

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