PureBoard

Code: Alles auswählen

;=================================================================================================
;  Autor           : Michael Holderried (mueckerich)
;  Modul Name      : AniGIFForm.pb
;  Description     : Displays an animated GIF directly on a Form, which can be also moved.
;  BuildDate       : 22.07.2005
;================================================================================================


;- Window Constants 
; 
#Window_0 = 0 
#SizeWindowX = 400 
#SizeWindowY = 200 

#SS_CENTERIMAGE = $200
#WS_EX_TRANSPARENT = $20

sWin.s

hwnd = OpenWindow(#Window_0, 400, 200, #SizeWindowX , #SizeWindowY, #PB_Window_SystemMenu, "Container-Window") 
If CreateGadgetList(hwnd)
  ButtonGadget(0,250,80,80,40,"End")
EndIf

If OpenLibrary(0,"ATL.DLL")
  If CallFunction(0,"AtlAxWinInit")            ; Init has to be done to register the ATL Class "AtlAxWin"
    sWin = "F:\Projekte\PRJ_PB\BYFLAG.GIF"     ; Thats an Example how to dispaly a lokal stored GIF Animation
;   sWin = "http://www.Somwhere.de//MyGif.gif" ; This Example shows how you can get the GIF Animation from the WEB
    ; now we create the Window for our GIF, it might be possible to create this Window as Topmost Parent?
    hAxW = CreateWindowEx_(#WS_EX_TRANSPARENT | #SS_CENTERIMAGE, "AtlAxWin", sWin, #WS_VISIBLE | #WS_POPUP , 0, 0, 200, 200, hwnd, 0, GetModuleHandle_(0), 0)
    If hAxW 
      SetParent_(hAxW, hwnd)                   ; Set GIF-Window as Child Window from our Container. Otherwise
    EndIf                                      ; it will be a Window which can also be outside of our Container
  EndIf                                        ; Try it out! (comment out SetParent)
EndIf

QuitFrm = 0
Repeat 
  EventID = WaitWindowEvent() 
  Select EventID
    Case #WM_LBUTTONDOWN 
      ReleaseCapture_()  
      ;SendMessage_(hwnd, #WM_SYSCOMMAND, #SC_MOVE + #HTCAPTION, 0)    ;To move (Drag) the Container Window
      SendMessage_(hAxW, #WM_SYSCOMMAND, #SC_MOVE + #HTCAPTION, 0)    ;To move (Drag) the GIF within the Container Window
    Case #PB_Event_Gadget
      Select EventGadgetID()
        Case 0: QuitFrm = 1
      EndSelect
    Case #PB_EventCloseWindow
      QuitFrm = 1
  EndSelect 
Until QuitFrm

DestroyWindow_(hAxW)  ; We have to desroy the Windows, otherwise you'll get a exeption
End