unit Uabout;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, LtLabel, Uutils, JobCommon;

type
  TAboutDialog = class(TForm)
    Label1: TLabel;
    LightLabel1: TLightLabel;
    Label2: TLabel;
    Label3: TLabel;
    ListDEF: TListBox;
    Label4: TLabel;
    JobSeedList: TListBox;
    procedure FormCreate(Sender: TObject);
  private
    { Private 宣言 }
    procedure AddJobSeed(JobClass : TJobclass);
  public
    { Public 宣言 }
  end;

var
  AboutDialog: TAboutDialog;

implementation

{$R *.dfm}

Uses
  Umain;

procedure TAboutDialog.AddJobSeed(JobClass: TJobclass);
var
  TempSeedlist : TStringList;
begin
  TempSeedlist := TStringList.Create;
  try
    JobSeedList.Items.Add('['+ JobClass.ClassName + ']');
    TempSeedlist.Text := JobClass.GetCalcSeedList;
    JobSeedList.Items.AddStrings(TempSeedlist);
    JobSeedList.Items.Add('');
  finally
    TempSeedlist.Free;
  end;
end;

procedure TAboutDialog.FormCreate(Sender: TObject);
Var
  hFile : Integer;
  Dos : Integer;
  FileData : TDateTime;
  Path: array[0..MAX_PATH *2] of Char;
begin
  //TLightLabel.Destroyを変更したせいかうまく
  //設定が保存されないので再設定する
  LightLabel1.Color := clBtnFace;

  //こちらも機能して無い(? ので再設定
  LightLabel1.ShowHint := True;

  Label3.Caption := Label3.Caption + '(CompilerVersion' + FormatFloat('#,##0.00',CompilerVersion) + ')';
  GetModuleFileName(0,Path,MAX_PATH);
  hFile :=FileOpen(Path,0);
  Dos :=FileGetDate(hFile);
  FileClose(hFile);
  FileData :=FileDateToDateTime(Dos);

  AddJobSeed(MainForm.Novice);
  AddJobSeed(MainForm.Warrior);
  AddJobSeed(MainForm.Knight);
  AddJobSeed(MainForm.Priest);
  AddJobSeed(MainForm.Magician);
  AddJobSeed(MainForm.Pierro);

{$IFDEF Release}
  MemoDEF.Items.Add('Release');

{$ELSE}
  Label1.Caption := Label1.Caption + ':' + 'NightlyBuild';
  ListDEF.Items.Add('NightlyBuild');
{$ENDIF}
  Label2.Caption := 'BuildDate:' + DateTostr(FileData);



{$IFDEF MemCheckStackTrace}
  ListDEF.Items.Add('MemCheckStackTrace');
{$ENDIF}

{$IFDEF LoadIniJobData}
  ListDEF.Items.Add('LoadIniJobData');
{$ENDIF}

{$IFDEF DEBUG_AUTO}
  ListDEF.Items.Add('DEBUG_AUTO');
{$ENDIF}

{$IFDEF DEBUG_ENABLE}
  ListDEF.Items.Add('DEBUG_ENABLE');
{$ENDIF}

{$IFDEF DEBUG_SILENT}
  ListDEF.Items.Add('DEBUG_SILENT');
{$ENDIF}

end;

end.

PC用眼鏡【管理人も使ってますがマジで疲れません】 解約手数料０円【あしたでんき】 Yahoo 楽天 NTT-X Store

無料ホームページ 無料のクレジットカード 海外格安航空券 ふるさと納税 海外旅行保険が無料！ 海外ホテル