Forum: Sonstige Fragen zu Delphi
Delphi
by ohkay,
26. Jun 2012
:-D:-D
danke für eure hilfe ich habe eine elegante lösung gefunden dank euch
:-D:-D
procedure Schnittpunkt(x1,y1,x2,y2,x3,y3,x4,y4:integer;var xs,ys:integer; var ok:boolean);
Forum: Sonstige Fragen zu Delphi
Delphi
by ohkay,
26. Jun 2012
danke für den ansatz un die bilder aber zeig mir mal bitte eine formel wie ich das mache
Forum: Sonstige Fragen zu Delphi
Delphi
by ohkay,
25. Jun 2012
also ich bin so weit (als neuling) gekommen
var
n,m,xmin,ymin,xmax,ymax:integer;
p1:boolean;
xp,yp:array of integer;
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
Forum: Sonstige Fragen zu Delphi
Delphi
by ohkay,
25. Jun 2012
Hey
ich sitze in ner Sackgasse Hilfe.
in Image:
Ich habe ein Rechteck welches Achsen-parallel durch (xmin,ymin) und (xmax,ymax) def. ist.
Nun setz ich Polygon punkte (belibig viel) und lasse diese Polygone dann in der Reinfolge verbinden.
jetzt kommt das problem, : jede der Polygonstrecken soll drauf untersucht werden ob sie das Rechteck schneiden wenn ja, soll der Schnittpunkt...