- 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));