| |
| |
|
Jac
de
Lad | something in the Help power me Kopfzerbrechen:
The Callback-functions can 0 To 5 Parameter (any 32 bit) and have a 32-bit-worth zurückliefern. for each Parameterzahl can it presently maximum 5 Callbackfunktionen give. the might on any Cases enough his.And if it still not ausreicht, can a using Callback-Space again enable, because one to The Parameterzahl one - setting:
ProcAddr(Fontliste,-4)
what means the? Dass I The Procedures unlock must? has someone one sinnvolles example with Ner sinnvollen application?
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 | 10/01/06 ▲ |
|
| |
|
|
Michael
Wodrich | that is crept, the the Programmzeiger, whom You allocated had thereafter not any more called becomes. You chid this Callback means from and can so then another Proedur Call.
If the Callback-procedure the whole Program through walk should, then is the naturally not meaningfully. there's but in the API Callbacks The zB to that count of Fonts called go (for each Font one time). If everything durchgenudelt is, then can this Callback again recyclet go.
Best wishes
Michael Wodrich |
|
| |
| Programmieren, das spannendste Detektivspiel der Welt. | 10/02/06 ▲ |
|
| |
|
|
Jac
de
Lad | I have the unfortunately still not understood..change the Zeiger at walk the program?
Haste Perhaps an example with Ner sinnvollen application of ProcAddr(procedure,-4) (means, where the Negative value a strain game)? |
|
| |
| 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 | 10/02/06 ▲ |
|
| |
|
|
 | I try me time dran - hope, Roland correct me, if I there Mist speech:
Profan created to the compilieren from your View source none Maschinencode, separate Translated whom verschlüsselten View source just and lead then the from, what there standing. your View source is quasi like a book, in the Profan reads and then on designed Hebeln zieht circa something in windows To effect. Nativer View source zieht against it directly on whom Hebeln.
One Callback should directly a lever in ambulation settle, there Proan but first take after and translate must, does it really none. what becomes means well Profan with the function ProcAddr make? it übergiebt quasi The address of/ one function, from the book a Quelltextabschnitt ließt. so these function but white, where tappt im dunkeln in the book which Quelltextseite thud must, must the somewhere abgespeichert go - what abgespeichert becomes, need but Space. enough Space to that Abspeichern is for 5Callbackfunktionen (per Parameterzahl) there, there lying the trouble. |
|
| |
| |
| |
|
|
| and here time the craved View source:
CompileMarkSeparationDEF @GetDlgCtrlID(1) !"USER32","GetDlgCtrlID"
DEF @ButtonClicked(1) @GetDlgCtrlID(@&(1))=-%MENUITEM
Def @SetTimer(4) !"USER32","SetTimer"
Def @KillTimer(2) !"USER32","KillTimer"
Declare Timer_WIN&,Button&,Zähler%,TIMER_ID&,PRO_ID&
Windowstyle 31+512
Windowtitle "Selbständig laufende Programmschleife"
Window 0,0-640,440
Usermessages $10
LET TIMER_WIN&=@Control("Static","TIMER_WIN",$8000000,0,0,0,0,%Desktop,9998,%HINSTANCE,$4)
Let Button&=@createbutton(%HWND,"",20,100,300,30)
LET TIMER_ID&=@SetTimer(TIMER_WIN&,9999,1500,@ProcAddr("TimerProc1",4))
While %UMESSAGE<>$10
Waitinput
IF @ButtonClicked(Button&)
IF PRO_ID&=1
@ProcAddr("TimerProc1",-4)
@ProcAddr("TimerProc2",4)
ELseif PRO_ID&=2
@ProcAddr("TimerProc2",-4)
@ProcAddr("TimerProc1",4)
Endif
endif
wend
@KiLLTIMER(TIMER_WIN&,TIMER_ID&)
end
Proc TimerProc1
Parameters ahhwnd&,ahuMsg&,ahidEvent&,ahdwTime&
LET PRO_ID&=1
Settext Button&,"Von Proc 1 gesetzt!"
Endproc
Proc TimerProc2
Parameters ahhwnd&,ahuMsg&,ahidEvent&,ahdwTime&
LET PRO_ID&=2
Settext Button&,"Von Proc 2 gesetzt!"
Endproc
|
|
| |
| |
| |
|
(774)
Deutsch
English
Français
Español
Italia