バージョン情報の表示をTEditコンポーネントに戻した

diff --git a/About.dfm b/About.dfm
index 1bb8abf..878e7cd 100644 (file)
--- a/About.dfm
+++ b/About.dfm
@@ -142,19 +142,6 @@ object AboutDialog: TAboutDialog
       83830000C7C70000C7C70000EFEF0000EFEF0000}
     Transparent = True
   end
-  object VersionLabel: TLabel
-    Left = 78
-    Top = 32
-    Width = 84
-    Height = 13
-    Caption = 'VersionLabel'
-    Font.Charset = SHIFTJIS_CHARSET
-    Font.Color = clWindowText
-    Font.Height = -13
-    Font.Name = #65325#65331' '#12468#12471#12483#12463
-    Font.Style = []
-    ParentFont = False
-  end
   object Button1: TButton
     Left = 110
     Top = 84
@@ -166,4 +153,14 @@ object AboutDialog: TAboutDialog
     ModalResult = 1
     TabOrder = 0
   end
+  object VersionEdit: TEdit
+    Left = 78
+    Top = 32
+    Width = 161
+    Height = 16
+    BorderStyle = bsNone
+    Color = clBtnFace
+    ReadOnly = True
+    TabOrder = 1
+  end
 end

diff --git a/About.pas b/About.pas
index 7975f2a..eb60640 100644 (file)
--- a/About.pas
+++ b/About.pas
@@ -12,7 +12,7 @@ type
                Label1: TLabel;
                Image1: TImage;
                Button1: TButton;
-    VersionLabel: TLabel;
+    VersionEdit: TEdit;
                procedure FormCreate(Sender: TObject);
 //             procedure BNGikoNaviImageClick(Sender: TObject);
 //             procedure BNMonazillaImageClick(Sender: TObject);
@@ -64,8 +64,8 @@ const
 procedure TAboutDialog.FormCreate(Sender: TObject);
 begin
 
-       VersionLabel.Caption := 'Version ' + BETA_VERSION_NAME_J
-                                                                       + IntToStr(BETA_VERSION)
+       VersionEdit.Text := 'Version ' + BETA_VERSION_NAME_J
+                                                                       + FloatToStr(BETA_VERSION)
                                                                        + '('
                                                                        + GikoSys.Version
                                                                        + ')';