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

Gtk2: TGtk2WidgetSet.AskUser() do not use stock gtk2 buttons id's, fixes problems with custom button captions

Browse Source 
git-svn-id: trunk@28722 -
This commit is contained in:
zeljko 2010-12-15 14:43:17 +00:00
parent fbbd9447ba
commit 8dab37107c
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -967,12 +967,12 @@ begin
begin begin
BtnID := ButtonResults[ModalResult]; BtnID := ButtonResults[ModalResult];
case BtnID of case BtnID of
idButtonOK : CreateButton('gtk-ok', GTK_RESPONSE_OK); idButtonOK : CreateButton(rsMbOK, GTK_RESPONSE_OK);
idButtonCancel : CreateButton('gtk-cancel', GTK_RESPONSE_CANCEL); idButtonCancel : CreateButton(rsMbCancel, GTK_RESPONSE_CANCEL);
idButtonHelp : CreateButton('gtk-help', GTK_RESPONSE_HELP); idButtonHelp : CreateButton(rsMbHelp, GTK_RESPONSE_HELP);
idButtonYes : CreateButton('gtk-yes', GTK_RESPONSE_YES); idButtonYes : CreateButton(rsMbYes, GTK_RESPONSE_YES);
idButtonNo : CreateButton('gtk-no', GTK_RESPONSE_NO); idButtonNo : CreateButton(rsMbNo, GTK_RESPONSE_NO);
idButtonClose : CreateButton('gtk-close', GTK_RESPONSE_CLOSE); idButtonClose : CreateButton(rsMbClose, GTK_RESPONSE_CLOSE);
idButtonAbort : CreateButton(rsMBAbort, GTK_RESPONSE_REJECT); idButtonAbort : CreateButton(rsMBAbort, GTK_RESPONSE_REJECT);
idButtonRetry : CreateButton(rsMBRetry, GTK_RESPONSE_ACCEPT); idButtonRetry : CreateButton(rsMBRetry, GTK_RESPONSE_ACCEPT);
idButtonIgnore : CreateButton(rsMBIgnore, GTK_RESPONSE_CLOSE); idButtonIgnore : CreateButton(rsMBIgnore, GTK_RESPONSE_CLOSE);