Code: Alles auswählen
Procedure WinCallback(WindowID, Message, wParam, lParam)
Result.l = #PB_ProcessPureBasicEvents
If Message = #WM_SIZE
Select wParam
Case #SIZE_MINIMIZED:
MessageRequester("Mitteilung","Programm wurde deaktiviert!",0)
Case #SIZE_RESTORED:
MessageRequester("Mitteilung","Programm wurde aktiviert!",0)
EndSelect
EndIf
ProcedureReturn Result
EndProcedure
SetWindowCallback(@WinCallback()) 
Code: Alles auswählen
AddTitleBarButton()
Syntax
Result = AddTitleBarButton( #Window, ButtonState.b, *BtnImg1.l, *BtnImg2.l, TipText1$, TipText2$)
Description
Add a button in the title bar of the window identified by #Window.
Use GetTitleBarButtonState() and SetTitleBarButtonState() commands to manage the button state.
Only one button can be added.
Input
#Window (Long), the PureBasic window identifier,
ButtonState (#True / #False), the initial state of the title bar button,
*BtnImg1 (Long), address of the displayed image on the button at a #True button state value,
*BtnImg2 (Long), address of the displayed image on the button at a #False button state value,
The images format is black and white, 16x14 pixels (see example).
A null value means no image
TipText1 (String), text displayed into the button tooltip at a #True button state value,
TipText2 (String), text displayed into the button tooltip at a #False button state value.
An empty string means no tooltip display.
Output
Result returns:
#True if the command is succeeds
#False if the command fails
Supported OS
Windows
Code: Alles auswählen
Result = GetTitleBarButtonState(#Window)
If result=#true;button wurde gedrückt
;..dein code
endif 
