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

Gtk2: fixed compilation under win32. issue #20829

Browse Source 
git-svn-id: trunk@34023 -
This commit is contained in:
zeljko 2011-12-07 12:44:40 +00:00
parent 68d181cd00
commit dc375221d6
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -987,7 +987,8 @@ begin
end; end;
Dialog := gtk_message_dialog_new(PGtkWindow(GetDesktopWidget), GTK_DIALOG_MODAL, GtkDialogType, Btns, Dialog := gtk_message_dialog_new({$IFDEF HASX}PGtkWindow(GetDesktopWidget){$ELSE}nil{$ENDIF},
GTK_DIALOG_MODAL, GtkDialogType, Btns,
nil); nil);
gtk_message_dialog_set_markup(PGtkMessageDialog(Dialog), PGChar(DialogMessage)); gtk_message_dialog_set_markup(PGtkMessageDialog(Dialog), PGChar(DialogMessage));
@ -1150,7 +1151,8 @@ begin
DefaultID := Buttons[X]; DefaultID := Buttons[X];
end; end;
Dialog := gtk_message_dialog_new(PGtkWindow(GetDesktopWidget), GTK_DIALOG_MODAL, GtkDialogType, Btns, Dialog := gtk_message_dialog_new({$IFDEF HASX}PGtkWindow(GetDesktopWidget){$ELSE}nil{$ENDIF},
GTK_DIALOG_MODAL, GtkDialogType, Btns,
nil); nil);
// Can't pass message string to gtk_message_dialog_new, as % chars are interpreted // Can't pass message string to gtk_message_dialog_new, as % chars are interpreted