#include <dialog.h>
#include <string.h>
#include <static.h>
#include "status.h"
#include "test.h"
#define APPNAME "Test"
#define BUFSIZE 20

class TTest : public TDialog
{
public:
    TTest;
    TTest();
   virtual void Button1()=[ID_FIRST+ID_1];
   virtual void Button2()=[ID_FIRST+ID_2];
   virtual void Button3()=[ID_FIRST+ID_3];
   PTStatic PTETest;
};

TTest::TTest() : TDialog(NULL, APPNAME)
{
    PTETest=new TStatus(this, ID_Test, BUFSIZE);
}

void TTest::Button1()
{
   PTETest->SetText("Pressed button 1");
}

void TTest::Button2()
{
   PTETest->SetText("Pressed button 2");
}

void TTest::Button3()
{
   PTETest->Clear();
}

class TTestApp : public TApplication
{
public:
    TTestApp(LPSTR AName, HANDLE hInstance, HANDLE hPrevInstance, LPSTR lpCmd, int nCmdShow)
        : TApplication(AName, hInstance, hPrevInstance, lpCmd, nCmdShow)  {} ;
    virtual void InitMainWindow();
};

void TTestApp::InitMainWindow()
{
    MainWindow = new TTest();
}

int PASCAL WinMain(HANDLE hInstance, HANDLE hPrevInstance, LPSTR lpCmd, int nCmdShow)
{
    TTestApp TestApp(APPNAME, hInstance, hPrevInstance, lpCmd, nCmdShow);

    TestApp.Run();
    return TestApp.Status;
}
