| |
| |
|
 | 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? |
|
| |
| |
| |
|
(508)
Deutsch
English
Français
Español
Italia