For-Schleife mit Canvas umsetzten

[DeddyH]

Verstehe ich nicht. Willst Du eine fixe Strichanzahl mit variablem Abstand oder einen fixen Abstand mit variabler Strichanzahl? Andere Kombinationen erscheinen mir ziemlich sinnfrei.
[edit] Kleines Beispiel: ein Formular (TForm29 in diesem Fall), OnPaint und OnResize sind diese Methoden zugewiesen.

Delphi-Quellcode:

procedure TForm29.FormPaint(Sender: TObject);
const
  ANZ_STRICHE = 20;
var
  Abstand: double;
  i, X: integer;
begin
  Abstand := ClientWidth / (ANZ_STRICHE + 1);
  for i := 1 to ANZ_STRICHE do
    begin
      X := round(Abstand * i);
      Canvas.MoveTo(X, ClientHeight);
      Canvas.LineTo(X, ClientHeight - 20);
    end;
end;

procedure TForm29.FormResize(Sender: TObject);
begin
  Invalidate;
end;

Soll es ungefähr darauf hinauslaufen?[/edit]