Forum: Multimedia
Delphi
by 1ceman,
21. Dez 2005
so habs endlich geschafft:
if ssShift in Shift
then begin
H.X:=X-SP.X;
H.Y:=Y-SP.Y;
if ((H.X<0) and (H.Y<0)) or ((H.X>0) and (H.Y>0))
then begin
if (abs(H.X)<=abs(H.Y))
then begin
Forum: Multimedia
Delphi
by 1ceman,
21. Dez 2005
schade, geht doch nicht so richtig.
guck dir nochmal das Bild an ,was ich geuppt habe, ich will ja nicht, das er immer wenn er im Quadranten 2 z.b ist,
das er dann dort ne linie im 45° Winkel zur y-Achse macht, sondern wenn der Cursor im grünen Bereich ist soll er ne senkrechte Linie zum roten Punkt zeichen und wenn er im orangen(gelben) bereich ist, soll er die schwarze Linie zeichnen, die an...
Forum: Multimedia
Delphi
by 1ceman,
21. Dez 2005
habs zwar noch net getestet, nur mal so theoretisch überlegt und müsste eigentlich gehen
schonmal vielen Danke und ist echt ne fette idee.
werds direkt mal einbauen.
Forum: Multimedia
Delphi
by 1ceman,
21. Dez 2005
meinst du das so, das man einfach sagt, das der Startpnukt der Ursprung ist??
//Edit: du hast dich auch mit den Quadranten ein bissl vertan, unten bei der Abfrage müssen
3 und 4 vertauscht werden(ist aber net so schlimm).
Forum: Multimedia
Delphi
by 1ceman,
21. Dez 2005
so ich hab mal eben nen bild gemacht.
der Rote Punkt ist der Startpunkt.
der linke rand des Bildes ist die Y-Achse und der obere die X-Achse.
die schwarzen Linien zeigen die Linien, die bei gedrückter shift Taste nur gezeichnet werden dürfen.
und die blaue linie ist ein beispiel für die Linie die als trennung dient, um zu sagen, in welchem
Bereich welche Linie gezeichnet werden soll....
Forum: Multimedia
Delphi
by 1ceman,
21. Dez 2005
Ich hab nen kleines GrafikProgramm geschrieben, mit dem man Linien,Dreiecke,Rechtecke,Quadrate,
Ellipsen usw. zeichnen kann.Man kann die Objekte so aufziehen, also man sieht immer wie die Linie oder so
aussieht, während man sie zieht. So jetzt möchte ich, das wenn man shift drückt, während man nen Linie zieht,
dass die Linien nur um 45° Winkel gezeichnet werden(so wie bei Photoshop).
Das...