Layers für Zeichnungselemente?

[p. specht]

Ich bin ganz neidisch auf Systeme wie GeoGebra, wo man Linien zeichnen kann, die Enden mit der Maus anfassen und wegziehen. Ganz grün werde ich vor Neid, wenn das auch noch mit Highlighting per Mouseover funktioniert.
Bitte hat jemand Erfahrung mit Profan-Hauptfenstern und Layern?
Wie geht man das am besten an?

[iF_]

Ich weiss nicht, was Du mit "Layern" meinst.

Geht Deine Suche vlt. in Richtung http://dl.xprofan.com/?4942 bzw. http://dl.xprofan.com/?701 oder eher http://dl.xprofan.com/?3272 ?

[p. specht]

Vielen Dank, iF, ist aber alles viel zu Hightech für mich: Ich will eine Trennlinie in ein Hauptfenster zeichnen (eine Art Leselineal), die Enden packen und das Teil verschieben können, ohne daß das Ding auf seinem Weg andere Grafikelemente ruiniert. Da es innerhalb des Textfensters bleiben soll, fällt ein transparentes separates Fenster ohne Kopf und Rand aus.

Dachte daher, das geht mit Ebenen (engl. "Layer"), ähnlich wie im Internet-Browser, siehe Layer-Befehl. Wenn der IE das nämlich kann, dann sind in Windows doch bestimmt Funktionalitäten dazu vorbereitet - Aber denkste, nix gefunden. Photoshop verwendet jedenfalls Layer, AutoCad bis zu 1000 etc.

Jedenfalls danke für die Mühe!

P.S.: Wenn ich in die Nähe einer Linie komme, und die wird verstärkt dargestellt oder umgefärbt: Läuft da die ganze Zeit eine Schleife, die für die Linie testet, ob zufälig ein Mauscursor in der Nähe ist? Isjanding...

[Frabbing]

Eine simple, aber sehr flexible Methode ist sicher, die API DrawFocusRect zu benutzen, wie es das System auch macht.
Habe leider keinen Code parat.

[Frabbing]

Hab mal einen Anfang gemacht. Du kannst es ja nach deinen Wünschen erweitern.
Soweit ich weiss, kennt Windows aber auch echte markierte Objekte.

'
' © Frank Abbing
' für http://www.paules-pc-forum.de/forum/xprofan/
'
Def DrawFocusRect(2) !"user32","DrawFocusRect"
Def GetCursorPos(1) !"user32","GetCursorPos"
Def ScreenToClient(2) !"user32","ScreenToClient"

Declare x&,y&,rect#,z&
Dim rect#,16
Cls
UserMessages $200
While 1
WaitInput
Case %key=2:Break
If IsKey(1)
DrawFocusRect(%hdc,rect#)
GetCursorPos(rect#)
ScreenToClient(%hwnd,rect#)
Long rect#,8=Long(rect#,0),Long(rect#,4)
Long rect#,0=x&,y&
If Long(rect#,0)>Long(rect#,8)
z&=Long(rect#,8)
Long rect#,8=Long(rect#,0)
Long rect#,0=z&
EndIf
If Long(rect#,4)>Long(rect#,12)
z&=Long(rect#,12)
Long rect#,12=Long(rect#,4)
Long rect#,4=z&
EndIf
DrawFocusRect(%hdc,rect#)
Else
GetCursorPos(rect#)
ScreenToClient(%hwnd,rect#)
x&=Long(rect#,0)
y&=Long(rect#,4)
Long rect#,0=0,0,0,0
EndIf
Endwhile

[p. specht]

Erzeugt was Mondrian-artiges mit statischem Ameisen-Rand.
@Frank: Bitte was bewirkt ScreenToClient(%hwnd,rect#)?

[Frabbing]

Bitte was bewirkt ScreenToClient

Das bewirkt, dass Screenkoordinaten (ganzer Bildschirm) umgerechnet werden zu Fensterkoordinaten. GetCursPos() ermittelt die globale Mausposition, aber wir benötigen die Position innerhalb unseres Fenster, und darin oben links soll ja Position 0,0 liegen.
Die Usermessage sorgt dafür, dass unser WaitInput bei jeder Mausbewegung unterbrochen wird. Allerdings legt es auch %mousex und %mousey lahm. Darum verwende ich GetCursorPos, was global arbeitet. Das gleiche ich mit ScreenToClient aus.

Erzeugt was Mondrian-artiges mit statischem Ameisen-Rand.

Malt XOR-Linien. Leg mal ein Hintergrundbild auf das Fenster.
Du kannst zum Zeichnen auch FrameRect() mit einem beliebigen Brush benutzen.

[iF_]

@Peter: Ah, das meinst Du.

Hierzu dann vlt. auch interessant: ProLayout.dll - reboo.com

[iF_]

Zitat von p. specht

P.S.: Wenn ich in die Nähe einer Linie komme, und die wird verstärkt dargestellt oder umgefärbt: Läuft da die ganze Zeit eine Schleife, die für die Linie testet, ob zufälig ein Mauscursor in der Nähe ist? Isjanding...

Hängt von ab, ob Du mit Linie ein Control meinst welches (eh) wm_mouseMove empfangen könnte oder eine Zeichnung, bei der man wiederum einfach nur wm_mouseMove vom Parent nutzen könnte um per Mausposition in eine "Bitmaske" zu schauen, ob dort ein Stück Linie liegt. ^^

[Frabbing]

P.S.: Wenn ich in die Nähe einer Linie komme, und die wird verstärkt dargestellt oder umgefärbt: Läuft da die ganze Zeit eine Schleife, die für die Linie testet, ob zufälig ein Mauscursor in der Nähe ist? Isjanding...

So wie mein kleiner Code aufgebaut ist, wirst du nur eine Erkennung starten, wenn die Maus bewegt wurde.
Ich würde jede Ecke, bzw. Linienkoordinate in einer Tabelle listen. Du vergleichst dann, welche Ecke in der Tabelle dem Mauscursor am nächsten ist. Wenn die dichteste Ecke ermittelt ist, schaust du, ob dir die Distanz nah genug ist.

[p. specht]

Verstehe... sowas wie (x_element-x_mouse)²+(y_element-y_mouse)² <= d²

[Frabbing]

Abs(), aber nicht unbedingt zum Quadrat. So mache ich das zumindest immer und es funktioniert gut.

[THFR]

Ich hatte mit Franks ProSpeed Layertechnik angefangen,- z.B. Bildbereich ausschneiden, einen Sprite erzeugen, Ausschnitt einfügen-, und war mit dem Handling, in diesem Fall nur verschieben, zufrieden. Das Objekt war ja mit "MouseOverSprite (B,A,X,Y)" schnell gefunden.

Gruß Thomas

[p. specht]

Danke für den Hinweis. Sollte mich motivieren, nicht nur reines XProfan zu verwenden...

[THFR]

Wird sicher auch alles in reinem XProfan gehen > Sprites für OpenGL, usw.< , aber die Finessen aus Franks DLL alle selbst erstellen?
Gruß Thomas