・書き込み時の新しい「書きこみ＆クッキー」メッセージに対応

[gikonavigoeson/gikonavi.git] / About.pas

diff --git a/About.pas b/About.pas
index 848321c..9903895 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
@@ -63,35 +69,28 @@ const
 
 procedure TAboutDialog.FormCreate(Sender: TObject);
 var
-       build: string;
-       bnum: Integer;
+    CenterForm: TCustomForm;
 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;
+    CenterForm := TCustomForm(Owner);
+    if Assigned(CenterForm) then begin
+        Left := ((CenterForm.Width - Width) div 2) + CenterForm.Left;
+        Top := ((CenterForm.Height - Height) div 2) + CenterForm.Top;
+    end else begin
+        Left := (Screen.Width - Width) div 2;
+        Top := (Screen.Height - Height) div 2;
+    end;
+       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 +154,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.