PureBasic Forums - English

Code: Select all

#PB_MessageRequester_WinCenter = 128

Procedure MonitorEnumProc(hMonitor, hdcMonitor, *lprcMonitor.RECT, dwData)
  Protected rgn = CreateRectRgnIndirect_(*lprcMonitor)
  CombineRgn_(dwData, dwData, rgn, #RGN_OR)
  DeleteObject_(rgn)
  ProcedureReturn #True
EndProcedure

Procedure CBTProc(nCode, wParam, lParam)
  If nCode < 0 : Goto rethook : EndIf
  If nCode = #HCBT_CREATEWND
    Protected *cw.CBT_CREATEWND = lParam
    Protected *cs.CREATESTRUCT = *cw\lpcs
    If *cs\lpszClass = 32770
      Protected pRect.RECT, rgn, x, y
      rgn = CreateRectRgn_(0, 0, 0, 0)
      EnumDisplayMonitors_(0, 0, @MonitorEnumProc(), rgn)
      GetWindowRect_(*cs\hWndParent, pRect)
      x = pRect\left + (pRect\right - pRect\left - *cs\cx)/2
      y = pRect\top  + (pRect\bottom - pRect\top - *cs\cy)/2
      If PtInRegion_(rgn, x, y) And PtInRegion_(rgn, x + *cs\cx, y) And PtInRegion_(rgn, x, y + *cs\cy) And PtInRegion_(rgn, x + *cs\cx, y + *cs\cy)
        *cs\x = x
        *cs\y = y
      EndIf
      DeleteObject_(rgn)
    EndIf
  EndIf
  rethook:
  ProcedureReturn CallNextHookEx_(0, nCode, wParam, lParam)
EndProcedure

Procedure _MessageRequester(title$, text$, flags=0)
  If flags & #PB_MessageRequester_WinCenter
    Protected hook = SetWindowsHookEx_(#WH_CBT, @CBTProc(), 0, GetCurrentThreadId_())
  EndIf
  Protected ret = MessageRequester(title$, text$, flags&~#PB_MessageRequester_WinCenter)
  If hook : UnhookWindowsHookEx_(hook) : EndIf
  ProcedureReturn ret
EndProcedure

Macro MessageRequester(title, text, flags)
  _MessageRequester(title, text, flags)
EndMacro

; ------------------------------------------------------------------------------------

CompilerIf #PB_Compiler_IsMainFile
  
  OpenWindow(0, 0, 0, 640, 400, "MessageRequester_WinCenter", #PB_Window_SystemMenu|#PB_Window_MaximizeGadget|#PB_Window_SizeGadget|#PB_Window_ScreenCentered|#PB_Window_Invisible)
  ButtonGadget(0, 10, 10, 100, 30, "Show")
  HideWindow(0, #False)
  
  Repeat
    Define event = WaitWindowEvent()
    Select event
      Case #PB_Event_Gadget
        Select EventGadget()
          Case 0
            MessageRequester("Info", ~"This MessageRequester is always CENTERED on the parent window,\nbut only if the client area of the MR is fully visible on the desktop(s).", #PB_MessageRequester_Info|#PB_MessageRequester_WinCenter)
        EndSelect
    EndSelect
  Until event = #PB_Event_CloseWindow
  
CompilerEndIf

Code: Select all

If nCode < 0 : Goto rethook : EndIf
If nCode = #HCBT_CREATEWND
  ; Blah
EndIf
rethook:
ProcedureReturn CallNextHookEx_(0, nCode, wParam, lParam)

Code: Select all

EnableExplicit

Enumeration Window
	#Window_Main
	#Window_Child
EndEnumeration

Enumeration Gadget
	#a1
	#b1
	#a2
	#b2
	#yzit
EndEnumeration

Enumeration Gadget
	#ok
	#txt
	#chb
EndEnumeration

Structure MXYWH
	x.l
	y.l
	w.l
	h.l
	m.l
EndStructure

Global WinRect.MXYWH
Global WWE

Declare _MsgBox(txt$, w = 270, h = 180, t = 0)
Declare _ChildCoor(nWin, w, h, c=0, d=0)

If OpenWindow(#Window_Main, 0, 0, 420, 250, "Example...", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
	ButtonGadget (#a1, 5, 5, 50, 30, "corner")
	ButtonGadget (#b1, 5, 45, 50, 30, "center")
	
	ButtonGadget (#a2, 360, 170, 50, 30, "corner")
	ButtonGadget (#b2, 360, 210, 50, 30, "center")
	
	ButtonGadget (#yzit, 170, 110, 70, 30, "reduce")
	
	Repeat
		WWE = WaitWindowEvent()
		
		Select EventWindow()
			Case #Window_Main
				Select WWE
					Case #PB_Event_Gadget
						Select EventGadget()
							Case #a1, #a2
								_MsgBox("Close the program window?", 0, 0, 1)
							Case #b1, #b2
								_MsgBox("Close the program window?")
							Case #yzit
								ResizeWindow(#Window_Main, #PB_Ignore, #PB_Ignore, 200, 70)
								ResizeGadget(#a1, 5, 3, #PB_Ignore, #PB_Ignore)
								ResizeGadget(#b1, 5, 35, #PB_Ignore, #PB_Ignore)
								ResizeGadget(#a2, 140, 3, #PB_Ignore, #PB_Ignore)
								ResizeGadget(#b2, 140, 35, #PB_Ignore, #PB_Ignore)
								ResizeGadget(#yzit, 60, 30, #PB_Ignore, #PB_Ignore)
						EndSelect
					Case #PB_Event_CloseWindow
						CloseWindow(#Window_Main)
						End
				EndSelect
				
			Case #Window_Child
				Select WWE
					Case #PB_Event_Gadget
						Select EventGadget()
							Case #ok
								CloseWindow(#Window_Child)
								DisableWindow(#Window_Main, #False)
						EndSelect
					Case #PB_Event_CloseWindow
						CloseWindow(#Window_Child)
						DisableWindow(#Window_Main, #False)
				EndSelect
		EndSelect
	ForEver
EndIf

Procedure _MsgBox(txt$, w = 270, h = 180, t = 0)
	If Not w
		w = 270
	EndIf
	If Not h
		h = 180
	EndIf
	_ChildCoor(#Window_Main, w, h, t, 30)
	With WinRect
		OpenWindow(#Window_Child, \x, \y, \w, \h, "Message", #PB_Window_SystemMenu)
	EndWith
	SetWindowLongPtr_(WindowID(#Window_Child), #GWL_HWNDPARENT, WindowID(#Window_Main))
	TextGadget(#txt, 10, 10, 250, 60, txt$)
	CheckBoxGadget(#chb, 20, h-80, 240, 20, "Don't ask again")
	ButtonGadget (#ok, (w-50)/2, h - 40, 50, 30, "Ок")
	DisableWindow(#Window_Main, #True)
EndProcedure

Procedure _ChildCoor(nWin, w, h, c=0, d=0)
	Protected DX, DY
	With WinRect
		\h = WindowHeight(nWin)
		\w = WindowWidth(nWin)
		\x = WindowX(nWin)
		\y = WindowY(nWin)
		
		ExamineDesktops()
		DX=DesktopWidth(0)
		DY=DesktopHeight(0)
		If c = 0
			\x+(\w-w)/2
			\y+(\h-h)/2
		EndIf
		If \x+w+d>DX
			\x=DX-w-10-d
		EndIf
		If \y+h+60+d>DY
			\y=DY-h-70-d
		EndIf
		If \x<=d
			\x=d
		EndIf
		If \y<=d
			\y=d
		EndIf
		\w=w
		\h=h
	EndWith
EndProcedure

Code: Select all

If nCode > -1 And nCode = #HCBT_CREATEWND
  ; Blah
EndIf
ProcedureReturn CallNextHookEx_(0, nCode, wParam, lParam)