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

Gtk2: fix MessageDlg if contains < or/and >, patch by C Western. issue #18584

Browse Source 
git-svn-id: trunk@29159 -
This commit is contained in:
zeljko 2011-01-22 12:38:53 +00:00
parent e6fd92f81a
commit 0797b99785
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lcl/interfaces/gtk2/gtk2lclintf.inc
View File

@ -1095,6 +1095,7 @@ var
MainList,ChildList: PGList;
Title: String;
ActiveWindow: HWND;
QuotedMessage: Pgchar;
procedure CreateButton(const ALabel : String; const AResponse: Integer);
var
@ -1145,7 +1146,11 @@ begin
Dialog := gtk_message_dialog_new(nil, GTK_DIALOG_MODAL, GtkDialogType, Btns,
nil);
gtk_message_dialog_set_markup(PGtkMessageDialog(Dialog), PGChar(DialogMessage));
// Can't pass message string to gtk_message_dialog_new, as % chars are interpreted
// gtk_message_dialog_set_markup interpets HTML, so we need to quote that
QuotedMessage := g_markup_escape_text(PGChar(DialogMessage), Length(DialogMessage));
gtk_message_dialog_set_markup(PGtkMessageDialog(Dialog), QuotedMessage);
g_free(QuotedMessage);
g_signal_connect(PGtkObject(Dialog), 'delete-event',
TGtkSignalFunc(@PromptUserBoxClosed),
@ADialogResult);