Forum: Multimedia
Delphi
by mimi,
2. Feb 2006
es muss doch ein grund geben warum das nicht funktioniert, oder etwa nicht ?
Forum: Multimedia
Delphi
by mimi,
30. Jan 2006
habe ich geändert überlappen sich leider immer noch teielweise:
function TForm1.CheckCollision(px,py,w,h,Index:Integer):Boolean;
var
o:Boolean;
z:Boolean;
begin
o:=False; z:=False;
z:=Kollision(rect(px,py,w,h));//GetItemIndex(px,py,w,h,index);
Forum: Multimedia
Delphi
by mimi,
30. Jan 2006
den wert 5 habe ich gewählt weil es egal ist wie oft die schleife ausgefürht wird.
Mache ich dies nicht hängt sich das Programm auf !
hier die funktion CheckCollision:
function TForm1.CheckCollision(px,py,w,h,Index:Integer):Boolean;
var
o:Boolean;
z:Boolean;
begin
o:=False; z:=False;
Forum: Multimedia
Delphi
by mimi,
30. Jan 2006
die Windows Funktion verwende ich bereits !
Deine Idee ist nicht schlecht. Nur ich weiß immer noch nicht warum sich die Rechecke überlappen :(
Forum: Multimedia
Delphi
by mimi,
29. Jan 2006
Hallo,
ich habe es mit meinem eignen code nicht und mit einem code aus disem forum auch nicht hinbekommen.
Ich möchte gerne das meine bilder zufällig auf ein TBitMap verteielt werden und dabei ist zu berücksichtigen:
Es darf kein andres Objekt auf der Position sein
Und es darf nicht auserhalb des angeben Rechteckes sein.
ich habe hier die proceduren und funktionen die dafür verantwortlich...