drawgrid linien stärker zeichnen

[Dax]

Und so?

Delphi-Quellcode:

procedure TForm1.DrawGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  if (aCol mod 5) = 0 then
    with DrawGrid1.Canvas do
      with Rect do
        begin
          MoveTo(Left+1, Top);
          LineTo(Left+1, Bottom);
        end;
end;