durchsichtige fenster

[delikanli_19_82]

hallo leute,

ich würde gerne unter windows, linux und mac fenster nach grad durchsichtig scheinen lassen.

hat irgendwer eine idee, wie das zu machen wäre?

mfg

kurt

[Bisonte]

Unter Windows nutze ich diese beiden Prozeduren. Da ich nicht weiss welche Art Du nun genau meinst.

Code: Alles auswählen

Procedure.i SetWindowTransparency(Window.i, transparency.i) ; Fenster durchsichtig machen (transparency : 0-255)
  
  If IsWindow(Window)
    Protected WindowID = WindowID(Window)
    SetWindowLongPtr_(WindowID,#GWL_EXSTYLE,#WS_EX_LAYERED)
    SetLayeredWindowAttributes_(WindowID,0,transparency,#LWA_ALPHA)
  EndIf

EndProcedure
Procedure.i SetWindowCutColor(Window.i, Color.i) ; Fensterpixel mit Farbe Color.i durchsichtig machen (RGB() werte)
  
  If IsWindow(Window)
    Protected WindowID = WindowID(Window)
    SetWindowLongPtr_(WindowID,#GWL_EXSTYLE,#WS_EX_LAYERED)
    SetLayeredWindowAttributes_(WindowID,Color,0,#LWA_COLORKEY)
  EndIf

EndProcedure

bei den anderen Systemen weiss ich nicht wie das geht ... sorry

[delikanli_19_82]

hallo Bisonte,

die methode SetWindowTransparency entspricht meiner vorstellung.

die lösung für mac und linux sind auch wichtig. naja, muss weiter danach suchen.

vielen dank für dein beispiel.

mfg

kurt

[TheCube]

Ich fand es auch sehr nützlich, besonders das SetWindowCutColor kannte ich noch nicht.
Danke.