Kästchen am Bildschirm zeichnen

**n00b_on_knees**

Hallo.

Ich soll Kästchen in einer Paintbox zeichnen. Gibt es eine andere Lösung als diese dafür? Eine bessere? Einfachere? Bitte immer her mit euren Vorschlägen.
Das Programm soll zufällig Kästchen am Bildschirm darstellen..das ganze mit einer Liste, wie man weiter unten erkennt.

zusammenfalten · markieren

Delphi-Quellcode:

			constructor TControler.Create(N: integer; pb: TPaintbox);

var 

  i : integer;

  new : TBug;

begin

  FSize := 10;

  FN := N;

  Fpb := pb;

  FList := TBugList.Create;

  for i := 0 to N-1 do

  begin

    new := TBug.Create(random(width),random(height),FSize,random(256*256*256),clBtnFace,pb.canvas);

    FList.Add(new);

  end;

end;

mfg

Kästchen am Bildschirm zeichnen

Kästchen am Bildschirm zeichnen

Forumregeln