PureBasic

Code : Tout sélectionner

; OpenTextWindow(ID,Height,Thickness,Flag,Font$,Text$)

; Height = Font Height
; Thickness = Font Weight entre 0 et 1000
; Flag can be: #RGN_AND or #RGN_XOR

Procedure OpenTextWindow(ID, Height, Thickness, Flag, Font$, Text$)
	Protected RectRegion.Rect
	Protected verticalOffset = 15 ; pour décaler le texte de 15 pixels vers le bas sinon il chevauche la barre de titre de la GUI et l'affichage est foireux
	
	If OpenWindow(ID, 0, 0, 500, 500, Text$, #PB_Window_SystemMenu|#WS_POPUP) ; largeur et hauteur définies arbitrairement puisque calculées précisément par la suite
		SetForegroundWindow_(WindowID(ID)) ; semble inutile ?
		WindowDC= GetDC_(WindowID(ID))

		SetWindowColor(ID, #Red) ; couleur du texte

		; cette portion de code semble modifier la taille du hDC...
		hFont = CreateFont_(Height, 0, 0, 0, Thickness, 0, 0, 0, #DEFAULT_CHARSET, #OUT_CHARACTER_PRECIS, #CLIP_DEFAULT_PRECIS, #PROOF_QUALITY, 0, Font$)
		Font = SelectObject_(WindowDC, hFont)
		BeginPath_(WindowDC)
		TextOut_(WindowDC, 0, verticalOffset, Text$, Len(Text$)) 
		EndPath_(WindowDC)

		GetTextExtentPoint32_(WindowDC, Text$, Len(Text$), sz.SIZE) ; sz\cx contient la largeur en pixel du texte et sz\cy sa hauteur

		Region1 = PathToRegion_(WindowDC)
		GetRgnBox_(Region1, RectRegion)
		Region2 = CreateRectRgnIndirect_(RectRegion)
		CombineRgn_(Region2, Region2, Region1, Flag) 
		DeleteObject_(Region1)
		ReleaseDC_(WindowID(ID), WindowDC)
		SetWindowRgn_(WindowID(ID), Region2, 1)
; 		SelectObject_(WindowDC, Font) ; semble inutile ?

		; pour mettre au premier plan, centrer le texte et ajuster la GUI à la taille du texte
		SetWindowPos_(WindowID(ID), #HWND_TOPMOST, (GetSystemMetrics_(#SM_CXSCREEN)/2) - (sz\cx)/2, 0, sz\cx, sz\cy + verticalOffset, 0)

	Else
		ProcedureReturn 0
	EndIf
	ProcedureReturn 1
EndProcedure

If OpenTextWindow(0, 70, 300, #RGN_XOR, "Verdana", "Maintenance en cours")
	Repeat
		EventID = WaitWindowEvent()
	Until EventID = #PB_Event_CloseWindow
EndIf

Code : Tout sélectionner

; OpenTextWindow(ID,Height,Thickness,Flag,Font$,Text$)

; Height = Font Height
; Thickness = Font Weight entre 0 et 1000
; Flag can be: #RGN_AND or #RGN_XOR

Procedure OpenTextWindow(ID, Height, Thickness, Flag, Font$, Text$)
	Protected RectRegion.Rect
	Protected verticalOffset = 15 ; pour décaler le texte de 15 pixels vers le bas sinon il chevauche la barre de titre de la GUI et l'affichage est foireux
	
	If OpenWindow(ID, 0, 0, 500, 500, Text$, #PB_Window_SystemMenu|#WS_POPUP) ; largeur et hauteur définies arbitrairement puisque calculées précisément par la suite
		SetForegroundWindow_(WindowID(ID)) ; semble inutile ?
		WindowDC= GetDC_(WindowID(ID))

		SetWindowColor(ID, #Red) ; couleur du texte

		; cette portion de code semble modifier la taille du hDC...
		hFont = CreateFont_(Height, 0, 0, 0, Thickness, 0, 0, 0, #DEFAULT_CHARSET, #OUT_CHARACTER_PRECIS, #CLIP_DEFAULT_PRECIS, #PROOF_QUALITY, 0, Font$)
		Font = SelectObject_(WindowDC, hFont)
		BeginPath_(WindowDC)
		TextOut_(WindowDC, 0, verticalOffset, Text$, Len(Text$)) 
		EndPath_(WindowDC)

		GetTextExtentPoint32_(WindowDC, Text$, Len(Text$), sz.SIZE) ; sz\cx contient la largeur en pixel du texte et sz\cy sa hauteur

		Region1 = PathToRegion_(WindowDC)
		GetRgnBox_(Region1, RectRegion)
		Region2 = CreateRectRgnIndirect_(RectRegion)
		CombineRgn_(Region2, Region2, Region1, Flag) 
		DeleteObject_(Region1)
		ReleaseDC_(WindowID(ID), WindowDC)
		SetWindowRgn_(WindowID(ID), Region2, 1)
; 		SelectObject_(WindowDC, Font) ; semble inutile ?

		; pour mettre au premier plan, centrer le texte et ajuster la GUI à la taille du texte
		SetWindowPos_(WindowID(ID), #HWND_TOPMOST, (GetSystemMetrics_(#SM_CXSCREEN)/2) - (sz\cx)/2, 0, sz\cx, sz\cy + verticalOffset, 0)

		; modifie le style de la fenête ce qui permet au clic de "passer au travers"
		SetWindowLongPtr_(WindowID(ID), #GWL_EXSTYLE, GetWindowLongPtr_(WindowID(ID), #GWL_EXSTYLE) | #WS_EX_LAYERED | #WS_EX_TRANSPARENT)
		; Hit testing of a layered window is based on the shape And transparency of the window. This means that the areas of the window that are color-keyed Or whose alpha value is zero will let the mouse messages through.
		; However, If the layered window has the WS_EX_TRANSPARENT extended window style, the shape of the layered window will be ignored And the mouse events will be passed To other windows underneath the layered window

	Else
		ProcedureReturn 0
	EndIf
	ProcedureReturn 1
EndProcedure

If OpenTextWindow(0, 70, 300, #RGN_XOR, "Verdana", "Maintenance en cours")
	Repeat
		EventID = WaitWindowEvent()
	Until EventID = #PB_Event_CloseWindow
EndIf

Code : Tout sélectionner

height = 100
width = GetSystemMetrics_(#SM_CXSCREEN)
message.s = "Maintenance en cours..."

OpenWindow(0, 0, 0, width, height, "TestWindow", #WS_POPUP)
SetWindowColor(0, RGB(0,0,1)) ; Set the background futur "transparent" color

; make the Window "transparent"
SetWindowLongPtr_(WindowID(0), #GWL_EXSTYLE, #WS_EX_LAYERED | #WS_EX_TOPMOST)
SetLayeredWindowAttributes_(WindowID(0), RGB(0,0,1), 0, #LWA_COLORKEY) ; Set the transparent color
SetWindowLongPtr_(WindowID(0), #GWL_EXSTYLE, GetWindowLongPtr_(WindowID(0), #GWL_EXSTYLE) | #WS_EX_LAYERED | #WS_EX_TRANSPARENT) ; make the window "pass through"

StickyWindow(0, 1)

LoadFont(0, "Verdana", 50)

; Create Canvas
CanvasGadget(0, 0, 0, width, height)
StartDrawing(CanvasOutput(0))
DrawingFont(FontID(0)) 
Box(0, 0, width, height, RGB(0,0,1)) ; Draw a "transparent" block

Textlength = TextWidth(message)
DrawText(width / 2 - Textlength / 2, 10, message, #Red, RGB(0,0,1))
StopDrawing()


Repeat
  Event = WaitWindowEvent()  
Until Event = #PB_Event_CloseWindow