StringGrid - dickere Trennspalte

[CaptainAwsome]

ok danke habs hinbekommen =D

Delphi-Quellcode:

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
if (ARow = 2) or (ARow = 5) then

  with StringGrid1.Canvas do
  begin
    Pen.Color := clBlack;
    Pen.Width := 2;
    Pen.Style := psSolid;

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



if (ACol = 2) or (ACol = 5) then

  with StringGrid1.Canvas do
  begin
    Pen.Color := clBlack;
    Pen.Width := 2;
    Pen.Style := psSolid;

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