drawgrid linien stärker zeichnen

[Joe24]

Entspricht das deinen Vorstellungen?

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, Top);
          LineTo( Left, Bottom);
        end;
end;