TextGadget Transparent

[Backup]

.........

[Parole De JOJO]

Merci beaucoup
c'est top

[Parole De JOJO]

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

c'est normal?

[Backup]

ça depend , tu veux quoi comme résultat ?

[Parole De JOJO]

ben chepa mais je vois que si je change le texte, l'ancien reste
c'est zarrebi ca non?

[Backup]

ben chepa mais je vois que si je change le texte, l'ancien reste
c'est zarrebi ca non?

non !

lorsque tu utilise un screen() on a la fonction Clearscreen()

pour les gadgets et les fentres on a pas ça ...

il y a autre chose ... forcer un repaint

[Parole De JOJO]

en fait on devrait pouvoir faire une procedure, avec comme parametre l'identifiant du gadget, et le definir comme transparent
je me trompe?