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