Macro´s für WinAPI...
Code: Alles auswählen
CompilerIf Defined(MACRO_HIWORD, #PB_Constant) = 0
#MACRO_HIWORD = 1
Macro HIWORD(Param)
(Param >> 16)
EndMacro
CompilerEndIf
CompilerIf Defined(MACRO_LOWORD, #PB_Constant) = 0
#MACRO_LOWORD = 1
Macro LOWORD(Param)
(Param & $FFFF)
EndMacro
CompilerEndIf
CompilerIf Defined(MACRO_MAKEWPARAM, #PB_Constant) = 0
#MACRO_MAKEWPARAM = 1
Macro MAKEWPARAM(X,Y)
(Y << 16 | X)
EndMacro
CompilerEndIf
CompilerIf Defined(MACRO_MAKELPARAM, #PB_Constant) = 0
#MACRO_MAKELPARAM = 1
Macro MAKELPARAM(X,Y)
(Y << 16 | X)
EndMacro
CompilerEndIf
CompilerIf Defined(MACRO_MAKELONG, #PB_Constant) = 0
#MACRO_MAKELONG = 1
Macro MAKELONG(X,Y)
(Y << 16 | X)
EndMacro
CompilerEndIf
Kann man vielleicht in einer globalen Include Packen
Beipiel aus Snippet ToolBar
Code: Alles auswählen
;Autor: Fluid Byte
EnableExplicit
CompilerIf Defined(MACRO_HIWORD, #PB_Constant) = 0
#MACRO_HIWORD = 1
Macro HIWORD(Param)
(Param >> 16)
EndMacro
CompilerEndIf
CompilerIf Defined(MACRO_LOWORD, #PB_Constant) = 0
#MACRO_LOWORD = 1
Macro LOWORD(Param)
(Param & $FFFF)
EndMacro
CompilerEndIf
CompilerIf Defined(MACRO_MAKEWPARAM, #PB_Constant) = 0
#MACRO_MAKEWPARAM = 1
Macro MAKEWPARAM(X,Y)
(Y << 16 | X)
EndMacro
CompilerEndIf
CompilerIf Defined(MACRO_MAKELPARAM, #PB_Constant) = 0
#MACRO_MAKELPARAM = 1
Macro MAKELPARAM(X,Y)
(Y << 16 | X)
EndMacro
CompilerEndIf
CompilerIf Defined(MACRO_MAKELONG, #PB_Constant) = 0
#MACRO_MAKELONG = 1
Macro MAKELONG(X,Y)
(Y << 16 | X)
EndMacro
CompilerEndIf
Define EventID
If OpenWindow(0,0,0,500,400,"Window",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
If CreateToolBar(1,WindowID(0))
ToolBarStandardButton(0,#PB_ToolBarIcon_New)
ToolBarStandardButton(1,#PB_ToolBarIcon_Open)
ToolBarStandardButton(2,#PB_ToolBarIcon_Save)
SendMessage_(ToolBarID(1),#TB_SETBUTTONSIZE,0,MAKELPARAM(64,30))
SendMessage_(ToolBarID(1),#TB_AUTOSIZE,0,0)
EndIf
Repeat
EventID=WaitWindowEvent()
If EventID = #PB_Event_CloseWindow
End
EndIf
ForEver
EndIf
Sind noch nicht alle Macro´s definiert