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

LCL: Do not convert '\n' sequence to linefeed in Content field of LCLTaskDialog.TTaskDialog anymore (LineEnding constant should be used for this), bug #38676. Unbreaks output of strings like 'Save "c:\new_folder\new.work"?'.

Browse Source 
git-svn-id: trunk@64975 -
This commit is contained in:
maxim 2021-04-11 20:03:36 +00:00
parent 87aecde5f1
commit 058e8264fa
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
lcl/lcltaskdialog.pas
View File

@ -260,7 +260,6 @@ type
// - if left void, the text is taken from the current dialog icon kind
Inst: string;
/// the dialog's primary content content text
// - any '\n' will be converted into a line feed
Content: string;
/// a #13#10 or #10 separated list of custom buttons
// - they will be identified with an ID number starting at 100
@ -712,7 +711,7 @@ var
B: TCommonButton;
CommandLink: TBitBtn;
Rad: array of TRadioButton;
function AddLabel(Text: string; BigFont: boolean): TLabel;
function AddLabel(Text: string; BigFont: boolean; InterpretLF: boolean): TLabel;
var R: TRect;
W: integer;
begin
@ -729,7 +728,8 @@ begin
end;
end else
result.Font.Height := FontHeight;
Text := CR(Text);
if InterpretLF then
Text := CR(Text);
result.AutoSize := false;
R.Left := 0;
R.Top := 0;
@ -815,7 +815,7 @@ begin
Config.hwndParent := aParent;
Config.pszWindowTitle := PWideChar(N(Title));
Config.pszMainInstruction := PWideChar(N(Inst));
Config.pszContent := PWideChar(N(Content));
Config.pszContent := PWideChar(_WS(Content));
RUCount := 0;
AddRU(Buttons,Config.cButtons,100);
AddRU(Radios,Config.cRadioButtons,200);
@ -930,11 +930,11 @@ begin
Y := IconBorder;
end;
// add main texts (Instruction, Content, Information)
Dialog.Form.Element[tdeMainInstruction] := AddLabel(Inst,true);
Dialog.Form.Element[tdeContent] := AddLabel(Content, false);
Dialog.Form.Element[tdeMainInstruction] := AddLabel(Inst, true, true);
Dialog.Form.Element[tdeContent] := AddLabel(Content, false, false);
if Info<>'' then
// no information collapse/expand yet: it's always expanded
Dialog.Form.Element[tdeExpandedInfo] := AddLabel(Info,false);
Dialog.Form.Element[tdeExpandedInfo] := AddLabel(Info, false, true);
// add command links buttons
if (tdfUseCommandLinks in aFlags) and (Buttons<>'') then
with TStringList.Create do
@ -1158,7 +1158,7 @@ begin
begin
X := 24;
end;
Dialog.Form.Element[tdeFooter] := AddLabel(Footer,false);
Dialog.Form.Element[tdeFooter] := AddLabel(Footer, false, true);
end;
// display the form
Dialog.Form.ClientHeight := Y;