frame_application.pas

来自「企业信息管理系统程序框架」· PAS 代码 · 共 87 行

unit frame_application;

interface

uses frame_umain, frame_udm, WinSkinData, forms, dosmove, sysutils, windows, frame_uSplash;

type
  Tframe_Application = class(TObject)
    // 执行程序
    procedure runApplication; virtual;
  protected
    procedure LayoutProcess;
    procedure setTimeFormat;
  end;
var
  ApplicationClass:TClass;

implementation
// LayoutProcess
// 处理界面外观风格

procedure Tframe_Application.LayoutProcess;
begin
  // 皮肤处理
  SD := TSkinData.Create(Application);
  readSkin;

  // 焦点颜色处理
  myDosMove := TDosMove.Create(Application);
  with myDosMove do
  begin
    NPClassNames.Clear;
    NPClassNames.Add('TCheckBox');
    NPClassNames.Add('TComboBox');
    NPClassNames.Add('TEdit');
    NPClassNames.Add('TMemo');
    NPClassNames.Add('TRadioButton');
    NPClassNames.Add('TLabeledEdit');
    EnterColor := $00E0DBBC;
    ActiveColor := True;
    EscQuit := True;
    Active := true;
  end;
end;

// setTimeFormat
// 设置时间格式

procedure Tframe_Application.setTimeFormat;
begin
  ShortDateFormat := 'YYYY-MM-DD';
  LongDateFormat := 'YYYY-MM-DD';
  SetLocaleInfo(LOCALE_SYSTEM_DEFAULT, LOCALE_SSHORTDATE, 'yyyy-MM-dd');
end;

// runApplication
// 执行程序

procedure Tframe_Application.runApplication;
var
  frmSplash: TFrame_FrmSplash;
begin
  Application.Initialize;


  // 处理界面skin风格和输入焦点颜色
  LayoutProcess;

  // 设置时间格式
  setTimeFormat;

  frmSplash := TFrame_frmSplash.create(application);
  frmSplash.Show;
  frmSplash.lblStat.visible := true;
  frmSplash.lblStat.caption := '正在连接数据库...';
  frmsplash.update;
  Application.CreateForm(DMClass, frame_DM);
  Application.CreateForm(frmMainClass, frame_frmMain);

  frmSplash.close;
  Application.Run;
end;
initialization
  ApplicationClass:=Tframe_Application;
end.