-
Forum: Multimedia
Delphi
by mimi,
23. Dez 2006
das mach ich gerne... aber ich muss im moment was andres machen... was nicht mit programmieren zu tuen hat(leider.....)
-
Forum: Multimedia
Delphi
by mimi,
23. Dez 2006
naja ich kann ja versuchen beide versionen zu benutzen bzw. zum laufen zu bringen..
ich wüßste schon gerne was an der ersten version falsch ist !
-
Forum: Multimedia
Delphi
by mimi,
23. Dez 2006
also folgende:
sobalt ich mehre objekte paltze und dein code ausprobiere
habe ich das problem das ich nur noch ein object und die line auswählen kann aller andren objekte sind dann "tod"
-
Forum: Multimedia
Delphi
by mimi,
23. Dez 2006
jetzt geht ihr müst einfach in der zeile
if (GetLineClickA(position.x,position.y,size.x,size.y,x,y) = true) then das pindex - 1
rauß nehmen. das hatte ich zum testen drin...
aufjedenfall geht es jetzt.. . mit" idontwantaname's" lösung !
vielen dank für eure hilfe !
-
Forum: Multimedia
Delphi
by mimi,
23. Dez 2006
ich habe jetzt nochmal" idontwantaname" lösung probiert !
Sie läuft besser als "flossinger" lösung allerdins habe ich dennoch ein problem:
ich habe eine obj was auf ein andres liegt z.b.
eine line liegt auf ein viereck dann wird die line nicht mehr erkannt:
function GetLineClickA(x1,y1,x2,y2,x3,y3:Integer):Boolean;
var
// Gegeben
A: TPoint; // Punkt der Geraden
B: TPoint; // Punkt...
-
Forum: Multimedia
Delphi
by mimi,
23. Dez 2006
ich habe versucht draus eine funktion zu entwicklen.
function GetLineClick(x1,y1,x2,y2:Integer):Boolean;
var
dxa,dya,dxb,dyb,x,y,x4,y4:Integer;
begin
dxa:=x2-x1;
dya:=y2-y1;
x4:=x3+(y2-y1);
y4:=y3-(x2-x1);
-
Forum: Multimedia
Delphi
by mimi,
22. Dez 2006
gut dann wollen wir mal fragen.
Tut mir leid das ich erst jetzt antworte: habe die frage aus den augen verloren :?
also ich habe eine frage hierzu:
dxa:=x2-x1; // MoveTo
dya:=y2-y1;// MoveTo
dxb:=x4-x3; // line to
dyb:=y4-y3; // line to ?
-
Forum: Multimedia
Delphi
by mimi,
12. Nov 2006
@flossinger
könntes du bitte ein beispiel machen
weil so ganz verstehe ich das noch nicht...
ich werde heute mal im internet nach einer seite suchen wo Geometry mit dem computer verbunden ist!
-
Forum: Multimedia
Delphi
by mimi,
10. Nov 2006
hier habe ich letzten ein code geschrieben(abgeschrieben aus einem buch und leicht angepasst):
for i:=0 to High(obj) do begin
with obj do begin
xWeg:=zx-px; yWeg:=zy-py;
strecke:=Sqrt(Sqr(xweg)+Sqr(yweg));
schritte:=Strecke /1;
xdiff:=Xweg / Schritte; ydiff:=yweg / Schritte;
-
Forum: Multimedia
Delphi
by mimi,
10. Nov 2006
vielen dank für eure hilfe. aber leider verstehe ich nicht viel von geometry. nur das einfachsts.
Ich weiß z.b. wie ich eine line zeichnen kann(also selbst ohne lineTo und MoveTo) und wie ich eine collision auf ein rechteck prüfen kann... mehr leider nicht...
kenntst du oder einer von euch eine seite wo "computer geometry" beschrieben wird ?
(in einfachen worten gefasst) und halt auf...
-
Forum: Multimedia
Delphi
by mimi,
10. Nov 2006
wenn ich dich recht verstehe müste ich folgendes schreiben um zu testen ob ein line angeklickt wurden ist oder nicht:
if (X1 div Y1) = (x2 div y2) then
ist makiert
else
nichtmakiert
problem dabei ist nur das meine ursprungs position nicht bei 0,0 ist sondern irgenwo auf dem monitor müste ich das dann noch verändern ?
:Muetze1
das verstehe ich nicht was du meinst.....
-
Forum: Multimedia
Delphi
by mimi,
9. Nov 2006
so einfach geht das leider nicht. ich möchte ein grafik programm schreiben wo verschiende objekte auf ein hintergrund sein können und das geht soweit.
wie ich sowas mit rechtecken mache weiß ich..... nur halt mit linen weiß ich das leider nicht :( :(
-
Forum: Multimedia
Delphi
by mimi,
9. Nov 2006
Hallo,
seit stundne versuche ich eine lösung zu finden wie ich checken kann ob auf eine line geklick wurden ist oder nicht.
z.b.
start:33,26
colli:74,67
end:96,86
wie kann ich am besten prüfen ob der colli(der klick punkt) auf dieser line steht oder nicht... ich habe mir bei wikipedia was durchgelesen aber das verstehe ich leider nicht, weil es in mahte geschrieben ist(ist anscheind eine...