EasyConfig/ConfigEditor.dpr.new at master · DeepKit/EasyConfig · 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
program ConfigEditor;

uses
  Vcl.Forms,
  ViewIntf in 'ViewIntf.pas',
  ConfigTypes in 'ConfigTypes.pas',
  ControllerIntf in 'ControllerIntf.pas',
  ControllerMain in 'ControllerMain.pas',
  INIConfig in 'INIConfig.pas',
  JSONConfig in 'JSONConfig.pas',
  ConfigTree in 'ConfigTree.pas',
  ViewBuildConfig in 'ViewBuildConfig.pas' {ViewBuildConfig: TFrame},
  FrameConfigEditor in 'FrameConfigEditor.pas' {frameConfigEditor: TFrame},
  FramesComplexEditor in 'FramesComplexEditor.pas',
  FrameFontEditor in 'FrameFontEditor.pas',
  FrameAIAPIEditor in 'FrameAIAPIEditor.pas',
  ReferenceEditor in 'ReferenceEditor.pas',
  ModelConfig in 'ModelConfig.pas',
  ModelRegistry in 'ModelRegistry.pas',
  HelperForm in 'HelperForm.pas',
  UtilsLog in 'UtilsLog.pas',
  BaseConfig in 'BaseConfig.pas',
  ConfigManager in 'ConfigManager.pas',
  CreateConfigItem in 'CreateConfigItem.pas',
  UTF8Converter in 'UTF8Converter.pas' {frmUTF8Converter};

{$R *.res}

var
  MainForm: TMainForm;
  BuildConfigFrame: TViewBuildConfig;

begin
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.CreateForm(TMainForm, MainForm);

  // 创建ViewBuildConfig作为主框架
  BuildConfigFrame := TViewBuildConfig.Create(MainForm);
  MainForm.SetBuildConfigFrame(BuildConfigFrame);

  // 设置窗体属性
  MainForm.Caption := '配置编辑器';
  MainForm.Width := 1024;
  MainForm.Height := 768;
  MainForm.Position := poScreenCenter;

  Application.Run;
end.