CYFROWY BARON • PROGRAMOWANIE

typedef struct tagANIMATEINFO
{
    HWND HForm;
    Graphics::TBitmap *Bitmap;
} ANIMATEINFO, *LPANIMATEINFO;

void CALLBACK TimerProc(unsigned int uID, unsigned int uMsg,
                              DWORD dwUser, DWORD dw1, DWORD dw2);

class TForm1 : public TForm
{
__published: // IDE-managed Components
    TButton *Button1;
    TImage *Image1;

    void __fastcall Button1Click(TObject *Sender);
    void __fastcall FormClose(TObject *Sender, TCloseAction &Action);

private: // User declarations
    int TimerID;
    LPANIMATEINFO lpani;

public: // User declarations
    __fastcall TForm1(TComponent* Owner);
    int __fastcall GetResolution(target);
    int __fastcall StartMMTimer(int Interval, int Resolution, DWORD data);
    void __fastcall KillMMTimer(int TimerID);
};

#include <mmsystem.h>

__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
    TimerID = 0;
}

int __fastcall TForm1::GetResolution(int target)
{
    TIMECAPS tc;
    unsigned int uiTimerRes;

    timeGetDevCaps(&tc, sizeof(TIMECAPS));
    uiTimerRes = min(max((int)tc.wPeriodMin, target), (int)tc.wPeriodMax);
    timeBeginPeriod(uiTimerRes);
    return uiTimerRes;
}

int __fastcall TForm1::StartMMTimer(int Interval,
                                       int Resolution, DWORD data)
{
    return timeSetEvent(Interval, Resolution, TimerProc,
    data, TIME_PERIODIC);
}

void __fastcall TForm1::KillMMTimer(int FTimerID)
{
    timeKillEvent(FTimerID);
}

void CALLBACK TimerProc(unsigned int uID, unsigned int uMsg,
DWORD dwUser,
    DWORD dw1, DWORD dw2)
{
    LPANIMATEINFO lpani = (ANIMATEINFO *)dwUser;

    HDC Hdc = GetDC(lpani->HForm);

    static int pos = 0;
    pos = pos + 5;
    if (pos > 300) pos = 0;

    RECT R = Rect(pos - 5, 0, pos, lpani->Bitmap->Height);
    FillRect(Hdc, &R, GetStockObject(LTGRAY_BRUSH));

    ::BitBlt(Hdc, pos, 0, lpani->Bitmap->Width, lpani->Bitmap->Height,
             lpani->Bitmap->Canvas->Handle, 0, 0, SRCCOPY);

    ReleaseDC(lpani->HForm, Hdc);
}

void __fastcall TForm1::Button1Click(TObject *Sender)
{
    lpani = new ANIMATEINFO;
    lpani->HForm = Handle;
    lpani->Bitmap = Image1->Picture->Bitmap;

    int Resolution = GetResolution(1);
    TimerID = StartMMTimer(10, Resolution, (DWORD)lpani);
}

void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
    delete lpani;
    if (TimerID) KillMMTimer(TimerID);
}