| |
|
|
| Das Trackmenu - si yo mich bastante erinnere - war el Procedimiento siempre sólo brauchbar solange uno en el hwnd arbeitet, simplemente wegen el Positionsangabe.
Mein Vorschlag, si Trackmenu no Parámetro bekommt, entonces el Trackmenu a Mausposition redactar.
Mittlerweile Tuve me esta una Proc geschrieben, aber mich sí trotzdem Jahrelang gequält (P²4.5=>P7) y así se otro no ebenso quälen... KompilierenMarcaSeparación
Proc Trackmenu_bymousepos
Declare Gmp#,Dx&,Dy&
Dim Gmp#,8
External("user32","ClientToScreen",%Hwnd,Gmp#)
Dx&=Long(Gmp#,0)
Dy&=Long(Gmp#,4)
External("user32","GetCursorPos",Gmp#)
Trackmenu (Long(Gmp#,0)-Dx&),(Long(Gmp#,4)-Dy&)
Dispose Gmp#
oc
|
|
|
| |
|
|
|
Jörg Sellmeyer | Dann wünsch Yo todavía Listen en denen el Abfangen des sekundären Mausklicks auch wirklich funktioniert! |
|
|
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 08.09.2006 ▲ |
|
|
|
|
| Es eigendlich überhaupt kein Hit - vorrausgesetzt fastmode - y Dank EasyVent.Dll auch kein Hit en el no-fastmode. |
|
|
| |
|
|
|
| Ebensowichtig, Trackmenü como Función así el %menuitem no ständig durchgeschliffen se: KompilierenMarcaSeparación
Proc Trackmenu_bymousepos
Declare Gmp#,Dx&,Dy&,item&
Dim Gmp#,8
External("user32","ClientToScreen",%Hwnd,Gmp#)
Dx&=Long(Gmp#,0)
Dy&=Long(Gmp#,4)
External("user32","GetCursorPos",Gmp#)
Trackmenu (Long(Gmp#,0)-Dx&),(Long(Gmp#,4)-Dy&)
item&:=%menuitem
setmenuitem 0
Dispose Gmp#
return item&
Endproc
declare mitem&
cls
createmenu
appendmenu 100,"lol"
appendmenu 200,"jau"
mitem&:=Trackmenu_bymousepos()
print mitem&
waitkey
end
|
|
|
| |
|
|
|
| Hilos son no bastante así wichtig, aber Callback necesario necesariamente fehlerfrei trabajo.
XProfan9 es ya bastante bien en el Geschwindigkeit, va el con XProfan11 todavía algo más rápido? |
|
|
| |
|
|
|
Michael Dell | Wichtig podría el Dimensionieren de Arrays encima Parámetros & %PCount z.B. en variablen Plugin & Callback Características ser, antes allem como algo como &(1),@&(2),... sí varaltet es!
Ejemplo: KompilierenMarcaSeparación!Proc UeTest
Parameters Test&[%PCount] <-- Das wär doch was, oder?
WhileLoop 1,%PCount,1
Print Str$(Test&[&Loop])
EndWhile
EndProc
Cls
UeTest(0,1,2,3,4,5,6,7,8,9,10,11,12,13,14)
WaitInput
Salu Michael...
Hab zwar krumme Fieß awer dofir e' ecklich Gsicht! | 27.09.2006 ▲ | |
|
|
|
|
| Klar ginge el, Roland sólo - y tal vez tut él el de XProfan 11 - de seinen starren Arrays wegkommen. KompilierenMarcaSeparación Ein Dimensionieren wäre somit überhaupt garnicht mehr nötig, qué Su Anforderungen natürlich toppen y así einschliessen sería.
Yo habe algo como intenta con el Lists-Unit hinzubekommen. Diese funktioniert bastante ausgezeichnet. |
|
|
| |
|
|
|
Michael Dell | [quote:26333ed899]Yo habe algo como intenta con el Lists-Unit hinzubekommen. Diese funktioniert bastante ausgezeichnet. [/quote:26333ed899]Find Yo auch, el es Usted gelungen! |
|
|
| Salu Michael...
Hab zwar krumme Fieß awer dofir e' ecklich Gsicht! | 27.09.2006 ▲ |
|
|
|
|
Michael Dell | Dann podría el en Zukunft tal vez así aussehn: KompilierenMarcaSeparaciónSo sería Test&[] Declariert y gefüllt.
Wär doch bastante prima así. |
|
|
| Salu Michael...
Hab zwar krumme Fieß awer dofir e' ecklich Gsicht! | 27.09.2006 ▲ |
|
|
|
|
| <offtopic> [quote:2e1b66105d=Michael Dell][quote:2e1b66105d]Yo habe algo como intenta con el Lists-Unit hinzubekommen. Diese funktioniert bastante ausgezeichnet. [/quote:2e1b66105d]Find Yo auch, el es Usted gelungen! [/quote:2e1b66105d] Wow danke! Algo como hört uno sí veces gerne - besonders como Yo sí siempre sólo aufn Deckel krich wegen el Unidades. </offtopic> |
|
|
| |
|
|
|
Jac de Lad | Sí, dynamische Arrays son ya largo fällig! |
|
|
| 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 | 27.09.2006 ▲ |
|
|
|
|
Nico Madysa | Nachdem Roland en XProfan10 como großes Projekt OpenGL instalado ha, podría él como großes XProfan11-Projekt el angekündigten PDLs durchziehen. (Profano Dynamic Libraries) después de, Yo verstanden habe, se así XProfan-Code en Nativ-Code umgewandelt voluntad, oder? |
|
|
| |
|
|