X-Git-Url: http://git.osdn.net/view?a=blobdiff_plain;f=About.pas;h=2eeda5201374d71dad353b84fe5b1768062d46d8;hb=refs%2Fheads%2FBb62;hp=848321c1c5d0f6333e1ac3d2af2dfe897adfb92a;hpb=6c4e06a2dc1b6e7703c6b65b8d35545af59131fa;p=gikonavigoeson%2Fgikonavi.git

diff --git a/About.pas b/About.pas
index 848321c..2eeda52 100644
--- a/About.pas
+++ b/About.pas
@@ -9,10 +9,15 @@ uses
 
 type
 	TAboutDialog = class(TForm)
-		Label1: TLabel;
-		Image1: TImage;
-		Button1: TButton;
-    VersionEdit: TEdit;
+	Panel1: TPanel;
+	Label1: TLabel;
+	Image1: TImage;
+	Panel2: TPanel;
+	Button1: TButton;
+	VersionPanel: TPanel;
+	VersionMemo: TMemo;
+	ButtonPanel: TPanel;
+    CopyButton: TButton;
 		procedure FormCreate(Sender: TObject);
 //		procedure BNGikoNaviImageClick(Sender: TObject);
 //		procedure BNMonazillaImageClick(Sender: TObject);
@@ -20,6 +25,7 @@ type
 //		procedure Timer2Timer(Sender: TObject);
 //		procedure HiLabelClick(Sender: TObject);
 		procedure FormClose(Sender: TObject; var Action: TCloseAction);
+    procedure CopyButtonClick(Sender: TObject);
 //		procedure Image1Click(Sender: TObject);
 //    procedure Timer1Timer(Sender: TObject);
 	private
@@ -62,36 +68,19 @@ const
 //{$R gikoSound.res}
 
 procedure TAboutDialog.FormCreate(Sender: TObject);
-var
-	build: string;
-	bnum: Integer;
 begin
-	bnum := GikoSys.GetVersionBuild;
-	if bnum > 0 then
-		build := 'Build ' + IntToStr(bnum);
-{	VersionLabel.Caption := 'Version ' + IntToStr(MAJOR_VERSION) + '.'
-												+ Format('%.2d', [MINOR_VERSION]) + ' '
-												+ BETA_VERSION_NAME_J
-												+ IntToStr(BETA_VERSION)
-												+ BETA_VERSION_BUILD + ' '
-												+ build;
-}
-	VersionEdit.Text := 'Version ' + BETA_VERSION_NAME_J
-												+ FloatToStr(BETA_VERSION)
-												+ BETA_VERSION_BUILD + ' '
-												+ build;
-//	Screen.Cursors[5] := LoadCursor(HInstance, 'GIKOHAND');
-
-//	BNGikoNaviImage.Hint := TIP_GIKONAVI;
-//	BNMonazillaImage.Hint := TIP_MONAZILLA;
-//	BN365ccImage.Hint := TIP_365CC;
-//	BNGikoNaviImage.Cursor := 5;
-//	BNMonazillaImage.Cursor := 5;
-//	BN365ccImage.Cursor := 5;
-//	HiLabel.Cursor := 5;
-//	DoubleBuffered := True;
-//	FCnt := 0;
-//	Randomize;
+	VersionMemo.Clear;
+	VersionMemo.Lines.Add('Version ' + BETA_VERSION_NAME_J
+									+ FloatToStr(BETA_VERSION)
+									+ '('
+									+ GikoSys.Version
+									+ ')');
+    VersionMemo.Lines.Add('');
+	VersionMemo.Lines.Add('<Plugins>');
+	VersionMemo.Lines.Add(Trim(GikoSys.GetPluginsInfo));
+	VersionMemo.Lines.Add('');
+	VersionMemo.Lines.Add('<IE>');
+	VersionMemo.Lines.Add(Trim(GikoSys.GetIEVersion));
 end;
 
 
@@ -155,4 +144,10 @@ begin
 
 end;}
 
+procedure TAboutDialog.CopyButtonClick(Sender: TObject);
+begin
+	//ƒo[ƒWƒ‡ƒ“î•ñ‚ðClipBoard‚É“ü‚ê‚é
+	Clipboard.SetTextBuf( PChar(VersionMemo.Text) );
+end;
+
 end.