PureBoard

Code: Alles auswählen

Procedure.l WindowCallBack(WindowId.l, message.l, wParam.l, lParam.l) 
  ReturnValue.l = #PB_ProcessPureBasicEvents
  ;
  ReturnValue = PureRESIZE_CallBack(WindowId, message, wParam, lParam, ReturnValue)
  If message = #WM_SIZE And WindowId = WindowID(#MyWindow)
    Debug "Window resized"
  EndIf
  ;
  ProcedureReturn ReturnValue 
EndProcedure