drawgrid linien stärker zeichnen

[transporter2]

ich würde gern wissen wie man bei einer drawgrid von den zellinhalten bestimmte linien dicker
zeichnen kann. also zum beispiel soll jede 5.linie dicker sein. wie bei millimeterpapier.

[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;

[transporter2]

passiert nichts jede linie bleibt gleich dick.

[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;

[transporter2]

immer noch gleich

[Joe24]

Bei mir funktioneiert es.
Jede 5 Spalte wird eine dickere Linie gezeichnet, vorausgesetzt TDrawGrid-Objekt hat mehr als 5 Spalten.

Sind die Linien deines TDrawGrid-Objekt bereits breiter als 1 pt?
Die Ereignisbehandlungsmethode must du natürlich noch an deine Anfordeungen anpassen (Farbe, Linienbreite).
Ist Ereignisbehandlungsmethode über das entsprechende OnDrawCell-Event auch registriert?

[transporter2]

Wie kann mann Linien Waagerecht verschieben???

[Joe24]

Wie meinst du das mit "waagerecht verschieben"?

Wenn du die Höhe der einzelnen Zeilen meinst,
dann alle Zeilen einheitlich mit DefaultRowHeight oder
individuell mit RowHeights[Index: Longint].
Analog dazu gilt DefaultColHeight, ColHeights[Index: Longint]
für die Spalten.