PureBoard

Also ich bin gerade am verzweifeln, weil das ExplorerListGadget den EventType() #PB_EventType_LeftDoubleClick nicht erkennt. Oder was mache ich falsch.

OpenWindow(0,0,0,800,600,"Test",#PB_Window_SystemMenu)
ExplorerListGadget(1,0,0,800,600,"*.*")

Repeat
event.l = WaitWindowEvent()
If event ...

Danke mk-soft, eine tolle Lösung des Problems.

Zum Abschluss noch mal ein erweitertes Beispiel zum ausprobieren.


Macro HiWord(Long)
((Long >> 16) & $FFFF)
EndMacro

Macro LoWord(Long)
(Long & $FFFF)
EndMacro


Structure udtArgs
hWnd.i
uMsg.i
wParam.i
lParam.i
EndStructure

#IDM_TEST = 1 ...

Sorry erst einmal, habe jetzt ein komplettes Beispiel, dass hoffentlich auch den Nutzen zeigt.


Macro HiWord(Long)
((Long >> 16) & $FFFF)
EndMacro

Macro LoWord(Long)
(Long & $FFFF)
EndMacro

Macro HANDLE_WM_CLOSE(hwnd, lParam, wParam, fn)
ProcedureReturn fn(hwnd)
EndMacro

Macro HANDLE_WM_MOVE ...

Danke erst einmal für die Anworten.

Das waren nur abstrakte Beispiele. Die C-Makros stehen in der windowsx.h und erleichtern die Verarbeitung der Message in WindowCallback(). Hier ein komplettes Beispiel:

Macro HANDLE_WM_CLOSE(hwnd, fn)
ProcedureReturn fn(hwnd)
EndMacro


Macro HANDLE_MSG(hwnd ...

Ich habe folgendes Problem. Bsp:

macro Test_eins(param)
ProcedureReturn Func_#param(param)
endmacro

macro Test_zwei(param)
ProcedureReturn Func_#param(param)
endmacro

usw.

macro Test(param)
Test_#param(param)
endmacro

Test(eins) Ergebnis soll ProcedureReturn Func_eins(param) sein ist aber ...