Wow, das klingt ja gut!
Ich werde es testen (und Ergebnisse einstellen, falls erwünscht), vielen Dank!
//Edit:
Irgendwas mache ich wohl falsch
Habs mal in nem Timer probiert:
Delphi-Quellcode:
var
Form1: TForm1;
points1:
array [0..4]
of tpoint;
poly:hrgn;
dc:hdc;
hbr:hbrush;
[...]
procedure TForm1.Timer1Timer(Sender: TObject);
var
i:integer;
begin
dc:=GetDC(
Handle);
for i:=0
to 4
do
begin
points1[i]:=point(random(form1.clientWidth),random(form1.clientHeight));
end;
poly:=CreatePolygonRgn(points1,5,2);
fillrgn(
dc,poly,hbrush(
rgb(255,0,0)));
end;
Ich seh leider nichts auf dem Form. Wo mache ich da den Fehler?
//Edit2:
Zu früh aufgegeben... Jetzt hab ichs, danke euch
