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.
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