| 9 |
|
|
| 10 |
type |
type |
| 11 |
TAboutDialog = class(TForm) |
TAboutDialog = class(TForm) |
| 12 |
Label1: TLabel; |
Panel1: TPanel; |
| 13 |
Image1: TImage; |
Label1: TLabel; |
| 14 |
Button1: TButton; |
Image1: TImage; |
| 15 |
VersionEdit: TEdit; |
Panel2: TPanel; |
| 16 |
|
Button1: TButton; |
| 17 |
|
VersionPanel: TPanel; |
| 18 |
|
VersionMemo: TMemo; |
| 19 |
|
ButtonPanel: TPanel; |
| 20 |
|
CopyButton: TButton; |
| 21 |
procedure FormCreate(Sender: TObject); |
procedure FormCreate(Sender: TObject); |
| 22 |
// procedure BNGikoNaviImageClick(Sender: TObject); |
// procedure BNGikoNaviImageClick(Sender: TObject); |
| 23 |
// procedure BNMonazillaImageClick(Sender: TObject); |
// procedure BNMonazillaImageClick(Sender: TObject); |
| 25 |
// procedure Timer2Timer(Sender: TObject); |
// procedure Timer2Timer(Sender: TObject); |
| 26 |
// procedure HiLabelClick(Sender: TObject); |
// procedure HiLabelClick(Sender: TObject); |
| 27 |
procedure FormClose(Sender: TObject; var Action: TCloseAction); |
procedure FormClose(Sender: TObject; var Action: TCloseAction); |
| 28 |
|
procedure CopyButtonClick(Sender: TObject); |
| 29 |
// procedure Image1Click(Sender: TObject); |
// procedure Image1Click(Sender: TObject); |
| 30 |
// procedure Timer1Timer(Sender: TObject); |
// procedure Timer1Timer(Sender: TObject); |
| 31 |
private |
private |
| 69 |
|
|
| 70 |
procedure TAboutDialog.FormCreate(Sender: TObject); |
procedure TAboutDialog.FormCreate(Sender: TObject); |
| 71 |
begin |
begin |
| 72 |
VersionEdit.Text := 'Version ' + BETA_VERSION_NAME_J |
VersionMemo.Clear; |
| 73 |
|
VersionMemo.Lines.Add('Version ' + BETA_VERSION_NAME_J |
| 74 |
+ FloatToStr(BETA_VERSION) |
+ FloatToStr(BETA_VERSION) |
| 75 |
+ '(' |
+ '(' |
| 76 |
+ GikoSys.Version |
+ GikoSys.Version |
| 77 |
+ ')'; |
+ ')'); |
| 78 |
|
VersionMemo.Lines.Add(''); |
| 79 |
|
VersionMemo.Lines.Add('<Plugins>'); |
| 80 |
|
VersionMemo.Lines.Add(Trim(GikoSys.GetPluginsInfo)); |
| 81 |
|
VersionMemo.Lines.Add(''); |
| 82 |
|
VersionMemo.Lines.Add('<IE>'); |
| 83 |
|
VersionMemo.Lines.Add(Trim(GikoSys.GetIEVersion)); |
| 84 |
end; |
end; |
| 85 |
|
|
| 86 |
|
|
| 144 |
|
|
| 145 |
end;} |
end;} |
| 146 |
|
|
| 147 |
|
procedure TAboutDialog.CopyButtonClick(Sender: TObject); |
| 148 |
|
begin |
| 149 |
|
//バージョン情報をClipBoardに入れる |
| 150 |
|
Clipboard.SetTextBuf( PChar(VersionMemo.Text) ); |
| 151 |
|
end; |
| 152 |
|
|
| 153 |
end. |
end. |