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  *                 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  *   - implement some missing flags (ACS_TRANSPARENT and ACS_CENTER)
  15  *   - protection between service thread and wndproc messages handling
  16  *     concurrent access to infoPtr
  17  */
  18
  19
  20 #include "winbase.h"
  21 #include "commctrl.h"
  22 #include "driver.h"
  23 #include "animate.h"
  24 #include "mmsystem.h"
  25 #include "services.h"
  26 #include "debugtools.h"
  27
  28 DEFAULT_DEBUG_CHANNEL(animate);
  29
  30 #define ANIMATE_GetInfoPtr(hWnd) ((ANIMATE_INFO *)GetWindowLongA(hWnd, 0))
  31
  32 HMODULE hModWinmm;
  33
  34 static void ANIMATE_Notify(ANIMATE_INFO* infoPtr, UINT notif)
  35 {
  36     SendMessageA(GetParent(infoPtr->hWnd), WM_COMMAND,
  37                  MAKEWPARAM(GetDlgCtrlID(infoPtr->hWnd), notif),
  38                  (LPARAM)infoPtr->hWnd);
  39 }
  40
  41 static BOOL ANIMATE_LoadResA(ANIMATE_INFO *infoPtr, HINSTANCE hInst, LPSTR lpName)
  42 {
  43     HRSRC       hrsrc;
  44     MMIOINFO    mminfo;
  45     LPVOID      lpAvi;
  46
  47     hrsrc = FindResourceA(hInst, lpName, "AVI");
  48     if (!hrsrc)
  49         return FALSE;
  50
  51     infoPtr->hRes = LoadResource(hInst, hrsrc);
  52     if (!infoPtr->hRes)
  53         return FALSE;
  54
  55     lpAvi = LockResource(infoPtr->hRes);
  56     if (!lpAvi)
  57         return FALSE;
  58
  59     memset(&mminfo, 0, sizeof(mminfo));
  60     mminfo.fccIOProc = FOURCC_MEM;
  61     mminfo.pchBuffer = (LPSTR)lpAvi;
  62     mminfo.cchBuffer = SizeofResource(hInst, hrsrc);
  63     infoPtr->hMMio = infoPtr->fnmmioOpenA(NULL, &mminfo, MMIO_READ);
  64
  65     if (!infoPtr->hMMio) {
  66         GlobalFree((HGLOBAL)lpAvi);
  67         return FALSE;
  68     }
  69
  70     return TRUE;
  71 }
  72
  73
  74 static BOOL ANIMATE_LoadFileA(ANIMATE_INFO *infoPtr, LPSTR lpName)
  75 {
  76     infoPtr->hMMio = infoPtr->fnmmioOpenA((LPSTR)lpName, NULL,
  77                                MMIO_ALLOCBUF | MMIO_READ | MMIO_DENYWRITE);
  78
  79     if (!infoPtr->hMMio)
  80         return FALSE;
  81
  82     return TRUE;
  83 }
  84
  85
  86 static LRESULT ANIMATE_DoStop(ANIMATE_INFO *infoPtr)
  87 {
  88     EnterCriticalSection(&infoPtr->cs);
  89
  90     /* should stop playing */
  91     if (infoPtr->hService) {
  92         SERVICE_Delete(infoPtr->hService);
  93         infoPtr->hService = 0;
  94     }
  95     if (infoPtr->uTimer) {
  96         KillTimer(infoPtr->hWnd, infoPtr->uTimer);
  97         infoPtr->uTimer = 0;
  98     }
  99
 100     LeaveCriticalSection(&infoPtr->cs);
 101
 102     ANIMATE_Notify(infoPtr, ACN_STOP);
 103
 104     return TRUE;
 105 }
 106
 107
 108 static void ANIMATE_Free(ANIMATE_INFO *infoPtr)
 109 {
 110     if (infoPtr->hMMio) {
 111         ANIMATE_DoStop(infoPtr);
 112         infoPtr->fnmmioClose(infoPtr->hMMio, 0);
 113         if (infoPtr->hRes) {
 114             FreeResource(infoPtr->hRes);
 115             infoPtr->hRes = 0;
 116         }
 117         if (infoPtr->lpIndex) {
 118             HeapFree(GetProcessHeap(), 0, infoPtr->lpIndex);
 119             infoPtr->lpIndex = NULL;
 120         }
 121         if (infoPtr->hic) {
 122             (infoPtr->fnICClose)(infoPtr->hic);
 123             infoPtr->hic = 0;
 124         }
 125         if (infoPtr->inbih) {
 126             HeapFree(GetProcessHeap(), 0, infoPtr->inbih);
 127             infoPtr->inbih = NULL;
 128         }
 129         if (infoPtr->outbih) {
 130             HeapFree(GetProcessHeap(), 0, infoPtr->outbih);
 131             infoPtr->outbih = NULL;
 132         }
 133         HeapFree(GetProcessHeap(), 0, infoPtr->indata);
 134         HeapFree(GetProcessHeap(), 0, infoPtr->outdata);
 135         infoPtr->indata = infoPtr->outdata = NULL;
 136         infoPtr->hWnd = 0;
 137         infoPtr->hMMio = 0;
 138         memset(&infoPtr->mah, 0, sizeof(infoPtr->mah));
 139         memset(&infoPtr->ash, 0, sizeof(infoPtr->ash));
 140         infoPtr->nFromFrame = infoPtr->nToFrame = infoPtr->nLoop = infoPtr->currFrame = 0;
 141     }
 142 }
 143
 144
 145 static LRESULT ANIMATE_PaintFrame(ANIMATE_INFO* infoPtr, HDC hDC)
 146 {
 147     if (!hDC || !infoPtr->inbih)
 148         return TRUE;
 149     if (infoPtr->hic)
 150         StretchDIBits(hDC, 0, 0, infoPtr->outbih->biWidth, infoPtr->outbih->biHeight,
 151                       0, 0, infoPtr->outbih->biWidth, infoPtr->outbih->biHeight,
 152                       infoPtr->outdata, (LPBITMAPINFO)infoPtr->outbih, DIB_RGB_COLORS,
 153                       SRCCOPY);
 154     else
 155         StretchDIBits(hDC, 0, 0, infoPtr->inbih->biWidth, infoPtr->inbih->biHeight,
 156                       0, 0, infoPtr->inbih->biWidth, infoPtr->inbih->biHeight,
 157                       infoPtr->indata, (LPBITMAPINFO)infoPtr->inbih, DIB_RGB_COLORS,
 158                       SRCCOPY);
 159
 160     return TRUE;
 161 }
 162
 163 static LRESULT ANIMATE_DrawFrame(ANIMATE_INFO* infoPtr)
 164 {
 165     HDC         hDC;
 166
 167     TRACE("Drawing frame %d (loop %d)\n", infoPtr->currFrame, infoPtr->nLoop);
 168
 169     EnterCriticalSection(&infoPtr->cs);
 170
 171     infoPtr->fnmmioSeek(infoPtr->hMMio, infoPtr->lpIndex[infoPtr->currFrame], SEEK_SET);
 172     infoPtr->fnmmioRead(infoPtr->hMMio, infoPtr->indata, infoPtr->ash.dwSuggestedBufferSize);
 173
 174     if (infoPtr->hic &&
 175         (infoPtr->fnICDecompress)(infoPtr->hic, 0, infoPtr->inbih, infoPtr->indata,
 176                                   infoPtr->outbih, infoPtr->outdata) != ICERR_OK) {
 177         LeaveCriticalSection(&infoPtr->cs);
 178         WARN("Decompression error\n");
 179         return FALSE;
 180     }
 181
 182     if ((hDC = GetDC(infoPtr->hWnd)) != 0) {
 183         ANIMATE_PaintFrame(infoPtr, hDC);
 184         ReleaseDC(infoPtr->hWnd, hDC);
 185     }
 186
 187     if (infoPtr->currFrame++ >= infoPtr->nToFrame) {
 188         infoPtr->currFrame = infoPtr->nFromFrame;
 189         if (infoPtr->nLoop != -1) {
 190             if (--infoPtr->nLoop == 0) {
 191                 ANIMATE_DoStop(infoPtr);
 192             }
 193         }
 194     }
 195     LeaveCriticalSection(&infoPtr->cs);
 196
 197     return TRUE;
 198 }
 199
 200 static void CALLBACK ANIMATE_ServiceCallback(ULONG_PTR ptr_)
 201 {
 202     ANIMATE_INFO*       infoPtr = (ANIMATE_INFO*)ptr_;
 203
 204     EnterCriticalSection(&infoPtr->cs);
 205     ANIMATE_DrawFrame(infoPtr);
 206     LeaveCriticalSection(&infoPtr->cs);
 207 }
 208
 209 static LRESULT ANIMATE_Play(HWND hWnd, WPARAM wParam, LPARAM lParam)
 210 {
 211     ANIMATE_INFO *infoPtr = ANIMATE_GetInfoPtr(hWnd);
 212
 213     /* nothing opened */
 214     if (!infoPtr->hMMio)
 215         return FALSE;
 216
 217     if (infoPtr->hService || infoPtr->uTimer) {
 218         FIXME("Already playing ? what should I do ??\n");
 219         ANIMATE_DoStop(infoPtr);
 220     }
 221
 222     infoPtr->nFromFrame = (INT)LOWORD(lParam);
 223     infoPtr->nToFrame   = (INT)HIWORD(lParam);
 224     infoPtr->nLoop      = (INT)wParam;
 225
 226     if (infoPtr->nToFrame == 0xFFFF)
 227         infoPtr->nToFrame = infoPtr->mah.dwTotalFrames - 1;
 228
 229     TRACE("(repeat=%d from=%d to=%d);\n",
 230           infoPtr->nLoop, infoPtr->nFromFrame, infoPtr->nToFrame);
 231
 232     if (infoPtr->nFromFrame >= infoPtr->nToFrame ||
 233         infoPtr->nToFrame >= infoPtr->mah.dwTotalFrames)
 234         return FALSE;
 235
 236     infoPtr->currFrame = infoPtr->nFromFrame;
 237
 238     if (GetWindowLongA(hWnd, GWL_STYLE) & ACS_TIMER) {
 239         TRACE("Using a timer\n");
 240         /* create a timer to display AVI */
 241         infoPtr->uTimer = SetTimer(hWnd, 1, infoPtr->mah.dwMicroSecPerFrame / 1000, NULL);
 242     } else {
 243         TRACE("Using the service thread\n");
 244         /* time is in µs */
 245         infoPtr->hService = SERVICE_AddTimer(infoPtr->mah.dwMicroSecPerFrame / 1000,
 246                                              ANIMATE_ServiceCallback, (DWORD)infoPtr);
 247     }
 248
 249     ANIMATE_Notify(infoPtr, ACN_START);
 250
 251     return TRUE;
 252 }
 253
 254
 255 static BOOL ANIMATE_GetAviInfo(ANIMATE_INFO *infoPtr)
 256 {
 257     MMCKINFO            ckMainRIFF;
 258     MMCKINFO            mmckHead;
 259     MMCKINFO            mmckList;
 260     MMCKINFO            mmckInfo;
 261     DWORD               numFrame;
 262     DWORD               insize;
 263
 264     if (infoPtr->fnmmioDescend(infoPtr->hMMio, &ckMainRIFF, NULL, 0) != 0) {
 265         WARN("Can't find 'RIFF' chunk\n");
 266         return FALSE;
 267     }
 268
 269     if ((ckMainRIFF.ckid != FOURCC_RIFF) ||
 270         (ckMainRIFF.fccType != mmioFOURCC('A', 'V', 'I', ' '))) {
 271         WARN("Can't find 'AVI ' chunk\n");
 272         return FALSE;
 273     }
 274
 275     mmckHead.fccType = mmioFOURCC('h', 'd', 'r', 'l');
 276     if (infoPtr->fnmmioDescend(infoPtr->hMMio, &mmckHead, &ckMainRIFF, MMIO_FINDLIST) != 0) {
 277         WARN("Can't find 'hdrl' list\n");
 278         return FALSE;
 279     }
 280
 281     mmckInfo.ckid = mmioFOURCC('a', 'v', 'i', 'h');
 282     if (infoPtr->fnmmioDescend(infoPtr->hMMio, &mmckInfo, &mmckHead, MMIO_FINDCHUNK) != 0) {
 283         WARN("Can't find 'avih' chunk\n");
 284         return FALSE;
 285     }
 286
 287     infoPtr->fnmmioRead(infoPtr->hMMio, (LPSTR)&infoPtr->mah, sizeof(infoPtr->mah));
 288     TRACE("mah.dwMicroSecPerFrame=%ld\n",       infoPtr->mah.dwMicroSecPerFrame);
 289     TRACE("mah.dwMaxBytesPerSec=%ld\n",         infoPtr->mah.dwMaxBytesPerSec);
 290     TRACE("mah.dwPaddingGranularity=%ld\n",     infoPtr->mah.dwPaddingGranularity);
 291     TRACE("mah.dwFlags=%ld\n",                  infoPtr->mah.dwFlags);
 292     TRACE("mah.dwTotalFrames=%ld\n",            infoPtr->mah.dwTotalFrames);
 293     TRACE("mah.dwInitialFrames=%ld\n",          infoPtr->mah.dwInitialFrames);
 294     TRACE("mah.dwStreams=%ld\n",                infoPtr->mah.dwStreams);
 295     TRACE("mah.dwSuggestedBufferSize=%ld\n",    infoPtr->mah.dwSuggestedBufferSize);
 296     TRACE("mah.dwWidth=%ld\n",                  infoPtr->mah.dwWidth);
 297     TRACE("mah.dwHeight=%ld\n",                 infoPtr->mah.dwHeight);
 298     infoPtr->fnmmioAscend(infoPtr->hMMio, &mmckInfo, 0);
 299
 300     mmckList.fccType = mmioFOURCC('s', 't', 'r', 'l');
 301     if (infoPtr->fnmmioDescend(infoPtr->hMMio, &mmckList, &mmckHead, MMIO_FINDLIST) != 0) {
 302         WARN("Can't find 'strl' list\n");
 303         return FALSE;
 304     }
 305
 306     mmckInfo.ckid = mmioFOURCC('s', 't', 'r', 'h');
 307     if (infoPtr->fnmmioDescend(infoPtr->hMMio, &mmckInfo, &mmckList, MMIO_FINDCHUNK) != 0) {
 308         WARN("Can't find 'strh' chunk\n");
 309         return FALSE;
 310     }
 311
 312     infoPtr->fnmmioRead(infoPtr->hMMio, (LPSTR)&infoPtr->ash, sizeof(infoPtr->ash));
 313     TRACE("ash.fccType='%c%c%c%c'\n",           LOBYTE(LOWORD(infoPtr->ash.fccType)),
 314                                                 HIBYTE(LOWORD(infoPtr->ash.fccType)),
 315                                                 LOBYTE(HIWORD(infoPtr->ash.fccType)),
 316                                                 HIBYTE(HIWORD(infoPtr->ash.fccType)));
 317     TRACE("ash.fccHandler='%c%c%c%c'\n",        LOBYTE(LOWORD(infoPtr->ash.fccHandler)),
 318                                                 HIBYTE(LOWORD(infoPtr->ash.fccHandler)),
 319                                                 LOBYTE(HIWORD(infoPtr->ash.fccHandler)),
 320                                                 HIBYTE(HIWORD(infoPtr->ash.fccHandler)));
 321     TRACE("ash.dwFlags=%ld\n",                  infoPtr->ash.dwFlags);
 322     TRACE("ash.wPriority=%d\n",                 infoPtr->ash.wPriority);
 323     TRACE("ash.wLanguage=%d\n",                 infoPtr->ash.wLanguage);
 324     TRACE("ash.dwInitialFrames=%ld\n",          infoPtr->ash.dwInitialFrames);
 325     TRACE("ash.dwScale=%ld\n",                  infoPtr->ash.dwScale);
 326     TRACE("ash.dwRate=%ld\n",                   infoPtr->ash.dwRate);
 327     TRACE("ash.dwStart=%ld\n",                  infoPtr->ash.dwStart);
 328     TRACE("ash.dwLength=%ld\n",                 infoPtr->ash.dwLength);
 329     TRACE("ash.dwSuggestedBufferSize=%ld\n",    infoPtr->ash.dwSuggestedBufferSize);
 330     TRACE("ash.dwQuality=%ld\n",                infoPtr->ash.dwQuality);
 331     TRACE("ash.dwSampleSize=%ld\n",             infoPtr->ash.dwSampleSize);
 332     TRACE("ash.rcFrame=(%d,%d,%d,%d)\n",        infoPtr->ash.rcFrame.top, infoPtr->ash.rcFrame.left,
 333           infoPtr->ash.rcFrame.bottom, infoPtr->ash.rcFrame.right);
 334     infoPtr->fnmmioAscend(infoPtr->hMMio, &mmckInfo, 0);
 335
 336     mmckInfo.ckid = mmioFOURCC('s', 't', 'r', 'f');
 337     if (infoPtr->fnmmioDescend(infoPtr->hMMio, &mmckInfo, &mmckList, MMIO_FINDCHUNK) != 0) {
 338         WARN("Can't find 'strh' chunk\n");
 339         return FALSE;
 340     }
 341
 342     infoPtr->inbih = HeapAlloc(GetProcessHeap(), 0, mmckInfo.cksize);
 343     if (!infoPtr->inbih) {
 344         WARN("Can't alloc input BIH\n");
 345         return FALSE;
 346     }
 347
 348     infoPtr->fnmmioRead(infoPtr->hMMio, (LPSTR)infoPtr->inbih, mmckInfo.cksize);
 349     TRACE("bih.biSize=%ld\n",           infoPtr->inbih->biSize);
 350     TRACE("bih.biWidth=%ld\n",          infoPtr->inbih->biWidth);
 351     TRACE("bih.biHeight=%ld\n",         infoPtr->inbih->biHeight);
 352     TRACE("bih.biPlanes=%d\n",          infoPtr->inbih->biPlanes);
 353     TRACE("bih.biBitCount=%d\n",        infoPtr->inbih->biBitCount);
 354     TRACE("bih.biCompression=%ld\n",    infoPtr->inbih->biCompression);
 355     TRACE("bih.biSizeImage=%ld\n",      infoPtr->inbih->biSizeImage);
 356     TRACE("bih.biXPelsPerMeter=%ld\n",  infoPtr->inbih->biXPelsPerMeter);
 357     TRACE("bih.biYPelsPerMeter=%ld\n",  infoPtr->inbih->biYPelsPerMeter);
 358     TRACE("bih.biClrUsed=%ld\n",        infoPtr->inbih->biClrUsed);
 359     TRACE("bih.biClrImportant=%ld\n",   infoPtr->inbih->biClrImportant);
 360     infoPtr->fnmmioAscend(infoPtr->hMMio, &mmckInfo, 0);
 361
 362     infoPtr->fnmmioAscend(infoPtr->hMMio, &mmckList, 0);
 363
 364 #if 0
 365     /* an AVI has 0 or 1 video stream, and to be animated should not contain
 366      * an audio stream, so only one strl is allowed
 367      */
 368     mmckList.fccType = mmioFOURCC('s', 't', 'r', 'l');
 369     if (infoPtr->fnmmioDescend(infoPtr->hMMio, &mmckList, &mmckHead, MMIO_FINDLIST) == 0) {
 370         WARN("There should be a single 'strl' list\n");
 371         return FALSE;
 372     }
 373 #endif
 374
 375     infoPtr->fnmmioAscend(infoPtr->hMMio, &mmckHead, 0);
 376
 377     /* no need to read optional JUNK chunk */
 378
 379     mmckList.fccType = mmioFOURCC('m', 'o', 'v', 'i');
 380     if (infoPtr->fnmmioDescend(infoPtr->hMMio, &mmckList, &ckMainRIFF, MMIO_FINDLIST) != 0) {
 381         WARN("Can't find 'movi' list\n");
 382         return FALSE;
 383     }
 384
 385     /* FIXME: should handle the 'rec ' LIST when present */
 386
 387     infoPtr->lpIndex = HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY,
 388                                  infoPtr->mah.dwTotalFrames * sizeof(DWORD));
 389     if (!infoPtr->lpIndex) {
 390         WARN("Can't alloc index array\n");
 391         return FALSE;
 392     }
 393
 394     numFrame = insize = 0;
 395     while (infoPtr->fnmmioDescend(infoPtr->hMMio, &mmckInfo, &mmckList, 0) == 0 &&
 396            numFrame < infoPtr->mah.dwTotalFrames) {
 397         infoPtr->lpIndex[numFrame] = mmckInfo.dwDataOffset;
 398         if (insize < mmckInfo.cksize)
 399             insize = mmckInfo.cksize;
 400         numFrame++;
 401         infoPtr->fnmmioAscend(infoPtr->hMMio, &mmckInfo, 0);
 402     }
 403     if (numFrame != infoPtr->mah.dwTotalFrames) {
 404         WARN("Found %ld frames (/%ld)\n", numFrame, infoPtr->mah.dwTotalFrames);
 405         return FALSE;
 406     }
 407     if (insize > infoPtr->ash.dwSuggestedBufferSize) {
 408         WARN("insize=%ld suggestedSize=%ld\n", insize, infoPtr->ash.dwSuggestedBufferSize);
 409         infoPtr->ash.dwSuggestedBufferSize = insize;
 410     }
 411
 412     infoPtr->indata = HeapAlloc(GetProcessHeap(), 0, infoPtr->ash.dwSuggestedBufferSize);
 413     if (!infoPtr->indata) {
 414         WARN("Can't alloc input buffer\n");
 415         return FALSE;
 416     }
 417
 418     return TRUE;
 419 }
 420
 421
 422 static BOOL    ANIMATE_GetAviCodec(ANIMATE_INFO *infoPtr)
 423 {
 424     DWORD       outSize;
 425
 426     /* check uncompressed AVI */
 427     if (infoPtr->ash.fccHandler == mmioFOURCC('D', 'I', 'B', ' ') ||
 428         infoPtr->ash.fccHandler == mmioFOURCC('R', 'L', 'E', ' ')) {
 429         infoPtr->hic = 0;
 430         return TRUE;
 431     }
 432
 433     /* try to get a decompressor for that type */
 434     infoPtr->hic = (infoPtr->fnICOpen)(ICTYPE_VIDEO,
 435                                        infoPtr->ash.fccHandler,
 436                                        ICMODE_DECOMPRESS);
 437     if (!infoPtr->hic) {
 438         WARN("Can't load codec for the file\n");
 439         return FALSE;
 440     }
 441
 442     outSize = (infoPtr->fnICSendMessage)(infoPtr->hic,
 443                                          ICM_DECOMPRESS_GET_FORMAT,
 444                                          (DWORD)infoPtr->inbih, 0L);
 445     infoPtr->outbih = HeapAlloc(GetProcessHeap(), 0, outSize);
 446     if (!infoPtr->outbih) {
 447         WARN("Can't alloc output BIH\n");
 448         return FALSE;
 449     }
 450
 451     if ((infoPtr->fnICSendMessage)(infoPtr->hic, ICM_DECOMPRESS_GET_FORMAT,
 452                                    (DWORD)infoPtr->inbih,
 453                                    (DWORD)infoPtr->outbih) != ICERR_OK) {
 454         WARN("Can't get output BIH\n");
 455         return FALSE;
 456     }
 457
 458     infoPtr->outdata = HeapAlloc(GetProcessHeap(), 0, infoPtr->outbih->biSizeImage);
 459     if (!infoPtr->outdata) {
 460         WARN("Can't alloc output buffer\n");
 461         return FALSE;
 462     }
 463
 464     if ((infoPtr->fnICSendMessage)(infoPtr->hic, ICM_DECOMPRESS_BEGIN,
 465                                    (DWORD)infoPtr->inbih,
 466                                    (DWORD)infoPtr->outbih) != ICERR_OK) {
 467         WARN("Can't begin decompression\n");
 468         return FALSE;
 469     }
 470
 471     return TRUE;
 472 }
 473
 474 static LRESULT ANIMATE_OpenA(HWND hWnd, WPARAM wParam, LPARAM lParam)
 475 {
 476     ANIMATE_INFO *infoPtr = ANIMATE_GetInfoPtr(hWnd);
 477     HINSTANCE hInstance = (HINSTANCE)wParam;
 478
 479     ANIMATE_Free(infoPtr);
 480
 481     if (!lParam) {
 482         TRACE("Closing avi!\n");
 483         return TRUE;
 484     }
 485
 486     if (!hInstance)
 487        hInstance = GetWindowLongA(hWnd, GWL_HINSTANCE);
 488
 489     if (HIWORD(lParam)) {
 490         TRACE("(\"%s\");\n", (LPSTR)lParam);
 491
 492         if (!ANIMATE_LoadResA(infoPtr, hInstance, (LPSTR)lParam)) {
 493             TRACE("No AVI resource found!\n");
 494             if (!ANIMATE_LoadFileA(infoPtr, (LPSTR)lParam)) {
 495                 WARN("No AVI file found!\n");
 496                 return FALSE;
 497             }
 498         }
 499     } else {
 500         TRACE("(%u);\n", (WORD)LOWORD(lParam));
 501
 502         if (!ANIMATE_LoadResA(infoPtr, hInstance,
 503                               MAKEINTRESOURCEA((INT)lParam))) {
 504             WARN("No AVI resource found!\n");
 505             return FALSE;
 506         }
 507     }
 508
 509     if (!ANIMATE_GetAviInfo(infoPtr)) {
 510         WARN("Can't get AVI information\n");
 511         ANIMATE_Free(infoPtr);
 512         return FALSE;
 513     }
 514
 515     if (!ANIMATE_GetAviCodec(infoPtr)) {
 516         WARN("Can't get AVI Codec\n");
 517         ANIMATE_Free(infoPtr);
 518         return FALSE;
 519     }
 520
 521     if (GetWindowLongA(hWnd, GWL_STYLE) & ACS_CENTER) {
 522         FIXME("ACS_CENTER: NIY\n");
 523     } else {
 524         /*      MoveWindow(hWnd, 0, 0, infoPtr->mah.dwWidth, infoPtr->mah.dwHeight, FALSE);*/
 525         SetWindowPos(hWnd, 0, 0, 0, infoPtr->mah.dwWidth, infoPtr->mah.dwHeight,
 526                      SWP_NOACTIVATE | SWP_NOMOVE | SWP_NOZORDER);
 527     }
 528
 529     if (GetWindowLongA(hWnd, GWL_STYLE) & ACS_TRANSPARENT) {
 530         FIXME("ACS_TRANSPARENT: NIY\n");
 531     }
 532
 533     if (GetWindowLongA(hWnd, GWL_STYLE) & ACS_AUTOPLAY) {
 534         return ANIMATE_Play(hWnd, -1, (LPARAM)MAKELONG(0, infoPtr->mah.dwTotalFrames-1));
 535     }
 536
 537     return TRUE;
 538 }
 539
 540
 541 /* << ANIMATE_Open32W >> */
 542
 543 static LRESULT ANIMATE_Stop(HWND hWnd, WPARAM wParam, LPARAM lParam)
 544 {
 545     ANIMATE_INFO *infoPtr = ANIMATE_GetInfoPtr(hWnd);
 546
 547     /* nothing opened */
 548     if (!infoPtr->hMMio)
 549         return FALSE;
 550
 551     ANIMATE_DoStop(infoPtr);
 552     return TRUE;
 553 }
 554
 555
 556 static LRESULT ANIMATE_Create(HWND hWnd, WPARAM wParam, LPARAM lParam)
 557 {
 558     ANIMATE_INFO*       infoPtr;
 559     HMODULE             hModule = LoadLibraryA("msvfw32.dll");
 560
 561     if (!hModule)
 562         return FALSE;
 563
 564     /* allocate memory for info structure */
 565     infoPtr = (ANIMATE_INFO *)COMCTL32_Alloc(sizeof(ANIMATE_INFO));
 566     if (!infoPtr) {
 567         ERR("could not allocate info memory!\n");
 568         return 0;
 569     }
 570
 571     /* Temporary hack until we get dllglue up and running */
 572     infoPtr->fnICOpen        = (void*)GetProcAddress(hModule, "ICOpen");
 573     infoPtr->fnICClose       = (void*)GetProcAddress(hModule, "ICClose");
 574     infoPtr->fnICSendMessage = (void*)GetProcAddress(hModule, "ICSendMessage");
 575     infoPtr->fnICDecompress  = (void*)GetProcAddress(hModule, "ICDecompress");
 576
 577     TRACE("Animate style=0x%08lx, parent=%08lx\n", GetWindowLongA(hWnd, GWL_STYLE), (DWORD)GetParent(hWnd));
 578
 579     /* store crossref hWnd <-> info structure */
 580     SetWindowLongA(hWnd, 0, (DWORD)infoPtr);
 581     infoPtr->hWnd = hWnd;
 582
 583     hModWinmm = LoadLibraryA("WINMM");
 584
 585     infoPtr->fnmmioOpenA = (void*)GetProcAddress(hModWinmm, "mmioOpenA");
 586     infoPtr->fnmmioClose = (void*)GetProcAddress(hModWinmm, "mmioClose");
 587     infoPtr->fnmmioAscend = (void*)GetProcAddress(hModWinmm, "mmioAscend");
 588     infoPtr->fnmmioDescend = (void*)GetProcAddress(hModWinmm, "mmioDescend");
 589     infoPtr->fnmmioSeek = (void*)GetProcAddress(hModWinmm, "mmioSeek");
 590     infoPtr->fnmmioRead = (void*)GetProcAddress(hModWinmm, "mmioRead");
 591
 592     InitializeCriticalSection(&infoPtr->cs);
 593
 594     return 0;
 595 }
 596
 597
 598 static LRESULT ANIMATE_Destroy(HWND hWnd, WPARAM wParam, LPARAM lParam)
 599 {
 600     ANIMATE_INFO *infoPtr = ANIMATE_GetInfoPtr(hWnd);
 601
 602
 603     /* free avi data */
 604     ANIMATE_Free(infoPtr);
 605
 606     /* free animate info data */
 607     COMCTL32_Free(infoPtr);
 608     SetWindowLongA(hWnd, 0, 0);
 609
 610     FreeLibrary(hModWinmm);
 611     return 0;
 612 }
 613
 614
 615 static LRESULT ANIMATE_EraseBackground(HWND hWnd, WPARAM wParam, LPARAM lParam)
 616 {
 617     RECT rect;
 618
 619     GetClientRect(hWnd, &rect);
 620 #if 0
 621     HBRUSH hBrush = CreateSolidBrush(infoPtr->clrBk);
 622
 623     FillRect((HDC)wParam, &rect, hBrush);
 624     DeleteObject(hBrush);
 625 #else
 626     FillRect((HDC)wParam, &rect, GetSysColorBrush(COLOR_WINDOW));
 627 #endif
 628     return TRUE;
 629 }
 630
 631 static LRESULT WINAPI ANIMATE_Size(HWND hWnd, WPARAM wParam, LPARAM lParam)
 632 {
 633     ANIMATE_INFO *infoPtr = ANIMATE_GetInfoPtr(hWnd);
 634
 635     if (GetWindowLongA(hWnd, GWL_STYLE) & ACS_CENTER) {
 636         FIXME("NIY\n");
 637         if (infoPtr->hMMio) {
 638             /* centers the animation in the control, invalidates the control
 639              */
 640         }
 641         InvalidateRect(hWnd, NULL, TRUE);
 642     }
 643     return TRUE;
 644 }
 645
 646 static LRESULT WINAPI ANIMATE_WindowProc(HWND hWnd, UINT uMsg, WPARAM wParam, LPARAM lParam)
 647 {
 648     TRACE("hwnd=%x msg=%x wparam=%x lparam=%lx\n", hWnd, uMsg, wParam, lParam);
 649     if (!ANIMATE_GetInfoPtr(hWnd) && (uMsg != WM_NCCREATE))
 650         return DefWindowProcA(hWnd, uMsg, wParam, lParam);
 651     switch (uMsg)
 652     {
 653     case ACM_OPENA:
 654         return ANIMATE_OpenA(hWnd, wParam, lParam);
 655
 656         /*      case ACM_OPEN32W: FIXME!! */
 657         /*          return ANIMATE_Open32W(hWnd, wParam, lParam); */
 658
 659     case ACM_PLAY:
 660         return ANIMATE_Play(hWnd, wParam, lParam);
 661
 662     case ACM_STOP:
 663         return ANIMATE_Stop(hWnd, wParam, lParam);
 664
 665     case WM_NCCREATE:
 666         ANIMATE_Create(hWnd, wParam, lParam);
 667         return DefWindowProcA(hWnd, uMsg, wParam, lParam);
 668
 669     case WM_NCHITTEST:
 670         return HTTRANSPARENT;
 671
 672     case WM_DESTROY:
 673         ANIMATE_Destroy(hWnd, wParam, lParam);
 674         return DefWindowProcA(hWnd, uMsg, wParam, lParam);
 675
 676     case WM_ERASEBKGND:
 677         ANIMATE_EraseBackground(hWnd, wParam, lParam);
 678         break;
 679
 680     /*  case WM_STYLECHANGED: FIXME shall we do something ?? */
 681
 682     case WM_TIMER:
 683         return ANIMATE_DrawFrame(ANIMATE_GetInfoPtr(hWnd));
 684
 685     case WM_CLOSE:
 686         ANIMATE_Free(ANIMATE_GetInfoPtr(hWnd));
 687         return TRUE;
 688
 689     case WM_PAINT:
 690         if (wParam) {
 691             ANIMATE_PaintFrame(ANIMATE_GetInfoPtr(hWnd), (HDC)wParam);
 692         } else {
 693             PAINTSTRUCT ps;
 694             HDC hDC = BeginPaint(hWnd, &ps);
 695             ANIMATE_PaintFrame(ANIMATE_GetInfoPtr(hWnd), hDC);
 696             EndPaint(hWnd, &ps);
 697         }
 698         break;
 699
 700     case WM_SIZE:
 701         ANIMATE_Size(hWnd, wParam, lParam);
 702         return DefWindowProcA(hWnd, uMsg, wParam, lParam);
 703
 704     default:
 705         if (uMsg >= WM_USER)
 706             ERR("unknown msg %04x wp=%08x lp=%08lx\n", uMsg, wParam, lParam);
 707
 708         return DefWindowProcA(hWnd, uMsg, wParam, lParam);
 709     }
 710     return 0;
 711 }
 712
 713
 714 void ANIMATE_Register(void)
 715 {
 716     WNDCLASSA wndClass;
 717
 718     ZeroMemory(&wndClass, sizeof(WNDCLASSA));
 719     wndClass.style         = CS_GLOBALCLASS | CS_DBLCLKS;
 720     wndClass.lpfnWndProc   = (WNDPROC)ANIMATE_WindowProc;
 721     wndClass.cbClsExtra    = 0;
 722     wndClass.cbWndExtra    = sizeof(ANIMATE_INFO *);
 723     wndClass.hCursor       = LoadCursorA(0, IDC_ARROWA);
 724     wndClass.hbrBackground = (HBRUSH)(COLOR_BTNFACE + 1);
 725     wndClass.lpszClassName = ANIMATE_CLASSA;
 726
 727     RegisterClassA(&wndClass);
 728 }
 729
 730
 731 void ANIMATE_Unregister(void)
 732 {
 733     UnregisterClassA(ANIMATE_CLASSA, (HINSTANCE)NULL);
 734 }
 735