| |
|
|
| the Trackmenu - if i remember rightly - was The procedure always only useable as long as one on the hwnd operates, simply because of the Positionsangabe.
my suggestion, if Trackmenu no Parameter get, then the Trackmenu on Mausposition create.
in the meantime I had me this a Proc written, but me Yes nevertheless Jahrelang gequält (P²4.5=>P7) and so itself others not likewise bait... CompileMarkSeparation
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 | then I wish me yet lists with them the intercepting the sekundären Mausklicks too really functions! |
|
|
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ... | 09/08/06 ▲ |
|
|
|
|
| this is eigendlich at all no Hit - vorrausgesetzt fastmode - and Thanks EasyVent.Dll too no Hit in the not-fastmode. |
|
|
| |
|
|
|
| Ebensowichtig, Trackmenü as function so the %menuitem not constantly durchgeschliffen becomes: CompileMarkSeparation
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
|
|
|
| |
|
|
|
| Threads are not integrally so important, but Callback must absolutely fehlerfrei functions.
XProfan9 is already right well in the speed, does it with XProfan11 yet something faster? |
|
|
| |
|
|
|
Michael Dell | important could the Dimensionieren of Arrays over Parameters & %PCount z.B. with variables Plugin & Callback functions his, particularly there something like &(1),@&(2),... Yes varaltet is!
example: CompileMarkSeparation!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! | 09/27/06 ▲ | |
|
|
|
|
| clear went the, Roland should only - and Perhaps does it the ex XProfan 11 - of its stare Arrays getting off. CompileMarkSeparation One Dimensionieren would accordingly at all not at all More necessary, what your Anforderungen naturally toppen and so include would.
I have something like attempts with the Lists-Unit hinzubekommen. These functions integrally fine. |
|
|
| |
|
|
|
Michael Dell | [quote:26333ed899]I have something like attempts with the Lists-Unit hinzubekommen. These functions integrally fine. [/quote:26333ed899]Find so did i, The is you been successful! |
|
|
| Salu Michael...
Hab zwar krumme Fieß awer dofir e' ecklich Gsicht! | 09/27/06 ▲ |
|
|
|
|
Michael Dell | then could the in future Perhaps so aussehn: CompileMarkSeparationso would Test&[] Declariert and filled.
Would still integrally lovely so. |
|
|
| Salu Michael...
Hab zwar krumme Fieß awer dofir e' ecklich Gsicht! | 09/27/06 ▲ |
|
|
|
|
| <offtopic> [quote:2e1b66105d=Michael Dell][quote:2e1b66105d]I have something like attempts with the Lists-Unit hinzubekommen. These functions integrally fine. [/quote:2e1b66105d]Find so did i, The is you been successful! [/quote:2e1b66105d] Wow thanks! Something like hears one Yes time gladly - particularly I Yes always only aufn lid krich because of the Units. </offtopic> |
|
|
| |
|
|
|
Jac de Lad | Yes, dynamic Arrays are already long due! |
|
|
| 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 | 09/27/06 ▲ |
|
|
|
|
Nico Madysa | after Roland in XProfan10 as large proposition OpenGL installed has, could it as large XProfan11-proposition The angekündigten PDLs go through with. (Profan Dynamic Libraries) after, I understood have, should so XProfan-code in Nativ-code transformed go, or? |
|
|
| |
|
|