| |
| |
|
 | cela Trackmenu  - si je mich droite erinnere - était qui Procédure toujours seulement brauchbar solange on sur dem hwnd arbeitet, simple à cause de qui Positionsangabe.
mon Vorschlag, si Trackmenu aucun paramètre bekommt, ensuite cela Trackmenu à Mausposition erstellen.
Mittlerweile J'ai eu mir hierfür une Proc geschrieben, mais mich oui quand même Jahrelang gequält (P²4.5=>P7) et avec cela sich autre pas ebenso tracasser...
KompilierenMarqueSéparation
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 | | ensuite wünsch je mir encore Listen chez denen cela intercepter des sekundären Mausklicks aussi wirklich funktioniert! |
|
| |
| Windows XP SP2 XProfan X4... und hier mal was ganz anderes als Profan ...  | 08.09.2006 ▲ |
|
| |
|
|
| c'est eigendlich überhaupt ne...aucune Hit - vorrausgesetzt fastmode - et Dank EasyVent.Dll aussi ne...aucune Hit im pas-fastmode.  |
|
| |
| |
| |
|
|
| Ebensowichtig, Trackmenü comme Funktion avec cela qui %menuitem pas ständig durchgeschliffen wird:
KompilierenMarqueSéparation
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 sommes pas entier so important, mais Callback doit absolument correct marcher.
XProfan9 ist déjà droite bien dans qui Geschwindigkeit, allez cela avec XProfan11 et avec ca plus rapide? |
|
| |
| |
| |
|
|
Michael
Dell | important pourrait cela Dimensionieren de Arrays sur Paramètres & %PCount z.B. chez variablen Plugin & Callback Funktionen son, avant allem là quelque chose comme &(1),@&(2),... oui varaltet ist! 
Beispiel:
KompilierenMarqueSéparation!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 ▲ | |
|
| |
|
|
| bien sûr ginge cela, Roland devrait seulement - et peut-être tut il ab XProfan 11 - de seinen starren Arrays wegkommen.
KompilierenMarqueSéparation
un Dimensionieren wäre somit überhaupt garnicht plus nötig, quoi Votre Anforderungen naturellement toppen et avec cela einschliessen serait.
j'ai quelque chose comme versucht avec qui Lists-Unit hinzubekommen. cet funktioniert entier ausgezeichnet.  |
|
| |
| |
| |
|
|
Michael
Dell | | [quote-part:26333ed899]j'ai quelque chose comme versucht avec qui Lists-Unit hinzubekommen. cet funktioniert entier ausgezeichnet. [/quote-part:26333ed899]Find je aussi, qui ist Dir gelungen! |
|
| |
| Salu Michael...
Hab zwar krumme Fieß awer dofir e' ecklich Gsicht! | 27.09.2006 ▲ |
|
| |
|
|
Michael
Dell | ensuite pourrait cela dans Zukunft peut-être so aussehn:
KompilierenMarqueSéparationSo serait Test&[] Declariert et pleine.
Wär doch entier prima so. |
|
| |
| Salu Michael...
Hab zwar krumme Fieß awer dofir e' ecklich Gsicht! | 27.09.2006 ▲ |
|
| |
|
|
| <offtopic> [quote-part:2e1b66105d=Michael Dell][quote-part:2e1b66105d]j'ai quelque chose comme versucht avec qui Lists-Unit hinzubekommen. cet funktioniert entier ausgezeichnet. [/quote-part:2e1b66105d]Find je aussi, qui ist Dir gelungen! [/quote-part:2e1b66105d] Wow merci! Quelque chose comme hört on oui la fois volontiers - besonders là je oui toujours seulement aufn le couvercle krich à cause de qui Unités.  </offtopic> |
|
| |
| |
| |
|
|
Jac
de
Lad | oui, dynamische Arrays sommes déjà longtemps 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 | après que Roland dans XProfan10 comme großes projet OpenGL incorporé hat,
pourrait il comme großes XProfan11-projet qui angekündigten PDLs durchziehen.
(Profan Dynamic Libraries) après que, quoi je verstanden habe, soll avec cela
XProfan-Code dans Nativ-Code umgewandelt volonté, ou bien? |
|
| |
| |
| |
|
(774)
Deutsch
English
Français
Español
Italia