Textgadget

[Konne]

Ist es möglich ein Textgadget durchsichtig zu machen? Also so das der Hintergrund durchkommt?

Mfg Konne und THX für Lösungen...

[Konne]

Hat wirklich keiner ne Ahnung wie das gehen könnte?
Oder geht das einfach net?

[DarkDragon]

Das wurde schon einmal gefragt, da wusste auch keiner eine richtige Antwort.

[pogi02]

ähm gugg mal im CodeArchiv vielleicht lässt sich da was gutes/brachbares finden

[vonTurnundTaxis]

Das gleiche Problem hatte ich auch mal und habe es mit DrawText() gelöst.

[Ynnus]

EIn Textgadget ist ein Fenster der Fensterklasse "EDIT" und somit auch nur ein Fenster. Es gibt doch Funktionen welche Fenster transparent machen. Wie diese lauten weiß ich zwar nicht, aber es sollte damit möglich sein, damit auch ein Editfeld durchsichtig zu machen.

[nicolaus]

Code: Alles auswählen

Procedure SetWinTransparency (WinHandle.l, Transparency_Level.l) ;setzt die Transparenz wert von 0 (voll transparent) bis 255 (voll sichtbar)
  SetWindowLong_(WinHandle,#GWL_EXSTYLE,$00080000)                 
  SetLayeredWindowAttributes_(WinHandle,0,Transparency_Level,2)     
EndProcedure 


OpenWindow(0,0,0,200,200,#PB_Window_SystemMenu|#PB_Window_ScreenCentered,"test")
OpenWindow(1,WindowX()+5,WindowY()+25,100,20,#WS_POPUP,"",WindowID(0))
CreateGadgetList(WindowID(1))
htxg = TextGadget(1,0,0,100,20,"testtext")
SetWinTransparency(WindowID(1),80)
UseWindow(0)
ActivateWindow()
Repeat:Until WaitWindowEvent() = #PB_Event_CloseWindow

die procedure ist so weit ich mich erinnern kann von Danilo

[DarkDragon]

Code: Alles auswählen

Procedure SetWinTransparency (WinHandle.l, Transparency_Level.l) ;setzt die Transparenz wert von 0 (voll transparent) bis 255 (voll sichtbar)
  SetWindowLong_(WinHandle,#GWL_EXSTYLE,$00080000)                 
  SetLayeredWindowAttributes_(WinHandle,0,Transparency_Level,2)     
EndProcedure 


OpenWindow(0,0,0,200,200,#PB_Window_SystemMenu|#PB_Window_ScreenCentered,"test")
OpenWindow(1,WindowX()+5,WindowY()+25,100,20,#WS_POPUP,"",WindowID(0))
CreateGadgetList(WindowID(1))
htxg = TextGadget(1,0,0,100,20,"testtext")
SetWinTransparency(WindowID(1),80)
UseWindow(0)
ActivateWindow()
Repeat:Until WaitWindowEvent() = #PB_Event_CloseWindow

die procedure ist so weit ich mich erinnern kann von Danilo

coole proc, allerdings braucht er glaube ich etwas anderes! Er will, dass man den Text vor einem Hintergrundbild oder so noch sieht, also den Hintergrund des Text-Gadgets sollte man wegmachen.

[Batze]

Gibt es vielleicht einen Befehl, mit dem man ein Imagegadget nur auf einer bestimmten Farbe darstellt?
Ich wollte mal ein Fenster, wo statt dem langweiligen grau ein Hintergrundbild abgebildet wird. Also so, das das grau durch ein Bild ersetzt wird.

Edit: Ich hab am Ende alle Gadgets per Hand selber hergestellt, da ich keine Lösung gefunden habe.

[Konne]

Danke für die Antworten auch wenn das heißt das es wohl nicht so ganz einfach ist...
PS. Das mit Draw Text hab ich mir au schon überlegt aber des würde dann bei so Sachen wie Checkboxgadgets nicht tun (Keine Abhaken durch Schrift anklicken).

Naja schad eigendlich...