Browse CVS Repository
Diff of /gikonavigoeson/gikonavi/About.pas
Parent Directory
| Revision Log
| Revision Graph
| Patch
| 12 |
Label1: TLabel; |
Label1: TLabel; |
| 13 |
Image1: TImage; |
Image1: TImage; |
| 14 |
Button1: TButton; |
Button1: TButton; |
| 15 |
VersionLabel: TLabel; |
VersionEdit: TEdit; |
| 16 |
procedure FormCreate(Sender: TObject); |
procedure FormCreate(Sender: TObject); |
| 17 |
// procedure BNGikoNaviImageClick(Sender: TObject); |
// procedure BNGikoNaviImageClick(Sender: TObject); |
| 18 |
// procedure BNMonazillaImageClick(Sender: TObject); |
// procedure BNMonazillaImageClick(Sender: TObject); |
| 64 |
procedure TAboutDialog.FormCreate(Sender: TObject); |
procedure TAboutDialog.FormCreate(Sender: TObject); |
| 65 |
begin |
begin |
| 66 |
|
|
| 67 |
VersionLabel.Caption := 'Version ' + BETA_VERSION_NAME_J |
VersionEdit.Text := 'Version ' + BETA_VERSION_NAME_J |
| 68 |
+ IntToStr(BETA_VERSION) |
+ FloatToStr(BETA_VERSION) |
| 69 |
+ '(' |
+ '(' |
| 70 |
+ GikoSys.Version |
+ GikoSys.Version |
| 71 |
+ ')'; |
+ ')'; |
|
|
Legend:
| Removed from v.1.4 |
|
| changed lines |
| |
Added in v.1.5 |
|
|
|