XProfan

- Seite 2 -

Jac
de
Lad

Also ich hab die Usermessage 16 vergeben, du dürftest wissen warum.

Laut Quelltext bzw. Hilfedatei ist meine Syntax korrekt.

Aaaaaber: Ich lade das Listview nicht in ein mit Create() erzeugtes Fenster sondern ins %hWnd. Ich ess jetzt erstmal Abendbrot, bin aber später wieder da!

Jac

Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP

Also wie gesagt der on(Event) ists egal was der Parent eines Controls ist - ob hwnd oder sonstwas ist Wurst.
Kompilieren Markieren Separieren

 {$Cleq}
 $U On.pcu = On.
Def Getsyscolor(1) !"User32","GetSysColor"
Declare Lb&,Dlg&
//unsichtbares Hauptfenster damit lecker messages angekommen
cls
//
Dlg&:=%hwnd
Lb& = Create("GridBox",Dlg&,"0;0;340;0;2;100",0,0,0,300,300)
Declare Onclose&,Onlklick&
Onclose&:=On.event("close" ,Dlg&)
Onlklick&:=On.event("lklick" ,Lb&)

While 1

    Waitinput
    Case %Umessage==Onclose& : Break
    Case %Umessage==Onlklick& : Messagebox "","",0

Wend

On.close
End

Da die on(Event) die Usermessages nutzt - und ein sauberes Programmieren mit den Usermessages nur möglich wäre mit einer UserMessage-Verwaltung, nutzt die onEvent die usermessages-Unit um die Usermessages zu verwalten. lol

Wenn Du also Usermessages selbst reinfummeln willst - dann solltest Du dies nur mithilfe der Usermessages-Unit tun.

Usermessage 16 z.B. brauchst Du garnicht setzen!

ein myClose&=Event(close,%hwnd) tut dies ja schon.

um mit der usermessage-unit eine usermessage hinzuzufügen (wie gesagt was du ja garnicht nötig hast da die onEvent dies alles selbst tut) kannst du um.add nehmen, fürs Entfernen einer einzelnen Usermessage (was ja nur die unit kann und nicht xprofan selbst) einfach um.sub

Hoffe hilft.

Jac
de
Lad

An der Usermessage liegts nicht. Das Beispiel, das du geliefert hast, hat den gleichen Effekt: Nur einmal funktionsfähig, danach Sense. Aber wie ich das sehe liegts wieder an mir. Im schlimmsten Fall werde ich dir den Quelltext mal vertraulich per PM zukommen lassen, damit du auch verzweifelst!

Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP

Jac
de
Lad

Ach ja, ich meinte übrigensimmer den Doppelklick (ldklick), aber das Ergebnis ist identisch...

Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP

Also bei meinem Beispiel von ebend kann ich X-Mal auf das LV klicken - die MSG box kommt jedes Mal. :S

Hast Du sicher die neuste Unit - und auch die Usermessages-Unit aktualisiert?

Jac
de
Lad

Wenn ich statt der aufgerufenen Funktion eine Messagebox einsetze gehts, also liegts an der aufgerufenen Funktion (vielleicht liegts daran, dass da ein Dialog erstellt wird?

) Ich forsche!

Noch ne Frage -> Welche Messages muss ich nehmen:
- Abfangen, wenn ein Scrollbalken bewegt wird.
- wenn ein Fenster bewegt wird
- wenn es den Fokus verliert/bekommt

Ich blicke bei den Messages nicht durch (trotz Konstantinopel; bei dem fänd ichs übrigens gut, wenn die Suche nicht nur am Anfang der Worte suchen würde).

Jac

Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP

Jac
de
Lad

Ich hab die neuste Version, ich arbeite dran!

Jac

Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP

Jac
de
Lad

Ich hab ne gute und ne schlechte Nachricht:

Dir gute ist, dass ich den Fehler gefunden habe:
Kompilieren Markieren Separieren

if Neq$(MCISend$("STATUS VIDEO MODE"),"stopped")

    MCISend$("STOP VIDEO")
    MCISend$("CLOSE VIDEO")

endif

Aus welchem Programm der Code stammt, ist ja klar. Aber warum das kollidiert, das ist die schlechte Nachricht, kann ich mir beim besten Willen nicht vorstellen.

Jac

PS: Bau doch eine Funktion ein On.IsEvent oder so, die automatisch mit %UMessage vergleicht:
Kompilieren Markieren Separieren

proc ?_IsMessage

    Parameters message&
    Return Equ(%UMessage,message&)

endproc

Ist nix besonderes aber ne Erleichterung!

Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP

Naja eigendlich sollste ja die %umessage mit einer SelectKonstellation prüfen...

Jac
de
Lad

Dann eben nicht, den Befehl kann ich mir auch selbst schreiben, sogar als einzeilige Funktion!

Haste ne Idee warum das kollidiert?
Und noch ne Idee wegen Styles (suche auch noch wegen Pfeiltasten in Listview, bzw. allgemein OnItemChange oder sowas...)

Jac

PS @Roland: Klappts denn jetzt?

Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP

Jac
de
Lad

Darf ich die DLL auch aus der Unit extrahieren und so mit ins Paket reinpacken und die Unit für mich entsprechend anpassen?

Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP

22.09.2006 ▲