* Bumped version
* Updated copyright * Read copyright from resource * Removed obsolete lines from version.inc
This commit is contained in:
@@ -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>
|
||||
|
||||
@@ -21,7 +21,7 @@
|
||||
* CDDL HEADER END
|
||||
*
|
||||
*
|
||||
* Portions Copyright 2011 Andreas Schneider
|
||||
* Portions Copyright 2012 Andreas Schneider
|
||||
*)
|
||||
program CentrED;
|
||||
|
||||
|
||||
@@ -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
|
||||
|
||||
@@ -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
|
||||
|
||||
@@ -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
|
||||
|
||||
@@ -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);
|
||||
|
||||
Reference in New Issue
Block a user