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
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
Label1: TLabel;
Image1: TImage;
Button1: TButton;
- VersionLabel: TLabel;
+ VersionEdit: TEdit;
procedure FormCreate(Sender: TObject);
// procedure BNGikoNaviImageClick(Sender: TObject);
// procedure BNMonazillaImageClick(Sender: TObject);
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
+ ')';