paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-29 15:09:36 +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 KeyPreview = True
OnCreate = FormCreate OnCreate = FormCreate
OnKeyUp = FormKeyUp OnKeyUp = FormKeyUp
OnResize = FormResize
Position = poScreenCenter Position = poScreenCenter
LCLVersion = '0.9.29' LCLVersion = '0.9.29'
object bbOK: TBitBtn object bbOK: TBitBtn
@ -424,11 +423,18 @@ object frmAboutBox: TfrmAboutBox
} }
end end
object hlHomePage: TLabel object hlHomePage: TLabel
AnchorSideLeft.Control = lblMPL
AnchorSideTop.Control = lblMPL
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = lblMPL
AnchorSideRight.Side = asrBottom
Cursor = crHandPoint Cursor = crHandPoint
Left = 11 Left = 11
Height = 18 Height = 18
Top = 307 Top = 304
Width = 85 Width = 462
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 8
Caption = 'hlHomePage' Caption = 'hlHomePage'
Font.CharSet = ANSI_CHARSET Font.CharSet = ANSI_CHARSET
Font.Color = clBlack Font.Color = clBlack
@ -442,11 +448,18 @@ object frmAboutBox: TfrmAboutBox
OnMouseLeave = lblMPLMouseLeave OnMouseLeave = lblMPLMouseLeave
end end
object lblMPL: TLabel object lblMPL: TLabel
AnchorSideLeft.Control = mWarning
AnchorSideTop.Control = mWarning
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = mWarning
AnchorSideRight.Side = asrBottom
Cursor = crHandPoint Cursor = crHandPoint
Left = 11 Left = 11
Height = 35 Height = 35
Top = 259 Top = 261
Width = 455 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' 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 ParentColor = False
WordWrap = True WordWrap = True

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

@ -47,7 +47,6 @@ type
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);
procedure imgOpenSourceClick(Sender: TObject); procedure imgOpenSourceClick(Sender: TObject);
procedure lblMPLClick(Sender: TObject); procedure lblMPLClick(Sender: TObject);
procedure FormResize(Sender: TObject);
procedure FormKeyUp(Sender: TObject; var Key: word; Shift: TShiftState); procedure FormKeyUp(Sender: TObject; var Key: word; Shift: TShiftState);
procedure hlHomePageClick(Sender: TObject); procedure hlHomePageClick(Sender: TObject);
procedure lblMPLMouseEnter(Sender: TObject); procedure lblMPLMouseEnter(Sender: TObject);
@ -124,20 +123,6 @@ begin
[PROGRAM_HOME_PAGE]); [PROGRAM_HOME_PAGE]);
end; 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); procedure TfrmAboutBox.FormKeyUp(Sender: TObject; var Key: word; Shift: TShiftState);
begin begin
{$ifndef fpc} {$ifndef fpc}