PureBasic

Code : Tout sélectionner

Procedure WCB(WindowID, Message, wParam, lParam)
  color=$0002FF
  Result = #PB_ProcessPureBasicEvents
	Select Message
		Case #WM_CTLCOLORSTATIC
			Select lparam
				Case GadgetID(2)
					SetBkMode_(wparam,#TRANSPARENT)
					SetTextColor_(wParam,color)
					ProcedureReturn GetStockObject_(#HOLLOW_BRUSH)
			EndSelect
	EndSelect
	ProcedureReturn Result
EndProcedure

If OpenWindow(0,0,0,250,250,"Window",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)

	TextGadget(2,12,12,250,250,"transparent text",0)
	
; 	SetWindowColor(0,$CFFF)
	SetWindowCallback(@WCB(),0)
	
	
	SetGadgetText(2,"ghfjtf")
	Repeat

	Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIf