PureBoard

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