This commit was manufactured by cvs2svn to create branch 'Bb62'.

[gikonavigoeson/gikonavi.git] / About.pas

diff --git a/About.pas b/About.pas
index 7975f2a..2eeda52 100644 (file)
--- a/About.pas
+++ b/About.pas
@@ -9,10 +9,15 @@ uses
 
 type
        TAboutDialog = class(TForm)
-               Label1: TLabel;
-               Image1: TImage;
-               Button1: TButton;
-    VersionLabel: TLabel;
+       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
-
-       VersionLabel.Caption := 'Version ' + BETA_VERSION_NAME_J
-                                                                       + IntToStr(BETA_VERSION)
+       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
+       //\83o\81[\83W\83\87\83\93\8fî\95ñ\82ðClipBoard\82É\93ü\82ê\82é
+       Clipboard.SetTextBuf( PChar(VersionMemo.Text) );
+end;
+
 end.