Frieve-Editor/editor.cpp at master · aki2525/Frieve-Editor · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop
//---------------------------------------------------------------------------
USEFORM("fomain.cpp", Fo_Main);
USEFORM("foselectcard.cpp", Fo_Select);
USEFORM("fosearch.cpp", Fo_Search);
USEFORM("foabout.cpp", Fo_About);
USEFORM("foedittext.cpp", Fo_EditText);
USEFORM("folabeledit.cpp", Fo_LabelEdit);
USEFORM("foview.cpp", Fo_View);
USEFORM("forandomanimation.cpp", Fo_RandomAnimation);
USEFORM("fofullscreen.cpp", Fo_FullScreen);
USEFORM("foinformation.cpp", Fo_Information);
USEFORM("foshape.cpp", Fo_Shape);
USEFORM("foprogress.cpp", Fo_Progress);
//---------------------------------------------------------------------------
#include "document.h"
//---------------------------------------------------------------------------
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
    try
    {
         Application->Initialize();
         Application->Title = AppTitle;
         Application->Title = "Frieve Editor";
        Application->CreateForm(__classid(TFo_Main), &Fo_Main);
         Application->CreateForm(__classid(TFo_Search), &Fo_Search);
         Application->CreateForm(__classid(TFo_View), &Fo_View);
         Application->CreateForm(__classid(TFo_RandomAnimation), &Fo_RandomAnimation);
         Application->CreateForm(__classid(TFo_FullScreen), &Fo_FullScreen);
         Application->CreateForm(__classid(TFo_Shape), &Fo_Shape);
         Application->CreateForm(__classid(TFo_Progress), &Fo_Progress);
         Application->Run();
    }
    catch (Exception &exception)
    {
         Application->ShowException(&exception);
    }
    catch (...)
    {
         try
         {
             throw Exception("");
         }
         catch (Exception &exception)
         {
             Application->ShowException(&exception);
         }
    }
    return 0;
}
//---------------------------------------------------------------------------