XProfan

Français

Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Animation: Datei kopieren
Kleine Erweiterung zu Profan. (P)FairWare, Freeware.
Beispiel, das zeigt, wie unter Profan 32 Bit ein einfaches
Animate Control erzeugt wird.
Hierzu wird die FILECOPY.AVI aus dem aktuellen Verzeichnis
verwendet.
(c) Richard Maurukas
-----------------------------------------------------------------
Window 0,0-640,480
Windowtitle SysAnimate32 mit Profan 32 bit. (c) Richard Maurukas
Settruecolor 1
cls rgb(75,75,192)
declare ende%
declare Animate1&
declare Text1%,text2%,text3%,e%
Declare AVINAME#
Dim AVINAME#,255
DEF @CREATEAnimate(6) @control(SysAnimate32,
@$(2),$50800007,@%(3),@%(4),@%(5),@%(6),@%(1),101, %HInstance)
let Animate1&=CreateAnimate(%Hwnd,,60,20,280,160)
createtext(Animate1&,Kopiere: C:SowiesoTralala,10,40,180,20)
createtext(Animate1&,nach   : irgendwo,10,100,180,20)
let text1% = @Createbutton(%Hwnd,Start,60,180,280,18)
let text2% = @CreateButton(%Hwnd,Stop ,60,200,280,20)
let Text3% = @Createbutton(%Hwnd,Close,60,230,280,20)
String AVINAME#,0=Filecopy.Avi
sendmessage(Animate1&,$464,0,AVINAME#)       ACM_OPEN = WM_USER + 100
Let Ende%=0
Let e%=0

Whilenot Ende%

    if getfocus(text2%)

        let e%=0
        sendmessage(Animate1&,$466,0,0)         ACM_STOP = WM_USER + 102

    elseif getfocus(Text1%)

        sendmessage(Animate1&,$464,0,AVINAME#)   ACM_OPEN = WM_USER + 100
        setfocus(%Hwnd)

    elseif or(equ(%Key,4),getfocus(Text3%))

        let Ende%=1
        Dispose AVIName#

    endif

wend

end
---------------------------
ICC_ANIMATE_CLASS = $80
ANIMATE_CLASS     = SysAnimate32
WM_USER           = $400
ACS_CENTER        = $1
ACS_TRANSPARENT   = $2
ACS_AUTOPLAY      = $4
ACM_OPEN = WM_USER + 100
ACM_PLAY = WM_USER + 101
ACM_STOP = WM_USER + 102
WS_EX_TRANSPARENT = $20
----------------------=s2>---