www.pudn.com > PtOpenGuiSourceCode.zip > PTx_proj.cpp

//--------------------------------------------------------------------------- 
#include  
#pragma hdrstop 
USERES("PTx_proj.res"); 
USEFORM("PTx.cpp", FormMain); 
USEFORM("UnitParser.cpp", FormParser); 
USEUNIT("correct.cpp"); 
USEUNIT("math.cpp"); 
USEUNIT("filter.cpp"); 
USEUNIT("adjust.cpp"); 
USEUNIT("WinProgUnit.pas"); 
USEUNIT("IFD_Module.pas"); 
USEUNIT("LZW_Module.pas"); 
USEUNIT("TIFFBMP.pas"); 
USEFORM("UnitAbout.cpp", FormAbout); 
USEFORM("UnitControlPointTable.cpp", FormControlPoints); 
USEFORM("UnitProgressBar.cpp", FormReadingImage); 
USEFORM("UnitPreview.cpp", FormPreview); 
USEFORM("UnitPositionSearch.cpp", FormPositionSearch); 
USEFORM("UnitOptions.cpp", FormOptions); 
USEUNIT("rgb2yuv.cpp"); 
//--------------------------------------------------------------------------- 
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int) 
{ 
        try 
        { 
                 Application->Initialize(); 
                 Application->Title = "Panorama tools Open GUI"; 
                 Application->CreateForm(__classid(TFormMain), &FormMain); 
		Application->CreateForm(__classid(TFormParser), &FormParser); 
		Application->CreateForm(__classid(TFormAbout), &FormAbout); 
		Application->CreateForm(__classid(TFormControlPoints), &FormControlPoints); 
		Application->CreateForm(__classid(TFormReadingImage), &FormReadingImage); 
		Application->CreateForm(__classid(TFormPreview), &FormPreview); 
		Application->CreateForm(__classid(TFormPositionSearch), &FormPositionSearch); 
		Application->CreateForm(__classid(TFormOptions), &FormOptions); 
		Application->Run(); 
        } 
        catch (Exception &exception) 
        { 
                 Application->ShowException(&exception); 
        } 
        return 0; 
} 
//---------------------------------------------------------------------------