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