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

[gikonavigoeson/gikonavi.git] / About.pas

diff --git a/About.pas b/About.pas
index 848321c..2eeda52 100644 (file)
--- 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
+       //\83o\81[\83W\83\87\83\93\8fî\95ñ\82ðClipBoard\82É\93ü\82ê\82é
+       Clipboard.SetTextBuf( PChar(VersionMemo.Text) );
+end;
+
 end.