PureBasic

Apres avoir reussi a afficher un flash dans un webgadget, je me demandais si ce serait possible de le mettre en fond d'ecran, et placer mes gadgets dessus.
a premier abbord c'est impossible, j'ai essaye et ca n'a pas marche, mais peut etre kelkin aura une idee

Code : Tout sélectionner

;{- Enumerations / DataSections
;{ Windows
Enumeration
  #Window_0
EndEnumeration
;}
;{ Gadgets
Enumeration
  #Web_0
  #Button_0
  #Text_0
EndEnumeration
;}
Define.l Event, EventWindow, EventGadget, EventType, EventMenu
;}
Procedure OpenWindow_Window_0()
  If OpenWindow(#Window_0, 471, 31, 562, 259, "New window ( 0 )", #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar|#PB_Window_ScreenCentered|#PB_Window_BorderLess)
    WebGadget(#Web_0, 15, 5, 440, 190, "file:///D:/flash.swf", #PB_Web_Mozilla)
    ButtonGadget(#Button_0, 385, 135, 140, 60, "")
    TextGadget(#Text_0, 430, 55, 210, 50, "fghfgh")
  EndIf
EndProcedure

OpenWindow_Window_0()

;{- Event loop
Repeat
  Event = WaitWindowEvent()
  Select Event
    ; ///////////////////
    Case #PB_Event_Gadget
      EventGadget = EventGadget()
      EventType = EventType()
      If EventGadget = #Web_0
      ElseIf EventGadget = #Button_0
      ElseIf EventGadget = #Text_0
      EndIf
    ; ////////////////////////
    Case #PB_Event_CloseWindow
      EventWindow = EventWindow()
      If EventWindow = #Window_0
        CloseWindow(#Window_0)
        Break
      EndIf
  EndSelect
ForEver
;
;}

ps c'est bizarre mais sur pb 4.30 le flash s'affiche. sur 4.51 il propose de le telecharger...

PureBasic

Flash en fond d'ecran

Flash en fond d'ecran