Hi. arbeite daserste mal mit canvas. soll jetzt ne figur (in diesem falle zur vereinfachunf nur ein rechteck) zufällig zeichnen lassen. dazu habe ich jetzt folgenden code geschrieben:
Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);
var x:integer;
var y:integer;
var Breite:integer;
var Hoehe:integer;
begin
x:=random(450);
y:=random(300);
Breite:=x + random(120);
Hoehe:=y + random(150);
ImBild.Canvas.Rectangle(x,y,Breite,Hoehe);
end;
wenn ich jetzt auf button 2 (caption: RANDOM PAINT!) klicke, passiert gar nichts. warum?
ich habe mir schon gedacht, dass die zufallskoordinaten den punktes rechts unten möglicherweise kleiner sind, also über dem ausgangspunkt (x/y) liegen, deshalb habe ich halt
Delphi-Quellcode:
Breite:=[b]x[/b] + random(120);
Hoehe:=[b]y[/b] + random(150);
eingebaut. bringt aber auch nichts