paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-05-28 21:42:40 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: Fix wordwrap of Title in PopupNotifier.

Browse Source 
git-svn-id: trunk@59487 -
This commit is contained in:
wp 2018-11-07 23:09:55 +00:00
parent e15804e480
commit 96746c2c7c
1 changed files with 16 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
lcl/popupnotifier.pas
View File

@ -103,7 +103,7 @@ type
property Title: string read GetTitle write SetTitle;
property TitleFont: TFont read GetTitleFont write SetTitleFont;
property Visible: Boolean read GetVisible write SetVisible;
property OnClose: TCloseEvent read GetOnClose write SetOnClose;
property OnClose: TCloseEvent read GetOnClose write SetOnClose;
end;
const
@ -231,7 +231,9 @@ begin
lblTitle.Font.Name := 'default';
lblTitle.Font.Size := 0;
lblTitle.Font.Color := clDefault;
lblTitle.Font.Style := [fsBold];
lblTitle.Caption := 'Caption';
lblTitle.Wordwrap := true;
lblTitle.ParentColor := True;
lblTitle.OnClick := HideForm;
@ -279,8 +281,6 @@ end;
procedure TNotifierForm.CreateHandle;
begin
inherited;
if lblTitle.Font.IsDefault then
lblTitle.Font.Style := [fsBold];
if lblText.Font.Color = clDefault then
lblText.Font.Color := clInfoText;
if lblTitle.Font.Color = clDefault then
@ -303,10 +303,11 @@ end;
* Utilized for events that hide the form, such as clicking on it
*******************************************************************}
procedure TNotifierForm.HideForm(Sender: TObject);
Var NoValue :TCloseAction;
Var
NoValue :TCloseAction;
begin
if Assigned(OnClose) then
OnClose(Self,NoValue);
if Assigned(OnClose) then
OnClose(Self, NoValue);
Hide;
end;
@ -329,12 +330,20 @@ begin
else
IconAdjust := 0;
if (BtnX <> nil) then
begin
BtnX.Left := Width - (btnSize + Scale96ToForm(5));
BtnX.Top := spc;
BtnX.Width := btnSize;
BtnX.Height := btnSize;
end;
if (lblTitle <> nil) then
begin
lblTitle.Left := IconAdjust + spc;
lblTitle.Top := spc;
lblTitle.AutoSize := false;
lblTitle.Constraints.MaxWidth := Width - (lblTitle.Left + spc);
lblTitle.Constraints.MaxWidth := Width - (lblTitle.Left + spc + btnsize + spc);
lblTitle.AutoSize := true;
end;
@ -345,14 +354,6 @@ begin
lblText.Width := Width - (lblText.Left + spc);
lblText.Height := Height - (lblText.Top + spc);
end;
if (BtnX <> nil) then
begin
BtnX.Left := Width - (btnSize + Scale96ToForm(5));
BtnX.Top := spc;
BtnX.Width := btnSize;
BtnX.Height := btnSize;
end;
end;
{ TPopupNotifier }