Punkte auf Form wie bei Delphi zur Designzeit

[himitsu]

Ist do klar, weil da 99-mal soviele Punkte wie nötig gezeichnet werden.
wenn den Fenster eine Größe von z.B. 100 x 200 Pixeln hat, denn wird der letzte Punkt (unten rechts) an der Position 1000 x 2000 (100*10 x 200x10) gezeichnet

Delphi-Quellcode:

for y := 0 to Height do 
  for x := 0 to Width do 
  begin 
    Canvas.Pixels[x * 10, y * 10] := clBlack; 
  end;

so wäre es besser:

Code:

for y := 0 to Height [color=red]div 10[/color] do 
  for x := 0 to Width [color=red]div 10[/color] do 
  begin 
    Canvas.Pixels[x * 10, y * 10] := clBlack; 
  end;