⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 flexedit.cpp

📁 FlexGraphics是一套创建矢量图形的VCL组件
💻 CPP
字号:
//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop
USERES("FlexEdit.res");
USEFORMNS("..\ToolMngr.pas", Toolmngr, ToolContainer);
USEFORMNS("..\fChild.pas", Fchild, FlexChildForm);
USEFORMNS("..\fDocProps.pas", Fdocprops, fmDocProps);
USEFORMNS("..\fInspector.pas", Finspector, fmInspector);
USEFORMNS("..\fLayers.pas", Flayers, fmLayers);
USEFORMNS("..\fLibItemProps.pas", Flibitemprops, fmLibItemProps);
USEFORMNS("..\fLibProps.pas", Flibprops, fmLibProps);
USEFORMNS("..\fLibrary.pas", Flibrary, fmLibrary);
USEFORMNS("..\fOptions.pas", Foptions, fmOptions);
USEFORMNS("..\fPreview.pas", Fpreview, fmPreview);
USEFORMNS("..\fUserData.pas", Fuserdata, fmUserData);
USEFORMNS("..\Main.pas", Main, EditMainForm);
USEFORMNS("..\fAboutPrg.pas", Faboutprg, formAbout);
USEFORMNS("..\PropForms\UserDataFrm.pas", Userdatafrm, UserDataForm);
USEFORMNS("..\PropForms\LineCapFrm.pas", Linecapfrm, LineCapPropForm);
USEFORMNS("..\PropForms\PenFrm.pas", Penfrm, PenPropForm);
USEFORMNS("..\PropForms\PictureFrm.pas", Picturefrm, PicturePropForm);
USEFORMNS("..\PropForms\StrListFrm.pas", Strlistfrm, StrListPropForm);
USEFORMNS("..\PropForms\BrushFrm.pas", Brushfrm, BrushPropForm);
//---------------------------------------------------------------------------
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
{
        try
        {
                 Application->Initialize();
                 Application->CreateForm(__classid(TEditMainForm), &EditMainForm);
                 Application->CreateForm(__classid(TfmInspector), &fmInspector);
                 Application->CreateForm(__classid(TfmLayers), &fmLayers);
                 Application->CreateForm(__classid(TfmLibrary), &fmLibrary);
                 Application->CreateForm(__classid(TfmUserData), &fmUserData);
                 Application->Run();
        }
        catch (Exception &exception)
        {
                 Application->ShowException(&exception);
        }
        return 0;
}
//---------------------------------------------------------------------------

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -