windows-nt/Source/XPSP1/NT/shell/comctl32/v5/animate.c

568 lines
14 KiB
C
Raw Permalink Normal View History

2020-09-26 03:20:57 -05:00
#include "ctlspriv.h"
#include "rlefile.h"
#define RectWid(_rc) ((_rc).right-(_rc).left)
#define RectHgt(_rc) ((_rc).bottom-(_rc).top)
typedef struct {
HWND hwnd; // my window
int id; // my id
HWND hwndP; // my owner (get notify messages)
DWORD style;
BOOL fFirstPaint; // TRUE until first paint.
RLEFILE *prle;
#ifdef WIN32
CRITICAL_SECTION crit;
#endif
RECT rc;
int NumFrames;
int Rate;
int iFrame;
int PlayCount;
int PlayFrom;
int PlayTo;
HANDLE PaintThread;
HANDLE hStopEvent;
} ANIMATE;
#ifdef WIN32
#define Enter(p) EnterCriticalSection(&p->crit)
#define Leave(p) LeaveCriticalSection(&p->crit)
#else
#define Enter(p)
#define Leave(p)
#endif
#define OPEN_WINDOW_TEXT 42
#define Ani_UseThread(p) (!((p)->style & ACS_TIMER))
LRESULT CALLBACK AnimateWndProc(HWND hwnd, UINT msg, WPARAM wParam, LPARAM lParam);
BOOL HandleOpen(ANIMATE *p, HINSTANCE hInst, LPCTSTR pszName, UINT flags);
BOOL HandleStop(ANIMATE *p);
BOOL HandlePlay(ANIMATE *p, int from, int to, int count);
void HandlePaint(ANIMATE *p, HDC hdc);
int HandleTick(ANIMATE *p);
#pragma code_seg(CODESEG_INIT)
TCHAR c_szAnimateClass[] = ANIMATE_CLASS;
BOOL FAR PASCAL InitAnimateClass(HINSTANCE hInstance)
{
WNDCLASS wc;
if (!GetClassInfo(hInstance, c_szAnimateClass, &wc)) {
#ifndef WIN32
extern LRESULT CALLBACK _AnimateWndProc(HWND, UINT, WPARAM, LPARAM);
wc.lpfnWndProc = _AnimateWndProc;
#else
wc.lpfnWndProc = AnimateWndProc;
#endif
wc.lpszClassName = c_szAnimateClass;
wc.style = CS_DBLCLKS | CS_GLOBALCLASS;
wc.cbClsExtra = 0;
wc.cbWndExtra = sizeof(LPVOID);
wc.hInstance = hInstance; // use DLL instance if in DLL
wc.hIcon = NULL;
wc.hCursor = LoadCursor(NULL, IDC_ARROW);
wc.hbrBackground = (HBRUSH)(COLOR_BTNFACE+1);
wc.lpszMenuName = NULL;
if (!RegisterClass(&wc))
return FALSE;
}
return TRUE;
}
#pragma code_seg()
BOOL HandleOpen(ANIMATE *p, HINSTANCE hInst, LPCTSTR pszName, UINT flags)
{
TCHAR ach[MAX_PATH];
//
// use window text as file name
//
if (flags == OPEN_WINDOW_TEXT)
{
GetWindowText(p->hwnd, ach, ARRAYSIZE(ach));
pszName = ach;
}
if (hInst == NULL)
hInst = (HINSTANCE)GetWindowLongPtr(p->hwnd, GWLP_HINSTANCE);
HandleStop(p); // stop a play first
if (p->prle)
{
RleFile_Free(p->prle);
p->prle = NULL;
}
p->iFrame = 0;
p->NumFrames = 0;
if (pszName == NULL || (!IS_INTRESOURCE(pszName) && *pszName == 0))
return FALSE;
//
// now open the file/resource we got.
//
p->prle = RleFile_New();
if (p->prle == NULL)
return FALSE;
if (!RleFile_OpenFromResource(p->prle, hInst, pszName, TEXT("AVI")) &&
!RleFile_OpenFromFile(p->prle, pszName))
{
RleFile_Free(p->prle);
p->prle = NULL;
return FALSE;
}
else
{
p->NumFrames = RleFile_NumFrames(p->prle);
p->Rate = (int)RleFile_Rate(p->prle);
SetRect(&p->rc, 0, 0, RleFile_Width(p->prle), RleFile_Height(p->prle));
}
//
// handle a transparent color
//
if ((p->style & ACS_TRANSPARENT) && p->hwndP)
{
HDC hdc;
HDC hdcM;
HBITMAP hbm;
COLORREF rgbS, rgbD;
hdc = GetDC(p->hwnd);
//
// create a bitmap and draw image into it.
// get upper left pixel and make that transparent.
//
hdcM= CreateCompatibleDC(hdc);
hbm = CreateCompatibleBitmap(hdc, 1, 1);
SelectObject(hdcM, hbm);
HandlePaint(p, hdcM);
rgbS = GetPixel(hdcM, 0, 0);
DeleteDC(hdcM);
DeleteObject(hbm);
SendMessage(p->hwndP, GET_WM_CTLCOLOR_MSG(CTLCOLOR_STATIC),
GET_WM_CTLCOLOR_MPS(hdc, p->hwnd, CTLCOLOR_STATIC));
rgbD = GetBkColor(hdc);
ReleaseDC(p->hwnd, hdc);
//
// now replace the color
//
RleFile_ChangeColor(p->prle, rgbS, rgbD);
}
//
// ok it worked, resize window.
//
if (p->style & ACS_CENTER)
{
RECT rc;
GetClientRect(p->hwnd, &rc);
OffsetRect(&p->rc, (rc.right-p->rc.right)/2,(rc.bottom-p->rc.bottom)/2);
}
else
{
RECT rc;
rc = p->rc;
AdjustWindowRectEx(&rc, GetWindowStyle(p->hwnd), FALSE, GetWindowExStyle(p->hwnd));
SetWindowPos(p->hwnd, NULL, 0, 0, RectWid(rc), RectHgt(rc),
SWP_NOMOVE|SWP_NOZORDER|SWP_NOACTIVATE);
}
if (p->style & ACS_AUTOPLAY)
{
PostMessage(p->hwnd, ACM_PLAY, (UINT_PTR)-1, MAKELONG(0, -1));
}
else
{
InvalidateRect(p->hwnd, NULL, TRUE);
}
return TRUE;
}
void DoNotify(ANIMATE *p, int cmd)
{
if (p->hwndP)
PostMessage(p->hwndP, WM_COMMAND, GET_WM_COMMAND_MPS(p->id, p->hwnd, cmd));
}
BOOL HandleStop(ANIMATE *p)
{
if (p == NULL || !p->PaintThread)
return FALSE;
if (Ani_UseThread(p)) {
// set thread up to terminate between frames
Enter( p );
p->PlayCount = 0;
Leave( p );
if (p->hStopEvent)
SetEvent(p->hStopEvent);
WaitForSingleObject(p->PaintThread, INFINITE);
// PORT QSY RAID 4167
// Under certain situations, both the CloseHandle()
// and ExitThread() call try to remove MainWin internal
// objects.
// This is a work-around for preview 1.
// I've raised another bug RAID 4250 for OE RTW
#ifndef UNIX
CloseHandle(p->PaintThread);
#endif
// PORT QSY
p->PaintThread = NULL;
if (p->hStopEvent)
CloseHandle(p->hStopEvent);
p->hStopEvent = NULL;
} else {
KillTimer(p->hwnd, HandleToUlong(p->PaintThread)); // really was a UINT
p->PaintThread = 0;
DoNotify(p, ACN_STOP);
}
return TRUE;
}
int PlayThread(ANIMATE *p)
{
int result;
DoNotify(p, ACN_START);
while (result = HandleTick(p))
{
// Sleep for a bit (4 seconds) longer if we are hidden
//
// Old code here slept, which can block the UI thread
// if the app tries to stop/shutdown/change the animation
// right near the beginning of the sleep.
// Sleep((result < 0 ? p->Rate+4000 : p->Rate));
// Do a timed wait for the stop event instead
//
if (p->hStopEvent)
WaitForSingleObject(p->hStopEvent, (result < 0 ? p->Rate+4000 : p->Rate));
else
Sleep((result < 0 ? p->Rate+4000 : p->Rate));
}
DoNotify(p, ACN_STOP);
return 0;
}
BOOL HandlePlay(ANIMATE *p, int from, int to, int count)
{
if (p == NULL || p->prle == NULL)
return FALSE;
HandleStop(p);
if (from >= p->NumFrames)
from = p->NumFrames-1;
if (to == -1)
to = p->NumFrames-1;
if (to < 0)
to = 0;
if (to >= p->NumFrames)
to = p->NumFrames-1;
p->PlayCount = count;
p->PlayTo = to;
if (from >= 0) {
p->iFrame = from;
p->PlayFrom = from;
} else
from = p->PlayFrom;
if ( (from == to) || !count )
{
InvalidateRect(p->hwnd, NULL, TRUE);
return TRUE;
}
InvalidateRect(p->hwnd, NULL, FALSE);
UpdateWindow(p->hwnd);
if (Ani_UseThread(p))
{
DWORD dw;
p->hStopEvent = CreateEvent(NULL, FALSE, FALSE, NULL);
p->PaintThread = CreateThread(NULL, 0, (LPTHREAD_START_ROUTINE)PlayThread, (void*)p, 0, &dw);
}
else
{
DoNotify(p, ACN_START);
p->PaintThread = (HANDLE)SetTimer(p->hwnd, 42, (UINT)p->Rate, NULL);
}
return TRUE;
}
void HandleFirstPaint(ANIMATE *p)
{
if (p->fFirstPaint)
{
p->fFirstPaint = FALSE;
if (p->NumFrames == 0 &&
(p->style & WS_CHILD))
{
HandleOpen(p, NULL, NULL, OPEN_WINDOW_TEXT);
}
}
}
void HandlePaint(ANIMATE *p, HDC hdc)
{
if( p && p->prle )
{
Enter( p );
RleFile_Paint( p->prle, hdc, p->iFrame, p->rc.left, p->rc.top );
Leave( p );
}
}
void HandleErase(ANIMATE * p, HDC hdc)
{
HBRUSH hbr;
RECT rc;
hbr = (HBRUSH)SendMessage(p->hwndP, GET_WM_CTLCOLOR_MSG(CTLCOLOR_STATIC),
GET_WM_CTLCOLOR_MPS(hdc, p->hwnd, CTLCOLOR_STATIC));
GetClientRect(p->hwnd, &rc);
FillRect(hdc, &rc, hbr);
}
void HandlePrint(ANIMATE *p, HDC hdc)
{
HandleFirstPaint(p);
HandlePaint(p, hdc);
}
int HandleTick(ANIMATE *p)
// - if something to do but we are hidden
// returns 0 if nothing left
// + if something to do
{
int result = 0;
if( p && p->prle )
{
HDC hdc;
RECT dummy;
Enter( p );
hdc = GetDC( p->hwnd );
if( GetClipBox( hdc, &dummy ) != NULLREGION )
{
// do a full repaint on first frame
if( p->iFrame == p->PlayFrom )
HandlePaint( p, hdc );
else
RleFile_Draw( p->prle, hdc, p->iFrame, p->rc.left, p->rc.top );
if( p->iFrame >= p->PlayTo )
{
if( p->PlayCount > 0 )
p->PlayCount--;
if( p->PlayCount != 0 )
p->iFrame = p->PlayFrom;
}
else
p->iFrame++;
// Something to do? and visible, return + value
result = ( p->PlayCount != 0 );
}
else
{
// Something to do? but hidden, so return - value
p->iFrame = p->PlayFrom;
result = -( p->PlayCount != 0 );
}
ReleaseDC( p->hwnd, hdc );
Leave( p );
}
return result;
}
void NEAR Ani_OnStyleChanged(ANIMATE* p, WPARAM gwl, LPSTYLESTRUCT pinfo)
{
if (gwl == GWL_STYLE) {
p->style = pinfo->styleNew;
}
}
LRESULT CALLBACK AnimateWndProc(HWND hwnd, UINT msg, WPARAM wParam, LPARAM lParam)
{
ANIMATE *p = (ANIMATE *)GetWindowPtr(hwnd, 0);
HDC hdc;
PAINTSTRUCT ps;
// First, the messages that can handle p == NULL.
// All these handlers must end with a "return" or a "goto DoDefault".
switch (msg) {
case WM_NCCREATE:
#define lpcs ((LPCREATESTRUCT)lParam)
p = (ANIMATE *)LocalAlloc(LPTR, sizeof(ANIMATE));
if (!p)
return 0; // WM_NCCREATE failure is 0
// note, zero init memory from above
p->hwnd = hwnd;
p->hwndP = lpcs->hwndParent;
p->id = PtrToUlong(lpcs->hMenu); // really was an int
p->fFirstPaint = TRUE;
p->style = lpcs->style;
// Must do this before SetWindowBits because that will recursively
// cause us to receive WM_STYLECHANGED and possibly even WM_SIZE
// messages.
#ifdef WIN32
InitializeCriticalSection(&p->crit);
#endif
SetWindowPtr(hwnd, 0, p);
//
// UnMirror the control, if it is mirrored. We shouldn't mirror
// a movie! [samera]
//
SetWindowBits(hwnd, GWL_EXSTYLE, RTL_MIRRORED_WINDOW, 0);
goto DoDefault;
case WM_CLOSE:
Animate_Stop(hwnd);
goto DoDefault;
case WM_NCHITTEST:
return HTTRANSPARENT;
case WM_GETOBJECT:
if( lParam == OBJID_QUERYCLASSNAMEIDX )
return MSAA_CLASSNAMEIDX_ANIMATE;
goto DoDefault;
}
// Okay, now the messages that cannot handle p == NULL.
// We check p == NULL once and for all.
if (!p) goto DoDefault;
switch (msg) {
case WM_DESTROY:
Animate_Close(hwnd);
DeleteCriticalSection(&p->crit);
LocalFree((HLOCAL)p);
SetWindowPtr(hwnd, 0, 0);
break;
case WM_ERASEBKGND:
HandleErase(p, (HDC)wParam);
return(1);
case WM_PAINT:
HandleFirstPaint(p);
hdc = BeginPaint(hwnd, &ps);
HandlePaint(p, hdc);
EndPaint(hwnd, &ps);
return 0;
case WM_PRINTCLIENT:
HandlePrint(p, (HDC)wParam);
return 0;
case WM_STYLECHANGED:
Ani_OnStyleChanged(p, wParam, (LPSTYLESTRUCT)lParam);
return 0L;
case WM_SIZE:
if (p->style & ACS_CENTER)
{
OffsetRect(&p->rc, (LOWORD(lParam)-RectWid(p->rc))/2-p->rc.left,
(HIWORD(lParam)-RectHgt(p->rc))/2-p->rc.top);
InvalidateRect(hwnd, NULL, TRUE);
}
break;
case WM_TIMER:
{
int result;
result = HandleTick(p);
if (!result)
{
HandleStop(p);
}
else if (result < 0)
{
p->PaintThread = (HANDLE)SetTimer(p->hwnd, 42, (UINT)p->Rate+4000, NULL);
} else
{
p->PaintThread = (HANDLE)SetTimer(p->hwnd, 42, (UINT)p->Rate, NULL);
}
}
break;
#ifdef UNICODE
case ACM_OPENA:
{
WCHAR szFileNameW[MAX_PATH];
LPTSTR lpFileName = szFileNameW;
if (!IS_INTRESOURCE(lParam)) {
MultiByteToWideChar (CP_ACP, 0, (LPCSTR)lParam, -1,
szFileNameW, MAX_PATH);
} else {
lpFileName = (LPTSTR) lParam;
}
return HandleOpen(p, (HINSTANCE)wParam, lpFileName, 0);
}
#endif
case ACM_OPEN:
return HandleOpen(p, (HINSTANCE)wParam, (LPCTSTR)lParam, 0);
case ACM_STOP:
return HandleStop(p);
case ACM_PLAY:
return HandlePlay(p, (int)(SHORT)LOWORD(lParam), (int)(SHORT)HIWORD(lParam), (int)wParam);
}
DoDefault:
return DefWindowProc(hwnd, msg, wParam, lParam);
}