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

Qt: fixed using of plain text in dialogs.

Browse Source 
git-svn-id: trunk@65158 -
This commit is contained in:
zeljko 2021-05-31 10:04:01 +00:00
parent 8ebbe335cf
commit cfa20195b1
2 changed files with 14 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/interfaces/qt/qtwidgets.pas
View File

@ -19617,7 +19617,7 @@ begin
AParent := QApplication_activeWindow;
{$ENDIF}
Widget := CreateWidget(AParent);
{$IFDEF QTDIALOGSUSEHTMLTEXT}
{$IFNDEF QTDIALOGSUSEHTMLTEXT}
TextFormat := QtPlainText;
{$ENDIF}
setProperty(Widget, 'lclwidget', Int64(PtrUInt(Self)));

13
lcl/interfaces/qt/qtwinapi.inc
View File

@ -5259,6 +5259,9 @@ var
//OkStr: WideString;
AParent: QWidgetH;
DialogType, DefButton, DefIcon : Cardinal;
{$IFNDEF QTDIALOGSUSEHTMLTEXT}
AQtString: QStringH;
{$ENDIF}
begin
Result := 0;
Str := lpText;
@ -5271,6 +5274,16 @@ begin
DefButton:= ((uType and $00000300) shr 8) + 1;
DialogType:= (uType and $0000000F);
DefIcon := (uType and $000000FF) shr 4;
{$IFNDEF QTDIALOGSUSEHTMLTEXT}
//issue #37805 - we must show plain text.
AQtString := QString_Create(PWideString(@Str));
QString_toHtmlEscaped(AQtString, @Str);
QString_destroy(AQtString);
{$ENDIF}
case IconToMessageType(DefIcon) of
QMessageBoxInformation: Result := QMessageBox_information(AParent, @TitleStr, @Str, ButtonToQtButtons(DialogType), ButtonToQtDefButton(DialogType, DefButton));
QMessageBoxQuestion: Result := QMessageBox_question(AParent, @TitleStr, @Str, ButtonToQtButtons(DialogType), ButtonToQtDefButton(DialogType, DefButton));