AVI - Ressource bei jaPBe

[a14xerus]

Wie kann ich eine über das Resources Menü geladene Avi (jaPBe) als #movie abspielen?
in der hilfe steht nur:

You can call them very easy through the WinAPI

[ts-soft]

Du kannst es z.B. über das SysAnimate-Control abspielen. Wenn Du PBOSL installiert hast, hilft dir folgender Code vielleicht weiter:

Code: Alles auswählen

Procedure AnimateOpen(Gadget, Ani.s,hInstance.l = 0)
  ProcedureReturn SendMessage_(GadgetID(Gadget), #ACM_OPEN, hInstance , Ani)
EndProcedure

Procedure AnimatePlay(Gadget,loop.l = -1, start = 0,ende = -1)
  ProcedureReturn SendMessage_(GadgetID(Gadget),#ACM_PLAY,loop,(start | (ende << 16)))
EndProcedure

Procedure AnimateStop(Gadget)
  ProcedureReturn SendMessage_(GadgetID(Gadget),#ACM_STOP, 0, 0)
EndProcedure

Procedure AnimateGadget(ID,x, y, cx, cy)
  ProcedureReturn CreateGadget(ID, "SysAnimate32", "", #ACS_CENTER | #ACS_TRANSPARENT | #WS_CHILD | #WS_VISIBLE, x, y, cx, cy, 0, 0, 0)
EndProcedure

Nach dem erstellen des gadgets, AnimateOpen(Gadget, "#1") aufrufen, wobei Dein AVI die Nr. 1 in der Resouce haben sollte
Ansonsten findest noch ein CodeBeispiel im CodeArchiv, wo Du die CreateGadget Lib nicht brauchst.