diff options
author | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2009-07-09 17:13:04 +0200 |
---|---|---|
committer | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2009-07-09 17:13:04 +0200 |
commit | e71d20abbaea9896187fb123f13976c1d00cc439 (patch) | |
tree | 7ebe8425e5d9c9dcbf94dda3eb3af53950443152 | |
parent | ad3ba9ab98e668c71a8acf928b6de130d905e9d0 (diff) | |
download | fpGUI-e71d20abbaea9896187fb123f13976c1d00cc439.tar.xz |
UIDesigner: text alignment improvement in version label
-rw-r--r-- | uidesigner/newformdesigner.pas | 6 |
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'; |