The Perl Toolchain Summit 2025 Needs You: You can help 🙏 Learn more

KMX / Win32-GUI-1.14 / Animation.xs 

            

              
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172

              
    /*
    ###########################################################################
    # (@)PACKAGE:Win32::GUI::Animation
    #
    # $Id: Animation.xs,v 1.3 2004/03/28 15:02:22 lrocher Exp $
    #
    ###########################################################################
    */
#include "GUI.h"
void 
Animation_onPreCreate(NOTXSPROC LPPERLWIN32GUI_CREATESTRUCT perlcs) {
    perlcs->cs.lpszClass = ANIMATE_CLASS;
    perlcs->cs.style = WS_VISIBLE | WS_CHILD;
}
BOOL
Animation_onParseOption(NOTXSPROC char *option, SV* value, LPPERLWIN32GUI_CREATESTRUCT perlcs) {
    BOOL retval = TRUE;
    if BitmaskOptionValue("-autoplay", perlcs->cs.style, ACS_AUTOPLAY)
    } else if BitmaskOptionValue("-center", perlcs->cs.style, ACS_CENTER)
    } else if BitmaskOptionValue("-transparent", perlcs->cs.style, ACS_TRANSPARENT)
    } else retval = FALSE;
    return retval;
}
void 
Animation_onPostCreate(NOTXSPROC HWND myhandle, LPPERLWIN32GUI_CREATESTRUCT perlcs) {
}
BOOL
Animation_onParseEvent(NOTXSPROC char *name, int* eventID) {
    BOOL retval = TRUE;
         if Parse_Event("Start",    PERLWIN32GUI_NEM_CONTROL1)
    else if Parse_Event("Stop",     PERLWIN32GUI_NEM_CONTROL2)
    else retval = FALSE;
    return retval;
}
int
Animation_onEvent (NOTXSPROC LPPERLWIN32GUI_USERDATA perlud, UINT uMsg, WPARAM wParam, LPARAM lParam) {
    int PerlResult = 1;
    if ( uMsg == WM_COMMAND ) {
        switch(HIWORD(wParam)) {
        case ACN_START:
            /*
             * (@)EVENT:Start()
             * Sent when the AVI clip has started playing.
             * (@)APPLIES_TO:Animation
             */ 
            PerlResult = DoEvent(NOTXSCALL perlud, PERLWIN32GUI_NEM_CONTROL1, "Start", -1 );
            break;
        case ACN_STOP:
            /*
             * (@)EVENT:Stop()
             * Sent when the AVI clip has stopped playing.
             * (@)APPLIES_TO:Animation
             */ 
            PerlResult = DoEvent(NOTXSCALL perlud, PERLWIN32GUI_NEM_CONTROL2, "Stop", -1 );
            break;
        }
    }
    return PerlResult;
}
MODULE = Win32::GUI::Animation      PACKAGE = Win32::GUI::Animation
PROTOTYPES: DISABLE
#pragma message( "*** PACKAGE Win32::GUI::Animation..." )
    ###########################################################################
    # (@)METHOD:Open(FILE)
    # Opens an AVI clip and displays its first frame in an animation control. 
BOOL
Open(handle,file)
    HWND handle
    char * file
CODE:
    RETVAL = Animate_Open(handle, (LPSTR) file);
OUTPUT:
    RETVAL
    ###########################################################################
    # (@)METHOD:OpenEx(FILE,[INSTANCE=NULL])
    # Opens an AVI clip from a resource in a specified module and displays its first frame in an animation control.
BOOL
OpenEx(handle,file,instance=NULL)
    HWND handle
    SV * file
    HINSTANCE instance 
PREINIT:
    LPSTR name;
CODE:
    if (SvIOK(file))
      name = MAKEINTRESOURCE ((WORD ) SvIV(file));
    else if (SvPOK(file))
      name = SvPV_nolen(file);
    else
      name = NULL;
    if (name != NULL)
        RETVAL = Animate_OpenEx(handle, instance, (LPSTR) file);
    else
        RETVAL = FALSE;
OUTPUT:
    RETVAL
    ###########################################################################
    # (@)METHOD:Close()
    # Closes an AVI clip and displays its first frame in an animation control
BOOL
Close(handle)
    HWND handle
CODE:
    RETVAL = Animate_Close(handle);
OUTPUT:
    RETVAL
    ###########################################################################
    # (@)METHOD:Play([FROM], [TO], [REPEAT])
    # Plays an AVI clip in an animation control.     
BOOL
Play(handle,from=0,to=(UINT)-1,repeat=(UINT)-1)
    HWND handle
    UINT from
    UINT to
    UINT repeat
CODE:
    RETVAL = Animate_Play(handle, from, to, repeat);
OUTPUT:
    RETVAL
    ###########################################################################
    # (@)METHOD:Stop()
    # Stops playing an AVI clip in an animation control. 
BOOL
Stop(handle)
    HWND handle
CODE:
    RETVAL = Animate_Stop(handle);
OUTPUT:
    RETVAL
    ###########################################################################
    # (@)METHOD:Seek(FRAME)
    # Directs an animation control to display a particular frame of an AVI clip.
BOOL
Seek(handle,frame)
    HWND handle
    UINT frame
CODE:
    RETVAL = Animate_Seek(handle, frame);
OUTPUT:
    RETVAL