Fenetre transparante

[brossden]

Bonjour

Tout es dans le titre comment faire pour qu'une fenêtre soit transparante.
J'avais eu une réponse mais le lien qui m'a été donné à l'époque ne marche plus merci au Soldat Inconnu et à Denis s'ils lisent ces mots !

[Backup]

Code : Tout sélectionner

Declare SetWinTransparency(WinHandle.l, Transparency_Level.l)
LoadFont(1, "romand", 300 ) 
UseFont(1) 
Texte.s="ceci est un essai"
WindowID = OpenWindow(1, 50, 50, 200, 200,  #PB_Window_SystemMenu|#PB_Window_MinimizeGadget  , "hello") 
WindowID = WindowID(1) 

; Pour changer le niveau de transparence de la fenêtre
  ; Le niveau de transparence doit être compris entre 1 (transparence totale) et 255 (opaque) 

SetWinTransparency (WindowID(), 150) ; ici on appel la procedure de transparence de fenetre

Repeat
  UseFont(1) 
  Event=WaitWindowEvent()
  ; ici c'est la boucle principale 
  ; a toi de rajouter des gadgats
  ; ResizeWindow(10, 1000)  
  StartDrawing(WindowOutput()) 
  Locate(0, 0)  
  DrawText(Texte.s)  
  StopDrawing()  
Until Event=#PB_Event_CloseWindow 

 

Procedure SetWinTransparency(WinHandle.l, Transparency_Level.l)
  SetWindowLong_(WinHandle, #GWL_EXSTYLE, GetWindowLong_(WinHandle, #GWL_EXSTYLE) | $00080000) ; #WS_EX_LAYERED = $00080000
  If OpenLibrary(0, "user32.dll")
    CallFunction(0, "SetLayeredWindowAttributes", WinHandle, 0, Transparency_Level, 2)
    CloseLibrary(0)
  EndIf
EndProcedure

[Oliv]

Sur purearea : http://www.purearea.net/pb/CodeArchiv/W ... Windows.pb

[Anonyme2]

Bonjour

Tout es dans le titre comment faire pour qu'une fenêtre soit transparante.
J'avais eu une réponse mais le lien qui m'a été donné à l'époque ne marche plus merci au Soldat Inconnu et à Denis s'ils lisent ces mots !

Ca ne me dit rien et le code de Dobro doit être celui du soldat inconnu.

[Backup]

Ca ne me dit rien Rolling Eyes et le code de Dobro doit être celui du soldat inconnu

j'ai pas pretendu que c'etait le mien je repond a la question c'est tout !

[Anonyme2]

Ca ne me dit rien Rolling Eyes et le code de Dobro doit être celui du soldat inconnu

j'ai pas pretendu que c'etait le mien je repond a la question c'est tout !

Je répondais à Brossden et je ne pensais pas que tu prendrais ça de travers , rien dit sur toi

[Backup]

pensais pas que tu prendrais ça de travers

pas pris de travers

[Anonyme2]

[Backup]

j'ai juste oublié le " "

[Pingtix]

Ca fonctionne avec tous les windows ou seulement XP ?

[Guimauve]

Si je me souviens bien ça fonctione avec Win2000. Mais je suis certain que ça fonctionne avec Win XP. Pour les autres versions de windows ce n'est pas supporté.

A+
Guimauve

[Pingtix]

Pas supporté ? Ca veut dire que le programme plante ou que ca fonctionne et que la fenetre est normale ?

[Oliv]

ça ne vas pas sur W98, mais sinon ouvre la DLL et teste si la fonction y est avant de l'utiliser, je crois que Le Soldat Inconnu l'avait fait.

[Le Soldat Inconnu]

Uniquement sur win 2000 et XP

Et le code n'est pas de moi, je me rapelle plus du nom de l'auteur, voir sur le musée si je me trompe pas

[lionel_om]

Dsl de faire remonter un vieux post, mais plutot qu'en recréer un nouvo je préfère mettre ici ma question.

Voila, je voudrais savoir comment rendre l'arrière plan de ma fenêtre transparante, mais pas toute la fenêtre. Je m'explique :

Je voudrais avoir (pour mon lecteur MP3, cf zone débutant) un cadre arrondi et mettre une image d'arrière plan. Cf le screen du logiciel JetAudio :


Merci d'avance
Lionel