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

LCL: QuestionDlg: default dialog with memo: make sizable

Browse Source 
git-svn-id: trunk@50800 -
This commit is contained in:
mattias 2015-12-14 17:13:32 +00:00
parent 2c3a45ce75
commit 627278054a
1 changed files with 100 additions and 90 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
lcl/include/promptdialog.inc
View File

@ -621,6 +621,8 @@ var
end;
begin
BeginAutoSizing;
try
FillChar(TextStyle, SizeOf(TTextStyle), 0);
with TextStyle do
@ -653,12 +655,17 @@ begin
ReadOnly:=true;
ScrollBars:=ssAutoBoth;
Text:=MessageTxt;
Anchors:=[akLeft,akTop,akRight,akBottom];
Parent:=Self;
end;
end;
FMsgMemo.Visible:=true;
BorderStyle := bsSizeable;
end else if FMsgMemo<>nil then
begin
FMsgMemo.Visible:=false;
BorderStyle := bsDialog;
end;
// calculate the width we need to display the buttons
MinBtnWidth:=Max(25,MinimumDialogButtonWidth);
@ -722,6 +729,9 @@ begin
CurBtnSize.X, CurBtnSize.Y);
inc(CurBtnPos, CurButton.Width + cBtnDist);
end;
finally
EndAutoSizing;
end;
end;
function TQuestionDlg.ShowModal: TModalResult;