git.oblomov.eu Git - wine/blob - dlls/comctl32/animate.c

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