PureBasic Forums - English

Code: Select all

If StartDrawing(ImageOutput(*ThisImage))
  
  Box(0, 0, cX, cY, \lButtonCornerColor)
  _RoundBox(0, 0, cX, cY, \lRoundX, \lRoundY, ButtonBackColor | $80000000)
  DrawingMode(#PB_2DDrawing_Gradient | #PB_2DDrawing_AlphaBlend)
  
  ; Draw an ellipse a little wider than the button and slightly offset upwards, to have a gradient with the background color in the 4 corners and more important at the bottom
  ; You can change the design here and do it differently to suit your taste for the 5 button images
  EllipticalGradient(cX / 2, cY * 2 / 5, cX * 3 / 5, cY * 4 / 5)
  GradientColor(0.0, ButtonBackColor | $BE000000)
  Select I
    Case 0, 4   ; imgRegular, imgDisabled
      GradientColor(0.15, ButtonBackColor | $BE000000)
    Case 1, 3   ; imgHilite, imgHiPressed
      GradientColor(0.3,  ButtonBackColor | $BE000000)
    Case 2      ; imgPressed
      GradientColor(0.45, ButtonBackColor | $BE000000)
  EndSelect
  GradientColor(1.0,  \lButtonOuterColor | $BE000000)
  _RoundBox(0, 0, cX, cY, \lRoundX, \lRoundY)
  
  ; Border drawn with button color and an inner 1 px border with background color (full inside or top left or bottom right)
  DrawingMode(#PB_2DDrawing_Outlined)
  Select I
    Case 0, 4     ; imgRegular, imgDisabled
      _RoundBox(0, 0, cX, cY, \lRoundX, \lRoundY, \lBorderColor)
      _RoundBox(1, 1, cX-2, cY-2, \lRoundX, \lRoundY, \lButtonOuterColor)
    Case 1, 2     ; imgHilite, imgPressed
      _RoundBox(0, 0, cX, cY, \lRoundX, \lRoundY, \lHighLightBorder)
      _RoundBox(1, 1, cX-2, cY-2, \lRoundX, \lRoundY, \lButtonOuterColor)
    Case 3     ; imgHiPressed
      _RoundBox(0, 0, cX, cY, \lRoundX, \lRoundY, \lHighLightBorder)
      _RoundBox(1, 1, cX-2, cY-2, \lRoundX, \lRoundY, \lBorderColor)
      _RoundBox(2, 2, cX-4, cY-4, \lRoundX, \lRoundY, \lButtonOuterColor)
  EndSelect
  
  StopDrawing()
EndIf

Code: Select all

EnableExplicit

; #HTCLOSE = 20
#Window = 0
#TitleHeight = 30
#BtnWidth = 46

Enumeration
	#Title
	#Close
	#Minimize
	#Maximize
EndEnumeration

; Declare MyWindowCallback(WindowId, Message, wParam, lParam)

Procedure MyWindowCallback(WindowId, Message, wParam, lParam)
	Protected Result = #PB_ProcessPureBasicEvents
	Protected.l nNotifyCode, nID, x, y

	Select Message
		Case #WM_NCHITTEST
			x = lParam & $FFFF ; LoWord
			y = lParam >> 16   ; HiWord
			x - WindowX(#Window)
			y - WindowY(#Window)
			If x < 700 And y < 30
				ProcedureReturn #HTCAPTION
				; 			ElseIf x > 760 And x < 790 And y < 30
				; 				ProcedureReturn #HTCLOSE
			EndIf
		Case #WM_COMMAND
			nID = wParam & $FFFF ; LoWord
			nNotifyCode = wParam >> 16 ; HiWord
			Select lParam
				Case GadgetID(#Close)
					Select nNotifyCode
						Case #BN_CLICKED
							End
					EndSelect
				Case GadgetID(#Minimize)
					Select nNotifyCode
						Case #BN_CLICKED
							SetWindowState(#Window, #PB_Window_Minimize)
					EndSelect
				Case GadgetID(#Maximize)
					Select nNotifyCode
						Case #BN_CLICKED
							If GetWindowState(#Window) = #PB_Window_Maximize
								SetWindowState(#Window, #PB_Window_Normal)
							Else
								SetWindowState(#Window, #PB_Window_Maximize)
							EndIf
					EndSelect
			EndSelect
	EndSelect
	ProcedureReturn Result
EndProcedure

Procedure SizeHandler()
	Protected w, h
	w = WindowWidth(#Window)
    ResizeGadget(#Title, #PB_Ignore, #PB_Ignore, w - #BtnWidth * 3, #PB_Ignore)
    ResizeGadget(#Close, w - #BtnWidth, #PB_Ignore, #PB_Ignore, #PB_Ignore)
    ResizeGadget(#Minimize, w - #BtnWidth * 3, #PB_Ignore, #PB_Ignore, #PB_Ignore)
    ResizeGadget(#Maximize, w - #BtnWidth * 2, #PB_Ignore, #PB_Ignore, #PB_Ignore)
EndProcedure

If OpenWindow(#Window, 0, 0, 790, 200, "", #PB_Window_BorderLess | #PB_Window_ScreenCentered) ; | #WS_SIZEBOX)
	TextGadget(#Title, 0, 0, 700, #TitleHeight, "Window title")
	SetGadgetColor(#Title, #PB_Gadget_BackColor, $7E7969)
	SetGadgetColor(#Title, #PB_Gadget_FrontColor, $FFFFFF)
	TextGadget(#Close, 790 - #BtnWidth, 0, #BtnWidth, #TitleHeight, "X", #SS_NOTIFY | #PB_Text_Center) ; | #PB_Text_Border)
	SetGadgetColor(#Close, #PB_Gadget_BackColor, $3030FF)
	SetGadgetColor(#Close, #PB_Gadget_FrontColor, $FFFFFF)
	TextGadget(#Minimize, 790 - #BtnWidth * 3, 0, #BtnWidth, #TitleHeight, "_", #SS_NOTIFY | #PB_Text_Center)
	SetGadgetColor(#Minimize, #PB_Gadget_BackColor, $FF3030)
	SetGadgetColor(#Minimize, #PB_Gadget_FrontColor, $FFFFFF)
	TextGadget(#Maximize, 790 - #BtnWidth * 2, 0, #BtnWidth, #TitleHeight, Chr($25A1), #SS_NOTIFY | #PB_Text_Center) ; $20E3
	SetGadgetColor(#Maximize, #PB_Gadget_BackColor, $FF3030)
	SetGadgetColor(#Maximize, #PB_Gadget_FrontColor, $FFFFFF)

	SetWindowColor(#Window, $bddada)

	SetWindowCallback(@MyWindowCallback())
	BindEvent(#PB_Event_SizeWindow, @SizeHandler())

	Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIf