summaryrefslogtreecommitdiff
path: root/uidesigner/newformdesigner.pas
diff options
context:
space:
mode:
authorGraeme Geldenhuys <graeme@mastermaths.co.za>2009-07-09 17:13:04 +0200
committerGraeme Geldenhuys <graeme@mastermaths.co.za>2009-07-09 17:13:04 +0200
commite71d20abbaea9896187fb123f13976c1d00cc439 (patch)
tree7ebe8425e5d9c9dcbf94dda3eb3af53950443152 /uidesigner/newformdesigner.pas
parentad3ba9ab98e668c71a8acf928b6de130d905e9d0 (diff)
downloadfpGUI-e71d20abbaea9896187fb123f13976c1d00cc439.tar.xz
UIDesigner: text alignment improvement in version label
Diffstat (limited to 'uidesigner/newformdesigner.pas')
-rw-r--r--uidesigner/newformdesigner.pas6
1 files changed, 4 insertions, 2 deletions
diff --git a/uidesigner/newformdesigner.pas b/uidesigner/newformdesigner.pas
index c5ab3029..20324e95 100644
--- a/uidesigner/newformdesigner.pas
+++ b/uidesigner/newformdesigner.pas
@@ -146,7 +146,7 @@ type
TfrmAbout = class(TfpgForm)
- public
+ private
{@VFD_HEAD_BEGIN: frmAbout}
lblName1: TfpgLabel;
lblVersion: TfpgLabel;
@@ -155,6 +155,7 @@ type
lblName4: TfpgHyperlink;
lblCompiled: TfpgLabel;
{@VFD_HEAD_END: frmAbout}
+ public
procedure AfterCreate; override;
class procedure Execute;
end;
@@ -206,7 +207,8 @@ begin
with lblVersion do
begin
Name := 'lblVersion';
- SetPosition(150, 56, 175, 16);
+ SetPosition(62, 48, 195, 20);
+ Alignment := taRightJustify;
FontDesc := '#Label2';
Hint := '';
Text := 'Version: %s';