Punkte auf Form wie bei Delphi zur Designzeit

[shmia]

Warum einfach, wenn's auch umständlich geht ?

Delphi-Quellcode:

// umständlich
  x := 0; 
  y := 0; 
  Form4.Canvas.Pixels[x, y] := clBlack; 
  while y < Form4.Height do 

// einfach mit 2 verschachtelten For-Schleifen
  for y := 0 to Form4.Height [b]step 10 [/b]do
     for x := 0 to Form4.Width [b]step 10 [/b]do
     begin
        Form4.Canvas.Pixels[x, y] := clBlack;
     end;