* Bumped version

* Updated copyright
* Read copyright from resource
* Removed obsolete lines from version.inc
This commit is contained in:
2012-01-07 17:23:07 +01:00
parent 811d91cc8a
commit aa37b1cf1d
12 changed files with 78 additions and 33 deletions

View File

@@ -18,12 +18,15 @@
<UseVersionInfo Value="True"/>
<MinorVersionNr Value="6"/>
<RevisionNr Value="2"/>
<BuildNr Value="223"/>
<StringTable CompanyName="AKS DataBasis" ProductName="CentrED" InternalName="CentrED" LegalCopyright="Andreas Schneider" ProductVersion="0.6.2" FileDescription="UO CentrED" OriginalFilename="CentrED.exe"/>
<BuildNr Value="238"/>
<StringTable CompanyName="AKS DataBasis" ProductName="CentrED" InternalName="CentrED" LegalCopyright="(c) 2012 Andreas Schneider" ProductVersion="0.6.2" FileDescription="UO CentrED" OriginalFilename="CentrED.exe"/>
</VersionInfo>
<BuildModes Count="3">
<Item1 Name="default" Default="True"/>
<Item2 Name="Release Win32">
<MacroValues Count="1">
<Macro1 Name="LCLWidgetType" Value="win32"/>
</MacroValues>
<CompilerOptions>
<Version Value="11"/>
<Target>
@@ -73,6 +76,9 @@
</CompilerOptions>
</Item2>
<Item3 Name="Release Linux GTK2 x86">
<MacroValues Count="1">
<Macro1 Name="LCLWidgetType" Value="gtk2"/>
</MacroValues>
<CompilerOptions>
<Version Value="11"/>
<Target>

View File

@@ -21,7 +21,7 @@
* CDDL HEADER END
*
*
* Portions Copyright 2011 Andreas Schneider
* Portions Copyright 2012 Andreas Schneider
*)
program CentrED;

View File

@@ -116,7 +116,7 @@ object frmAbout: TfrmAbout
Align = alTop
Alignment = taCenter
BorderSpacing.Around = 4
Caption = 'Copyright 2011 Andreas Schneider'
Caption = 'Copyright 2012 Andreas Schneider'
ParentColor = False
end
end

View File

@@ -21,7 +21,7 @@
* CDDL HEADER END
*
*
* Portions Copyright 2011 Andreas Schneider
* Portions Copyright 2012 Andreas Schneider
*)
unit UfrmAbout;
@@ -75,6 +75,7 @@ end;
procedure TfrmAbout.FormCreate(Sender: TObject);
begin
lblVersion.Caption := Format('Version %s', [VersionInfo.GetProductVersionString]);
lblCopyright.Caption := VersionInfo.GetCopyright(True);
end;
initialization

View File

@@ -1,20 +1,20 @@
object frmLogin: TfrmLogin
Left = 290
Height = 250
Height = 265
Top = 201
Width = 483
ActiveControl = btnOK
BorderIcons = [biSystemMenu]
BorderStyle = bsDialog
Caption = 'UO CentrED'
ClientHeight = 250
ClientHeight = 265
ClientWidth = 483
Font.Height = -11
OnClose = FormClose
OnCreate = FormCreate
Position = poScreenCenter
ShowInTaskBar = stAlways
LCLVersion = '0.9.29'
LCLVersion = '0.9.31'
object lblCopyright: TLabel
AnchorSideLeft.Control = Owner
AnchorSideTop.Control = gbData
@@ -24,12 +24,13 @@ object frmLogin: TfrmLogin
AnchorSideBottom.Control = Owner
AnchorSideBottom.Side = asrBottom
Left = 0
Height = 1
Height = 14
Top = 249
Width = 483
Alignment = taCenter
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 8
Caption = ' '
ParentColor = False
end
object gbConnection: TGroupBox

View File

@@ -79,9 +79,7 @@ var
implementation
uses
UdmNetwork;
{$I version.inc}
UdmNetwork, vinfo;
{ TfrmLogin }
@@ -171,8 +169,8 @@ procedure TfrmLogin.FormCreate(Sender: TObject);
var
searchRec: TSearchRec;
begin
lblCopyright.Caption := Format('UO CentrED Client Version %s (c) %s',
[ProductVersion, Copyright]);
lblCopyright.Caption := Format('UO CentrED Client Version %s %s',
[VersionInfo.GetProductVersionString, VersionInfo.GetCopyright]);
FProfilePath := GetAppConfigDir(False) + 'Profiles' + PathDelim;
ForceDirectories(FProfilePath);