diff --git a/components/jcf2/Ui/fAbout.lfm b/components/jcf2/Ui/fAbout.lfm index bf528e0e98..b826577ddf 100644 --- a/components/jcf2/Ui/fAbout.lfm +++ b/components/jcf2/Ui/fAbout.lfm @@ -13,7 +13,6 @@ object frmAboutBox: TfrmAboutBox KeyPreview = True OnCreate = FormCreate OnKeyUp = FormKeyUp - OnResize = FormResize Position = poScreenCenter LCLVersion = '0.9.29' object bbOK: TBitBtn @@ -424,11 +423,18 @@ object frmAboutBox: TfrmAboutBox } end object hlHomePage: TLabel + AnchorSideLeft.Control = lblMPL + AnchorSideTop.Control = lblMPL + AnchorSideTop.Side = asrBottom + AnchorSideRight.Control = lblMPL + AnchorSideRight.Side = asrBottom Cursor = crHandPoint Left = 11 Height = 18 - Top = 307 - Width = 85 + Top = 304 + Width = 462 + Anchors = [akTop, akLeft, akRight] + BorderSpacing.Top = 8 Caption = 'hlHomePage' Font.CharSet = ANSI_CHARSET Font.Color = clBlack @@ -442,11 +448,18 @@ object frmAboutBox: TfrmAboutBox OnMouseLeave = lblMPLMouseLeave end object lblMPL: TLabel + AnchorSideLeft.Control = mWarning + AnchorSideTop.Control = mWarning + AnchorSideTop.Side = asrBottom + AnchorSideRight.Control = mWarning + AnchorSideRight.Side = asrBottom Cursor = crHandPoint Left = 11 Height = 35 - Top = 259 - Width = 455 + Top = 261 + Width = 462 + Anchors = [akTop, akLeft, akRight] + BorderSpacing.Top = 8 Caption = 'This program is open source software. It is released under the Mozilla '#13#10'Public licence (MPL). http://www.mozilla.org/MPL' ParentColor = False WordWrap = True diff --git a/components/jcf2/Ui/fAbout.pas b/components/jcf2/Ui/fAbout.pas index c5681d07bc..5c0260db0e 100644 --- a/components/jcf2/Ui/fAbout.pas +++ b/components/jcf2/Ui/fAbout.pas @@ -47,7 +47,6 @@ type procedure FormCreate(Sender: TObject); procedure imgOpenSourceClick(Sender: TObject); procedure lblMPLClick(Sender: TObject); - procedure FormResize(Sender: TObject); procedure FormKeyUp(Sender: TObject; var Key: word; Shift: TShiftState); procedure hlHomePageClick(Sender: TObject); procedure lblMPLMouseEnter(Sender: TObject); @@ -124,20 +123,6 @@ begin [PROGRAM_HOME_PAGE]); end; -procedure TfrmAboutBox.FormResize(Sender: TObject); -const - SPACING = 8; -begin - mWarning.Left := SPACING; - mWarning.Width := pnlClient.ClientWidth - (2 * SPACING); - - lblMPL.Left := SPACING; - lblMPL.Width := pnlClient.ClientWidth - (2 * SPACING); - - hlHomePage.Left := SPACING; - hlHomePage.Width := pnlClient.ClientWidth - (2 * SPACING); -end; - procedure TfrmAboutBox.FormKeyUp(Sender: TObject; var Key: word; Shift: TShiftState); begin {$ifndef fpc}