Fixed crash in winamp reported by Andreas Mohr.
[wine] / dlls / comctl32 / animate.c
1 /* -*- tab-width: 8; c-basic-offset: 4 -*- */
2 /*
3  * Animation control
4  *
5  * Copyright 1998, 1999 Eric Kohl
6  *                 1999 Eric Pouech
7  *
8  * This library is free software; you can redistribute it and/or
9  * modify it under the terms of the GNU Lesser General Public
10  * License as published by the Free Software Foundation; either
11  * version 2.1 of the License, or (at your option) any later version.
12  *
13  * This library is distributed in the hope that it will be useful,
14  * but WITHOUT ANY WARRANTY; without even the implied warranty of
15  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
16  * Lesser General Public License for more details.
17  *
18  * You should have received a copy of the GNU Lesser General Public
19  * License along with this library; if not, write to the Free Software
20  * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
21  *
22  * NOTES
23  *   I will only improve this control once in a while.
24  *     Eric <ekohl@abo.rhein-zeitung.de>
25  *
26  * TODO:
27  *   - check for the 'rec ' list in some AVI files
28  *   - concurrent access to infoPtr
29  */
30
31 #define COM_NO_WINDOWS_H
32 #include <string.h>
33 #include "winbase.h"
34 #include "commctrl.h"
35 #include "vfw.h"
36 #include "mmsystem.h"
37 #include "wine/debug.h"
38
39 WINE_DEFAULT_DEBUG_CHANNEL(animate);
40
41 static struct {
42     HMODULE     hModule;
43     HIC         (WINAPI *fnICOpen)(DWORD, DWORD, UINT);
44     LRESULT     (WINAPI *fnICClose)(HIC);
45     LRESULT     (WINAPI *fnICSendMessage)(HIC, UINT, DWORD, DWORD);
46     DWORD       (WINAPIV *fnICDecompress)(HIC,DWORD,LPBITMAPINFOHEADER,LPVOID,LPBITMAPINFOHEADER,LPVOID);
47 } fnIC;
48
49 typedef struct
50 {
51    /* reference to input stream (file or resource) */
52    HGLOBAL              hRes;
53    HMMIO                hMMio;  /* handle to mmio stream */
54    HWND                 hWnd;
55    /* information on the loaded AVI file */
56    MainAVIHeader        mah;
57    AVIStreamHeader      ash;
58    LPBITMAPINFOHEADER   inbih;
59    LPDWORD              lpIndex;
60    /* data for the decompressor */
61    HIC                  hic;
62    LPBITMAPINFOHEADER   outbih;
63    LPVOID               indata;
64    LPVOID               outdata;
65    /* data for the background mechanism */
66    CRITICAL_SECTION     cs;
67    HANDLE               hThread;
68    UINT                 uTimer;
69    /* data for playing the file */
70    int                  nFromFrame;
71    int                  nToFrame;
72    int                  nLoop;
73    int                  currFrame;
74    /* tranparency info*/
75    COLORREF             transparentColor;
76    HBRUSH               hbrushBG;
77    HBITMAP              hbmPrevFrame;
78 } ANIMATE_INFO;
79
80 #define ANIMATE_GetInfoPtr(hWnd) ((ANIMATE_INFO *)GetWindowLongA(hWnd, 0))
81 #define ANIMATE_COLOR_NONE      0xffffffff
82
83 static void ANIMATE_Notify(ANIMATE_INFO* infoPtr, UINT notif)
84 {
85     SendMessageA(GetParent(infoPtr->hWnd), WM_COMMAND,
86                  MAKEWPARAM(GetDlgCtrlID(infoPtr->hWnd), notif),
87                  (LPARAM)infoPtr->hWnd);
88 }
89
90 static BOOL ANIMATE_LoadResA(ANIMATE_INFO *infoPtr, HINSTANCE hInst, LPSTR lpName)
91 {
92     HRSRC       hrsrc;
93     MMIOINFO    mminfo;
94     LPVOID      lpAvi;
95
96     hrsrc = FindResourceA(hInst, lpName, "AVI");
97     if (!hrsrc)
98         return FALSE;
99
100     infoPtr->hRes = LoadResource(hInst, hrsrc);
101     if (!infoPtr->hRes)
102         return FALSE;
103
104     lpAvi = LockResource(infoPtr->hRes);
105     if (!lpAvi)
106         return FALSE;
107
108     memset(&mminfo, 0, sizeof(mminfo));
109     mminfo.fccIOProc = FOURCC_MEM;
110     mminfo.pchBuffer = (LPSTR)lpAvi;
111     mminfo.cchBuffer = SizeofResource(hInst, hrsrc);
112     infoPtr->hMMio = mmioOpenA(NULL, &mminfo, MMIO_READ);
113     if (!infoPtr->hMMio) {
114         GlobalFree((HGLOBAL)lpAvi);
115         return FALSE;
116     }
117
118     return TRUE;
119 }
120
121
122 static BOOL ANIMATE_LoadFileA(ANIMATE_INFO *infoPtr, LPSTR lpName)
123 {
124     infoPtr->hMMio = mmioOpenA((LPSTR)lpName, NULL,
125                                MMIO_ALLOCBUF | MMIO_READ | MMIO_DENYWRITE);
126
127     if (!infoPtr->hMMio)
128         return FALSE;
129
130     return TRUE;
131 }
132
133
134 static LRESULT ANIMATE_DoStop(ANIMATE_INFO *infoPtr)
135 {
136     EnterCriticalSection(&infoPtr->cs);
137
138     /* should stop playing */
139     if (infoPtr->hThread)
140     {
141         if (!TerminateThread(infoPtr->hThread,0))
142             WARN("could not destroy animation thread!\n");
143             infoPtr->hThread = 0;
144     }
145     if (infoPtr->uTimer) {
146         KillTimer(infoPtr->hWnd, infoPtr->uTimer);
147         infoPtr->uTimer = 0;
148     }
149
150     LeaveCriticalSection(&infoPtr->cs);
151
152     ANIMATE_Notify(infoPtr, ACN_STOP);
153
154     return TRUE;
155 }
156
157
158 static void ANIMATE_Free(ANIMATE_INFO *infoPtr)
159 {
160     if (infoPtr->hMMio) {
161         ANIMATE_DoStop(infoPtr);
162         mmioClose(infoPtr->hMMio, 0);
163         if (infoPtr->hRes) {
164             FreeResource(infoPtr->hRes);
165             infoPtr->hRes = 0;
166         }
167         if (infoPtr->lpIndex) {
168             HeapFree(GetProcessHeap(), 0, infoPtr->lpIndex);
169             infoPtr->lpIndex = NULL;
170         }
171         if (infoPtr->hic) {
172             fnIC.fnICClose(infoPtr->hic);
173             infoPtr->hic = 0;
174         }
175         if (infoPtr->inbih) {
176             HeapFree(GetProcessHeap(), 0, infoPtr->inbih);
177             infoPtr->inbih = NULL;
178         }
179         if (infoPtr->outbih) {
180             HeapFree(GetProcessHeap(), 0, infoPtr->outbih);
181             infoPtr->outbih = NULL;
182         }
183         if( infoPtr->indata )
184         {
185         HeapFree(GetProcessHeap(), 0, infoPtr->indata);
186             infoPtr->indata = NULL;
187         }
188         if( infoPtr->outdata )
189         {
190         HeapFree(GetProcessHeap(), 0, infoPtr->outdata);
191             infoPtr->outdata = NULL;
192         }
193         if( infoPtr->hbmPrevFrame )
194         {
195             DeleteObject(infoPtr->hbmPrevFrame);
196             infoPtr->hbmPrevFrame = 0;
197         }
198         infoPtr->indata = infoPtr->outdata = NULL;
199         infoPtr->hWnd = 0;
200         infoPtr->hMMio = 0;
201
202         memset(&infoPtr->mah, 0, sizeof(infoPtr->mah));
203         memset(&infoPtr->ash, 0, sizeof(infoPtr->ash));
204         infoPtr->nFromFrame = infoPtr->nToFrame = infoPtr->nLoop = infoPtr->currFrame = 0;
205     }
206     infoPtr->transparentColor = ANIMATE_COLOR_NONE;
207 }
208
209 static void ANIMATE_TransparentBlt(ANIMATE_INFO* infoPtr, HDC hdcDest, HDC hdcSource)
210 {
211     HDC hdcMask;
212     HBITMAP hbmMask;
213     HBITMAP hbmOld;
214
215     /* create a transparency mask */
216     hdcMask = CreateCompatibleDC(hdcDest);
217     hbmMask = CreateBitmap(infoPtr->inbih->biWidth, infoPtr->inbih->biHeight, 1,1,NULL);
218     hbmOld = SelectObject(hdcMask, hbmMask);
219
220     SetBkColor(hdcSource,infoPtr->transparentColor);
221     BitBlt(hdcMask,0,0,infoPtr->inbih->biWidth, infoPtr->inbih->biHeight,hdcSource,0,0,SRCCOPY);
222
223     /* mask the source bitmap */
224     SetBkColor(hdcSource, RGB(0,0,0));
225     SetTextColor(hdcSource, RGB(255,255,255));
226     BitBlt(hdcSource, 0, 0, infoPtr->inbih->biWidth, infoPtr->inbih->biHeight, hdcMask, 0, 0, SRCAND);
227
228     /* mask the destination bitmap */
229     SetBkColor(hdcDest, RGB(255,255,255));
230     SetTextColor(hdcDest, RGB(0,0,0));
231     BitBlt(hdcDest, 0, 0, infoPtr->inbih->biWidth, infoPtr->inbih->biHeight, hdcMask, 0, 0, SRCAND);
232
233     /* combine source and destination */
234     BitBlt(hdcDest,0,0,infoPtr->inbih->biWidth, infoPtr->inbih->biHeight,hdcSource,0,0,SRCPAINT);
235
236     SelectObject(hdcMask, hbmOld);
237     DeleteObject(hbmMask);
238     DeleteDC(hdcMask);
239 }
240
241 static LRESULT ANIMATE_PaintFrame(ANIMATE_INFO* infoPtr, HDC hDC)
242 {
243     void* pBitmapData = NULL;
244     LPBITMAPINFO pBitmapInfo = NULL;
245
246     HDC hdcMem;
247     HBITMAP hbmOld;
248
249     int nOffsetX = 0;
250     int nOffsetY = 0;
251
252     int nWidth;
253     int nHeight;
254
255     if (!hDC || !infoPtr->inbih)
256         return TRUE;
257
258     if (infoPtr->hic )
259     {
260         pBitmapData = infoPtr->outdata;
261         pBitmapInfo = (LPBITMAPINFO)infoPtr->outbih;
262
263         nWidth = infoPtr->outbih->biWidth;
264         nHeight = infoPtr->outbih->biHeight;
265     } else
266     {
267         pBitmapData = infoPtr->indata;
268         pBitmapInfo = (LPBITMAPINFO)infoPtr->inbih;
269
270         nWidth = infoPtr->inbih->biWidth;
271         nHeight = infoPtr->inbih->biHeight;
272     }
273
274     if(!infoPtr->hbmPrevFrame)
275     {
276         infoPtr->hbmPrevFrame=CreateCompatibleBitmap(hDC, nWidth,nHeight );
277     }
278
279     SetDIBits(hDC, infoPtr->hbmPrevFrame, 0, nHeight, pBitmapData, (LPBITMAPINFO)pBitmapInfo, DIB_RGB_COLORS);
280
281     hdcMem = CreateCompatibleDC(hDC);
282     hbmOld = SelectObject(hdcMem, infoPtr->hbmPrevFrame);
283
284     /*
285      * we need to get the transparent color even without ACS_TRANSPARENT,
286      * because the style can be changed later on and the color should always
287      * be obtained in the first frame
288      */
289     if(infoPtr->transparentColor == ANIMATE_COLOR_NONE)
290     {
291         infoPtr->transparentColor = GetPixel(hdcMem,0,0);
292     }
293
294     if(GetWindowLongA(infoPtr->hWnd, GWL_STYLE) & ACS_TRANSPARENT)
295     {
296         HDC hdcFinal = CreateCompatibleDC(hDC);
297         HBITMAP hbmFinal = CreateCompatibleBitmap(hDC,nWidth, nHeight);
298         HBITMAP hbmOld2 = SelectObject(hdcFinal, hbmFinal);
299         RECT rect;
300
301         rect.left = 0;
302         rect.top = 0;
303         rect.right = nWidth;
304         rect.bottom = nHeight;
305
306         if(!infoPtr->hbrushBG)
307             infoPtr->hbrushBG = GetCurrentObject(hDC, OBJ_BRUSH);
308
309         FillRect(hdcFinal, &rect, infoPtr->hbrushBG);
310         ANIMATE_TransparentBlt(infoPtr, hdcFinal, hdcMem);
311
312         SelectObject(hdcFinal, hbmOld2);
313         SelectObject(hdcMem, hbmFinal);
314         DeleteDC(hdcFinal);
315         DeleteObject(infoPtr->hbmPrevFrame);
316         infoPtr->hbmPrevFrame = hbmFinal;
317          }
318
319     if (GetWindowLongA(infoPtr->hWnd, GWL_STYLE) & ACS_CENTER)
320     {
321        RECT rect;
322
323        GetWindowRect(infoPtr->hWnd, &rect);
324        nOffsetX = ((rect.right - rect.left) - nWidth)/2;
325        nOffsetY = ((rect.bottom - rect.top) - nHeight)/2;
326     }
327     BitBlt(hDC, nOffsetX, nOffsetY, nWidth, nHeight, hdcMem, 0, 0, SRCCOPY);
328
329     SelectObject(hdcMem, hbmOld);
330     DeleteDC(hdcMem);
331     return TRUE;
332 }
333
334 static LRESULT ANIMATE_DrawFrame(ANIMATE_INFO* infoPtr)
335 {
336     HDC         hDC;
337
338     TRACE("Drawing frame %d (loop %d)\n", infoPtr->currFrame, infoPtr->nLoop);
339
340     EnterCriticalSection(&infoPtr->cs);
341
342     mmioSeek(infoPtr->hMMio, infoPtr->lpIndex[infoPtr->currFrame], SEEK_SET);
343     mmioRead(infoPtr->hMMio, infoPtr->indata, infoPtr->ash.dwSuggestedBufferSize);
344
345     if (infoPtr->hic &&
346         fnIC.fnICDecompress(infoPtr->hic, 0, infoPtr->inbih, infoPtr->indata,
347                      infoPtr->outbih, infoPtr->outdata) != ICERR_OK) {
348         LeaveCriticalSection(&infoPtr->cs);
349         WARN("Decompression error\n");
350         return FALSE;
351     }
352
353     if ((hDC = GetDC(infoPtr->hWnd)) != 0) {
354         ANIMATE_PaintFrame(infoPtr, hDC);
355         ReleaseDC(infoPtr->hWnd, hDC);
356     }
357
358     if (infoPtr->currFrame++ >= infoPtr->nToFrame) {
359         infoPtr->currFrame = infoPtr->nFromFrame;
360         if (infoPtr->nLoop != -1) {
361             if (--infoPtr->nLoop == 0) {
362                 ANIMATE_DoStop(infoPtr);
363             }
364         }
365     }
366     LeaveCriticalSection(&infoPtr->cs);
367
368     return TRUE;
369 }
370
371 static DWORD CALLBACK ANIMATE_AnimationThread(LPVOID ptr_)
372 {
373     ANIMATE_INFO*       infoPtr = (ANIMATE_INFO*)ptr_;
374     HDC hDC;
375
376     if(!infoPtr)
377     {
378         WARN("animation structure undefined!\n");
379         return FALSE;
380     }
381
382     while(1)
383     {
384         if(GetWindowLongA(infoPtr->hWnd, GWL_STYLE) & ACS_TRANSPARENT)
385         {
386             hDC = GetDC(infoPtr->hWnd);
387             /* sometimes the animation window will be destroyed in between
388              * by the main program, so a ReleaseDC() error msg is possible */
389             infoPtr->hbrushBG = (HBRUSH)SendMessageA(GetParent(infoPtr->hWnd),
390                                              WM_CTLCOLORSTATIC, (WPARAM)hDC,
391                                              (LPARAM)infoPtr->hWnd);
392             ReleaseDC(infoPtr->hWnd,hDC);
393         }
394
395         EnterCriticalSection(&infoPtr->cs);
396         ANIMATE_DrawFrame(infoPtr);
397         LeaveCriticalSection(&infoPtr->cs);
398
399         /* time is in microseconds, we should convert it to milliseconds */
400         Sleep((infoPtr->mah.dwMicroSecPerFrame+500)/1000);
401     }
402     return TRUE;
403 }
404
405 static LRESULT ANIMATE_Play(HWND hWnd, WPARAM wParam, LPARAM lParam)
406 {
407     ANIMATE_INFO *infoPtr = ANIMATE_GetInfoPtr(hWnd);
408
409     /* nothing opened */
410     if (!infoPtr->hMMio)
411         return FALSE;
412
413     if (infoPtr->hThread || infoPtr->uTimer) {
414         FIXME("Already playing ? what should I do ??\n");
415         ANIMATE_DoStop(infoPtr);
416     }
417
418     infoPtr->nFromFrame = (INT)LOWORD(lParam);
419     infoPtr->nToFrame   = (INT)HIWORD(lParam);
420     infoPtr->nLoop      = (INT)wParam;
421
422     if (infoPtr->nToFrame == 0xFFFF)
423         infoPtr->nToFrame = infoPtr->mah.dwTotalFrames - 1;
424
425     TRACE("(repeat=%d from=%d to=%d);\n",
426           infoPtr->nLoop, infoPtr->nFromFrame, infoPtr->nToFrame);
427
428     if (infoPtr->nFromFrame >= infoPtr->nToFrame ||
429         infoPtr->nToFrame >= infoPtr->mah.dwTotalFrames)
430         return FALSE;
431
432     infoPtr->currFrame = infoPtr->nFromFrame;
433
434     if (GetWindowLongA(hWnd, GWL_STYLE) & ACS_TIMER) {
435         TRACE("Using a timer\n");
436         /* create a timer to display AVI */
437         infoPtr->uTimer = SetTimer(hWnd, 1, infoPtr->mah.dwMicroSecPerFrame / 1000, NULL);
438     } else {
439         DWORD threadID;
440
441         TRACE("Using an animation thread\n");
442         infoPtr->hThread = CreateThread(0,0,ANIMATE_AnimationThread,(LPVOID)infoPtr, 0, &threadID);
443         if(!infoPtr->hThread)
444         {
445            ERR("Could not create animation thread!\n");
446            return FALSE;
447     }
448
449     }
450
451     ANIMATE_Notify(infoPtr, ACN_START);
452
453     return TRUE;
454 }
455
456
457 static BOOL ANIMATE_GetAviInfo(ANIMATE_INFO *infoPtr)
458 {
459     MMCKINFO            ckMainRIFF;
460     MMCKINFO            mmckHead;
461     MMCKINFO            mmckList;
462     MMCKINFO            mmckInfo;
463     DWORD               numFrame;
464     DWORD               insize;
465
466     if (mmioDescend(infoPtr->hMMio, &ckMainRIFF, NULL, 0) != 0) {
467         WARN("Can't find 'RIFF' chunk\n");
468         return FALSE;
469     }
470
471     if ((ckMainRIFF.ckid != FOURCC_RIFF) ||
472         (ckMainRIFF.fccType != mmioFOURCC('A', 'V', 'I', ' '))) {
473         WARN("Can't find 'AVI ' chunk\n");
474         return FALSE;
475     }
476
477     mmckHead.fccType = mmioFOURCC('h', 'd', 'r', 'l');
478     if (mmioDescend(infoPtr->hMMio, &mmckHead, &ckMainRIFF, MMIO_FINDLIST) != 0) {
479         WARN("Can't find 'hdrl' list\n");
480         return FALSE;
481     }
482
483     mmckInfo.ckid = mmioFOURCC('a', 'v', 'i', 'h');
484     if (mmioDescend(infoPtr->hMMio, &mmckInfo, &mmckHead, MMIO_FINDCHUNK) != 0) {
485         WARN("Can't find 'avih' chunk\n");
486         return FALSE;
487     }
488
489     mmioRead(infoPtr->hMMio, (LPSTR)&infoPtr->mah, sizeof(infoPtr->mah));
490
491     TRACE("mah.dwMicroSecPerFrame=%ld\n",       infoPtr->mah.dwMicroSecPerFrame);
492     TRACE("mah.dwMaxBytesPerSec=%ld\n",         infoPtr->mah.dwMaxBytesPerSec);
493     TRACE("mah.dwPaddingGranularity=%ld\n",     infoPtr->mah.dwPaddingGranularity);
494     TRACE("mah.dwFlags=%ld\n",                  infoPtr->mah.dwFlags);
495     TRACE("mah.dwTotalFrames=%ld\n",            infoPtr->mah.dwTotalFrames);
496     TRACE("mah.dwInitialFrames=%ld\n",          infoPtr->mah.dwInitialFrames);
497     TRACE("mah.dwStreams=%ld\n",                infoPtr->mah.dwStreams);
498     TRACE("mah.dwSuggestedBufferSize=%ld\n",    infoPtr->mah.dwSuggestedBufferSize);
499     TRACE("mah.dwWidth=%ld\n",                  infoPtr->mah.dwWidth);
500     TRACE("mah.dwHeight=%ld\n",                 infoPtr->mah.dwHeight);
501
502     mmioAscend(infoPtr->hMMio, &mmckInfo, 0);
503
504     mmckList.fccType = mmioFOURCC('s', 't', 'r', 'l');
505     if (mmioDescend(infoPtr->hMMio, &mmckList, &mmckHead, MMIO_FINDLIST) != 0) {
506         WARN("Can't find 'strl' list\n");
507         return FALSE;
508     }
509
510     mmckInfo.ckid = mmioFOURCC('s', 't', 'r', 'h');
511     if (mmioDescend(infoPtr->hMMio, &mmckInfo, &mmckList, MMIO_FINDCHUNK) != 0) {
512         WARN("Can't find 'strh' chunk\n");
513         return FALSE;
514     }
515
516     mmioRead(infoPtr->hMMio, (LPSTR)&infoPtr->ash, sizeof(infoPtr->ash));
517
518     TRACE("ash.fccType='%c%c%c%c'\n",           LOBYTE(LOWORD(infoPtr->ash.fccType)),
519                                                 HIBYTE(LOWORD(infoPtr->ash.fccType)),
520                                                 LOBYTE(HIWORD(infoPtr->ash.fccType)),
521                                                 HIBYTE(HIWORD(infoPtr->ash.fccType)));
522     TRACE("ash.fccHandler='%c%c%c%c'\n",        LOBYTE(LOWORD(infoPtr->ash.fccHandler)),
523                                                 HIBYTE(LOWORD(infoPtr->ash.fccHandler)),
524                                                 LOBYTE(HIWORD(infoPtr->ash.fccHandler)),
525                                                 HIBYTE(HIWORD(infoPtr->ash.fccHandler)));
526     TRACE("ash.dwFlags=%ld\n",                  infoPtr->ash.dwFlags);
527     TRACE("ash.wPriority=%d\n",                 infoPtr->ash.wPriority);
528     TRACE("ash.wLanguage=%d\n",                 infoPtr->ash.wLanguage);
529     TRACE("ash.dwInitialFrames=%ld\n",          infoPtr->ash.dwInitialFrames);
530     TRACE("ash.dwScale=%ld\n",                  infoPtr->ash.dwScale);
531     TRACE("ash.dwRate=%ld\n",                   infoPtr->ash.dwRate);
532     TRACE("ash.dwStart=%ld\n",                  infoPtr->ash.dwStart);
533     TRACE("ash.dwLength=%ld\n",                 infoPtr->ash.dwLength);
534     TRACE("ash.dwSuggestedBufferSize=%ld\n",    infoPtr->ash.dwSuggestedBufferSize);
535     TRACE("ash.dwQuality=%ld\n",                infoPtr->ash.dwQuality);
536     TRACE("ash.dwSampleSize=%ld\n",             infoPtr->ash.dwSampleSize);
537     TRACE("ash.rcFrame=(%d,%d,%d,%d)\n",        infoPtr->ash.rcFrame.top, infoPtr->ash.rcFrame.left,
538           infoPtr->ash.rcFrame.bottom, infoPtr->ash.rcFrame.right);
539
540     mmioAscend(infoPtr->hMMio, &mmckInfo, 0);
541
542     mmckInfo.ckid = mmioFOURCC('s', 't', 'r', 'f');
543     if (mmioDescend(infoPtr->hMMio, &mmckInfo, &mmckList, MMIO_FINDCHUNK) != 0) {
544         WARN("Can't find 'strh' chunk\n");
545         return FALSE;
546     }
547
548     infoPtr->inbih = HeapAlloc(GetProcessHeap(), 0, mmckInfo.cksize);
549     if (!infoPtr->inbih) {
550         WARN("Can't alloc input BIH\n");
551         return FALSE;
552     }
553
554     mmioRead(infoPtr->hMMio, (LPSTR)infoPtr->inbih, mmckInfo.cksize);
555
556     TRACE("bih.biSize=%ld\n",           infoPtr->inbih->biSize);
557     TRACE("bih.biWidth=%ld\n",          infoPtr->inbih->biWidth);
558     TRACE("bih.biHeight=%ld\n",         infoPtr->inbih->biHeight);
559     TRACE("bih.biPlanes=%d\n",          infoPtr->inbih->biPlanes);
560     TRACE("bih.biBitCount=%d\n",        infoPtr->inbih->biBitCount);
561     TRACE("bih.biCompression=%ld\n",    infoPtr->inbih->biCompression);
562     TRACE("bih.biSizeImage=%ld\n",      infoPtr->inbih->biSizeImage);
563     TRACE("bih.biXPelsPerMeter=%ld\n",  infoPtr->inbih->biXPelsPerMeter);
564     TRACE("bih.biYPelsPerMeter=%ld\n",  infoPtr->inbih->biYPelsPerMeter);
565     TRACE("bih.biClrUsed=%ld\n",        infoPtr->inbih->biClrUsed);
566     TRACE("bih.biClrImportant=%ld\n",   infoPtr->inbih->biClrImportant);
567
568     mmioAscend(infoPtr->hMMio, &mmckInfo, 0);
569
570     mmioAscend(infoPtr->hMMio, &mmckList, 0);
571
572 #if 0
573     /* an AVI has 0 or 1 video stream, and to be animated should not contain
574      * an audio stream, so only one strl is allowed
575      */
576     mmckList.fccType = mmioFOURCC('s', 't', 'r', 'l');
577     if (mmioDescend(infoPtr->hMMio, &mmckList, &mmckHead, MMIO_FINDLIST) == 0) {
578         WARN("There should be a single 'strl' list\n");
579         return FALSE;
580     }
581 #endif
582
583     mmioAscend(infoPtr->hMMio, &mmckHead, 0);
584
585     /* no need to read optional JUNK chunk */
586
587     mmckList.fccType = mmioFOURCC('m', 'o', 'v', 'i');
588     if (mmioDescend(infoPtr->hMMio, &mmckList, &ckMainRIFF, MMIO_FINDLIST) != 0) {
589         WARN("Can't find 'movi' list\n");
590         return FALSE;
591     }
592
593     /* FIXME: should handle the 'rec ' LIST when present */
594
595     infoPtr->lpIndex = HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY,
596                                  infoPtr->mah.dwTotalFrames * sizeof(DWORD));
597     if (!infoPtr->lpIndex) {
598         WARN("Can't alloc index array\n");
599         return FALSE;
600     }
601
602     numFrame = insize = 0;
603     while (mmioDescend(infoPtr->hMMio, &mmckInfo, &mmckList, 0) == 0 &&
604            numFrame < infoPtr->mah.dwTotalFrames) {
605         infoPtr->lpIndex[numFrame] = mmckInfo.dwDataOffset;
606         if (insize < mmckInfo.cksize)
607             insize = mmckInfo.cksize;
608         numFrame++;
609         mmioAscend(infoPtr->hMMio, &mmckInfo, 0);
610     }
611     if (numFrame != infoPtr->mah.dwTotalFrames) {
612         WARN("Found %ld frames (/%ld)\n", numFrame, infoPtr->mah.dwTotalFrames);
613         return FALSE;
614     }
615     if (insize > infoPtr->ash.dwSuggestedBufferSize) {
616         WARN("insize=%ld suggestedSize=%ld\n", insize, infoPtr->ash.dwSuggestedBufferSize);
617         infoPtr->ash.dwSuggestedBufferSize = insize;
618     }
619
620     infoPtr->indata = HeapAlloc(GetProcessHeap(), 0, infoPtr->ash.dwSuggestedBufferSize);
621     if (!infoPtr->indata) {
622         WARN("Can't alloc input buffer\n");
623         return FALSE;
624     }
625
626     return TRUE;
627 }
628
629
630 static BOOL    ANIMATE_GetAviCodec(ANIMATE_INFO *infoPtr)
631 {
632     DWORD       outSize;
633
634     /* check uncompressed AVI */
635     if ((infoPtr->ash.fccHandler == mmioFOURCC('D', 'I', 'B', ' ')) ||
636        (infoPtr->ash.fccHandler == mmioFOURCC('R', 'L', 'E', ' ')) ||
637        (infoPtr->ash.fccHandler == mmioFOURCC(0, 0, 0, 0)))
638     {
639         infoPtr->hic = 0;
640         return TRUE;
641     }
642
643     /* try to get a decompressor for that type */
644     infoPtr->hic = fnIC.fnICOpen(ICTYPE_VIDEO, infoPtr->ash.fccHandler, ICMODE_DECOMPRESS);
645     if (!infoPtr->hic) {
646         WARN("Can't load codec for the file\n");
647         return FALSE;
648     }
649
650     outSize = fnIC.fnICSendMessage(infoPtr->hic, ICM_DECOMPRESS_GET_FORMAT,
651                             (DWORD)infoPtr->inbih, 0L);
652
653     infoPtr->outbih = HeapAlloc(GetProcessHeap(), 0, outSize);
654     if (!infoPtr->outbih) {
655         WARN("Can't alloc output BIH\n");
656         return FALSE;
657     }
658
659     if (fnIC.fnICSendMessage(infoPtr->hic, ICM_DECOMPRESS_GET_FORMAT,
660                       (DWORD)infoPtr->inbih, (DWORD)infoPtr->outbih) != ICERR_OK) {
661         WARN("Can't get output BIH\n");
662         return FALSE;
663     }
664
665     infoPtr->outdata = HeapAlloc(GetProcessHeap(), 0, infoPtr->outbih->biSizeImage);
666     if (!infoPtr->outdata) {
667         WARN("Can't alloc output buffer\n");
668         return FALSE;
669     }
670
671     if (fnIC.fnICSendMessage(infoPtr->hic, ICM_DECOMPRESS_BEGIN,
672                       (DWORD)infoPtr->inbih, (DWORD)infoPtr->outbih) != ICERR_OK) {
673         WARN("Can't begin decompression\n");
674         return FALSE;
675     }
676
677     return TRUE;
678 }
679
680 static LRESULT ANIMATE_OpenA(HWND hWnd, WPARAM wParam, LPARAM lParam)
681 {
682     ANIMATE_INFO *infoPtr = ANIMATE_GetInfoPtr(hWnd);
683     HINSTANCE hInstance = (HINSTANCE)wParam;
684
685     ANIMATE_Free(infoPtr);
686     infoPtr->hWnd = hWnd;
687
688     if (!lParam) {
689         TRACE("Closing avi!\n");
690         /* installer of thebat! v1.62 requires FALSE here */
691         return (infoPtr->hMMio != 0);
692     }
693
694     if (!hInstance)
695        hInstance = (HINSTANCE)GetWindowLongA(hWnd, GWL_HINSTANCE);
696
697     if (HIWORD(lParam)) {
698         TRACE("(\"%s\");\n", (LPSTR)lParam);
699
700         if (!ANIMATE_LoadResA(infoPtr, hInstance, (LPSTR)lParam)) {
701             TRACE("No AVI resource found!\n");
702             if (!ANIMATE_LoadFileA(infoPtr, (LPSTR)lParam)) {
703                 WARN("No AVI file found!\n");
704                 return FALSE;
705             }
706         }
707     } else {
708         TRACE("(%u);\n", (WORD)LOWORD(lParam));
709
710         if (!ANIMATE_LoadResA(infoPtr, hInstance,
711                               MAKEINTRESOURCEA((INT)lParam))) {
712             WARN("No AVI resource found!\n");
713             return FALSE;
714         }
715     }
716
717     if (!ANIMATE_GetAviInfo(infoPtr)) {
718         WARN("Can't get AVI information\n");
719         ANIMATE_Free(infoPtr);
720         return FALSE;
721     }
722
723     if (!ANIMATE_GetAviCodec(infoPtr)) {
724         WARN("Can't get AVI Codec\n");
725         ANIMATE_Free(infoPtr);
726         return FALSE;
727     }
728
729     if (!GetWindowLongA(hWnd, GWL_STYLE) & ACS_CENTER) {
730         SetWindowPos(hWnd, 0, 0, 0, infoPtr->mah.dwWidth, infoPtr->mah.dwHeight,
731                      SWP_NOACTIVATE | SWP_NOMOVE | SWP_NOZORDER);
732     }
733
734     if (GetWindowLongA(hWnd, GWL_STYLE) & ACS_AUTOPLAY) {
735         return ANIMATE_Play(hWnd, -1, (LPARAM)MAKELONG(0, infoPtr->mah.dwTotalFrames-1));
736     }
737
738     return TRUE;
739 }
740
741
742 /* << ANIMATE_Open32W >> */
743
744 static LRESULT ANIMATE_Stop(HWND hWnd, WPARAM wParam, LPARAM lParam)
745 {
746     ANIMATE_INFO *infoPtr = ANIMATE_GetInfoPtr(hWnd);
747
748     /* nothing opened */
749     if (!infoPtr->hMMio)
750         return FALSE;
751
752     ANIMATE_DoStop(infoPtr);
753     return TRUE;
754 }
755
756
757 static LRESULT ANIMATE_Create(HWND hWnd, WPARAM wParam, LPARAM lParam)
758 {
759     ANIMATE_INFO*       infoPtr;
760
761     if (!fnIC.hModule) /* FIXME: not thread safe */
762     {
763         /* since there's a circular dep between msvfw32 and comctl32, we could either:
764          * - fix the build chain to allow this circular dep
765          * - handle it by hand
766          * AJ wants the latter :-(
767          */
768         fnIC.hModule = LoadLibraryA("msvfw32.dll");
769         if (!fnIC.hModule) return FALSE;
770
771         fnIC.fnICOpen        = (void*)GetProcAddress(fnIC.hModule, "ICOpen");
772         fnIC.fnICClose       = (void*)GetProcAddress(fnIC.hModule, "ICClose");
773         fnIC.fnICSendMessage = (void*)GetProcAddress(fnIC.hModule, "ICSendMessage");
774         fnIC.fnICDecompress  = (void*)GetProcAddress(fnIC.hModule, "ICDecompress");
775     }
776
777     /* allocate memory for info structure */
778     infoPtr = (ANIMATE_INFO *)COMCTL32_Alloc(sizeof(ANIMATE_INFO));
779     if (!infoPtr) {
780         ERR("could not allocate info memory!\n");
781         return 0;
782     }
783
784     TRACE("Animate style=0x%08lx, parent=%08lx\n", GetWindowLongA(hWnd, GWL_STYLE), (DWORD)GetParent(hWnd));
785
786     /* store crossref hWnd <-> info structure */
787     SetWindowLongA(hWnd, 0, (DWORD)infoPtr);
788     infoPtr->hWnd = hWnd;
789     infoPtr->transparentColor = ANIMATE_COLOR_NONE;
790     infoPtr->hbmPrevFrame = 0;
791
792     InitializeCriticalSection(&infoPtr->cs);
793
794     return 0;
795 }
796
797
798 static LRESULT ANIMATE_Destroy(HWND hWnd, WPARAM wParam, LPARAM lParam)
799 {
800     ANIMATE_INFO *infoPtr = ANIMATE_GetInfoPtr(hWnd);
801
802
803     /* free avi data */
804     ANIMATE_Free(infoPtr);
805
806     /* free animate info data */
807     COMCTL32_Free(infoPtr);
808     SetWindowLongA(hWnd, 0, 0);
809
810     return 0;
811 }
812
813
814 static LRESULT ANIMATE_EraseBackground(HWND hWnd, WPARAM wParam, LPARAM lParam)
815 {
816     RECT rect;
817     HBRUSH hBrush = 0;
818
819     if(GetWindowLongA(hWnd, GWL_STYLE) & ACS_TRANSPARENT)
820     {
821         hBrush = (HBRUSH)SendMessageA(GetParent(hWnd),WM_CTLCOLORSTATIC,
822                                       wParam, (LPARAM)hWnd);
823     }
824
825     GetClientRect(hWnd, &rect);
826     FillRect((HDC)wParam, &rect, hBrush ? hBrush : GetCurrentObject((HDC)wParam, OBJ_BRUSH));
827
828     return TRUE;
829 }
830
831 static LRESULT WINAPI ANIMATE_Size(HWND hWnd, WPARAM wParam, LPARAM lParam)
832 {
833     if (GetWindowLongA(hWnd, GWL_STYLE) & ACS_CENTER) {
834         InvalidateRect(hWnd, NULL, TRUE);
835     }
836     return TRUE;
837 }
838
839 static LRESULT WINAPI ANIMATE_WindowProc(HWND hWnd, UINT uMsg, WPARAM wParam, LPARAM lParam)
840 {
841     TRACE("hwnd=%p msg=%x wparam=%x lparam=%lx\n", hWnd, uMsg, wParam, lParam);
842     if (!ANIMATE_GetInfoPtr(hWnd) && (uMsg != WM_NCCREATE))
843         return DefWindowProcA(hWnd, uMsg, wParam, lParam);
844     switch (uMsg)
845     {
846     case ACM_OPENA:
847         return ANIMATE_OpenA(hWnd, wParam, lParam);
848
849         /*      case ACM_OPEN32W: FIXME!! */
850         /*          return ANIMATE_Open32W(hWnd, wParam, lParam); */
851
852     case ACM_PLAY:
853         return ANIMATE_Play(hWnd, wParam, lParam);
854
855     case ACM_STOP:
856         return ANIMATE_Stop(hWnd, wParam, lParam);
857
858     case WM_NCCREATE:
859         ANIMATE_Create(hWnd, wParam, lParam);
860         return DefWindowProcA(hWnd, uMsg, wParam, lParam);
861
862     case WM_NCHITTEST:
863         return HTTRANSPARENT;
864
865     case WM_DESTROY:
866         ANIMATE_Destroy(hWnd, wParam, lParam);
867         return DefWindowProcA(hWnd, uMsg, wParam, lParam);
868
869     case WM_ERASEBKGND:
870         ANIMATE_EraseBackground(hWnd, wParam, lParam);
871         break;
872
873     /*  case WM_STYLECHANGED: FIXME shall we do something ?? */
874
875     case WM_TIMER:
876         if (GetWindowLongA(hWnd, GWL_STYLE) & ACS_TRANSPARENT)
877         {
878             ANIMATE_INFO* infoPtr = ANIMATE_GetInfoPtr(hWnd);
879             infoPtr->hbrushBG = (HBRUSH)SendMessageA(GetParent(hWnd),
880                                                      WM_CTLCOLORSTATIC,
881                                                      wParam, (LPARAM)hWnd);
882         }
883         return ANIMATE_DrawFrame(ANIMATE_GetInfoPtr(hWnd));
884
885     case WM_CLOSE:
886         ANIMATE_Free(ANIMATE_GetInfoPtr(hWnd));
887         return TRUE;
888
889     case WM_PAINT:
890         {
891             ANIMATE_INFO* infoPtr = ANIMATE_GetInfoPtr(hWnd);
892
893             /* the animation isn't playing, don't paint */
894             if(!infoPtr->uTimer && !infoPtr->hThread)
895                 /* default paint handling */
896                 return DefWindowProcA(hWnd, uMsg, wParam, lParam);
897
898             if (GetWindowLongA(hWnd, GWL_STYLE) & ACS_TRANSPARENT)
899                 infoPtr->hbrushBG = (HBRUSH)SendMessageA(GetParent(hWnd),
900                                                          WM_CTLCOLORSTATIC,
901                                                          wParam, (LPARAM)hWnd);
902
903             if (wParam)
904             {
905                 EnterCriticalSection(&infoPtr->cs);
906                 ANIMATE_PaintFrame(infoPtr, (HDC)wParam);
907                 LeaveCriticalSection(&infoPtr->cs);
908             }
909             else
910             {
911                 PAINTSTRUCT ps;
912                 HDC hDC = BeginPaint(hWnd, &ps);
913
914                 EnterCriticalSection(&infoPtr->cs);
915                 ANIMATE_PaintFrame(infoPtr, hDC);
916                 LeaveCriticalSection(&infoPtr->cs);
917
918                 EndPaint(hWnd, &ps);
919             }
920         }
921         break;
922
923     case WM_SIZE:
924         ANIMATE_Size(hWnd, wParam, lParam);
925         return DefWindowProcA(hWnd, uMsg, wParam, lParam);
926
927     default:
928         if ((uMsg >= WM_USER) && (uMsg < WM_APP))
929             ERR("unknown msg %04x wp=%08x lp=%08lx\n", uMsg, wParam, lParam);
930
931         return DefWindowProcA(hWnd, uMsg, wParam, lParam);
932     }
933     return 0;
934 }
935
936 void ANIMATE_Register(void)
937 {
938     WNDCLASSA wndClass;
939
940     ZeroMemory(&wndClass, sizeof(WNDCLASSA));
941     wndClass.style         = CS_GLOBALCLASS | CS_DBLCLKS;
942     wndClass.lpfnWndProc   = (WNDPROC)ANIMATE_WindowProc;
943     wndClass.cbClsExtra    = 0;
944     wndClass.cbWndExtra    = sizeof(ANIMATE_INFO *);
945     wndClass.hCursor       = LoadCursorA(0, IDC_ARROWA);
946     wndClass.hbrBackground = (HBRUSH)(COLOR_BTNFACE + 1);
947     wndClass.lpszClassName = ANIMATE_CLASSA;
948
949     RegisterClassA(&wndClass);
950 }
951
952
953 void ANIMATE_Unregister(void)
954 {
955     UnregisterClassA(ANIMATE_CLASSA, NULL);
956 }