paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-12 09:59:17 +02:00
Code Issues Packages Projects Releases Wiki Activity

JCF2: Fix About dialog (wordwrap issue), bug #16900.

Browse Source 
git-svn-id: trunk@26580 -
This commit is contained in:
maxim 2010-07-10 17:33:25 +00:00
parent a096753d90
commit 76ec54cbff
2 changed files with 18 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
components/jcf2/Ui/fAbout.lfm
View File

@ -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

15
components/jcf2/Ui/fAbout.pas
View File

@ -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}