X-Git-Url: http://git.osdn.net/view?a=blobdiff_plain;f=About.pas;h=2eeda5201374d71dad353b84fe5b1768062d46d8;hb=refs%2Fheads%2FBb52;hp=eb6064052b77d89d565afb9412c5270655d6c3a1;hpb=9d9c750cc96527fcf2b9692d186cdfb1327a5e6d;p=gikonavigoeson%2Fgikonavi.git

diff --git a/About.pas b/About.pas
index eb60640..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
@@ -63,12 +69,18 @@ const
 
 procedure TAboutDialog.FormCreate(Sender: TObject);
 begin
-
-	VersionEdit.Text := 'Version ' + BETA_VERSION_NAME_J
+	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;
 
 
@@ -132,4 +144,10 @@ begin
 
 end;}
 
+procedure TAboutDialog.CopyButtonClick(Sender: TObject);
+begin
+	//ƒo[ƒWƒ‡ƒ“î•ñ‚ðClipBoard‚É“ü‚ê‚é
+	Clipboard.SetTextBuf( PChar(VersionMemo.Text) );
+end;
+
 end.