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

Debugger: Updated delete/confirmation dialogs to TTaskDialog.

Browse Source
This commit is contained in:
Martin 2024-03-21 14:17:19 +01:00
parent 5779cff4d2
commit 55a673e4c4
27 changed files with 42 additions and 36 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
ide/packages/idedebugger/breakpointsdlg.pp
View File

@ -840,6 +840,7 @@ var
CurBreakPoint: TIDEBreakPoint; CurBreakPoint: TIDEBreakPoint;
Filename: String; Filename: String;
MsgResult: Integer; MsgResult: Integer;
NotAgain: Boolean;
begin begin
BeginUpdate; BeginUpdate;
try try
@ -849,11 +850,11 @@ begin
Filename:=TIDEBreakpoint(tvBreakPoints.NodeItem[VNode]).Source; Filename:=TIDEBreakpoint(tvBreakPoints.NodeItem[VNode]).Source;
if EnvironmentDebugOpts.ConfirmDeleteFileBreakPoints then begin if EnvironmentDebugOpts.ConfirmDeleteFileBreakPoints then begin
MsgResult:=IDEQuestionDialog(lisDeleteAllBreakpoints, lisDeleteAllBreakpoints2, mtConfirmation, MsgResult:=TaskDlg(lisDeleteAllBreakpoints, lisDeleteAllBreakpoints2, '', tdiQuestion,
[mrYes, lisYes, mrNo, lisNo, mrYesToAll, dbgDoNotShowThisMessageAgain], ''); [mbYes, mbNo], dbgDoNotShowThisMessageAgain, NotAgain);
if MsgResult = mrNo then if MsgResult = mrNo then
exit; exit;
if MsgResult = mrYesToAll then if NotAgain then
EnvironmentDebugOpts.ConfirmDeleteFileBreakPoints:= False; EnvironmentDebugOpts.ConfirmDeleteFileBreakPoints:= False;
end; end;
@ -921,13 +922,14 @@ var
VNode: PVirtualNode; VNode: PVirtualNode;
CurBreakPoint: TIDEBreakPoint; CurBreakPoint: TIDEBreakPoint;
MsgResult: Integer; MsgResult: Integer;
NotAgain: Boolean;
begin begin
if EnvironmentDebugOpts.ConfirmDeleteAllBreakPoints then begin if EnvironmentDebugOpts.ConfirmDeleteAllBreakPoints then begin
MsgResult:=IDEQuestionDialog(lisDeleteAllBreakpoints, lisDeleteAllBreakpoints, mtConfirmation, MsgResult:=TaskDlg(lisDeleteAllBreakpoints, lisDeleteAllBreakpoints, '', tdiQuestion,
[mrYes, lisYes, mrNo, lisNo, mrYesToAll, dbgDoNotShowThisMessageAgain], ''); [mbYes, mbNo], dbgDoNotShowThisMessageAgain, NotAgain);
if MsgResult = mrNo then if MsgResult = mrNo then
exit; exit;
if MsgResult = mrYesToAll then if NotAgain then
EnvironmentDebugOpts.ConfirmDeleteAllBreakPoints := False; EnvironmentDebugOpts.ConfirmDeleteAllBreakPoints := False;
end; end;

7
ide/packages/idedebugger/historydlg.pp
View File

@ -120,13 +120,14 @@ end;
procedure THistoryDialog.tbClearClick(Sender: TObject); procedure THistoryDialog.tbClearClick(Sender: TObject);
var var
MsgResult: Integer; MsgResult: Integer;
NotAgain: Boolean;
begin begin
if EnvironmentDebugOpts.ConfirmDeleteAllHistory then begin if EnvironmentDebugOpts.ConfirmDeleteAllHistory then begin
MsgResult:=IDEQuestionDialog(dlgHistoryDeleteAllConfirm, dlgHistoryDeleteAllConfirm, mtConfirmation, MsgResult:=TaskDlg(dlgHistoryDeleteAllConfirm, dlgHistoryDeleteAllConfirm, '', tdiQuestion,
[mrYes, lisYes, mrNo, lisNo, mrYesToAll, dbgDoNotShowThisMessageAgain], ''); [mbYes, mbNo], dbgDoNotShowThisMessageAgain, NotAgain);
if MsgResult = mrNo then if MsgResult = mrNo then
exit; exit;
if MsgResult = mrYesToAll then if NotAgain then
EnvironmentDebugOpts.ConfirmDeleteAllHistory := False; EnvironmentDebugOpts.ConfirmDeleteAllHistory := False;
end; end;

2
ide/packages/idedebugger/idedebuggerstringconstants.pas
View File

@ -497,7 +497,7 @@ resourcestring
DispFormatOptChangingDescrSome = 'Setting fallback options for all windows.'; DispFormatOptChangingDescrSome = 'Setting fallback options for all windows.';
DispFormatOptProjectText = 'General and specific project settings will be used first. Only if none of them sets a default, then the IDE-wide settings will be tried.'; DispFormatOptProjectText = 'General and specific project settings will be used first. Only if none of them sets a default, then the IDE-wide settings will be tried.';
dbgDoNotShowThisMessageAgain = 'Yes, do not show this message again'; dbgDoNotShowThisMessageAgain = 'Do not ask again';
implementation implementation

2
ide/packages/idedebugger/languages/idedebuggerstringconstants.af_ZA.po
View File

@ -31,7 +31,7 @@ msgid "Some groups in the Enable/Disable list do not exist.%0:sCreate them?%0:s%
msgstr "" msgstr ""
#: idedebuggerstringconstants.dbgdonotshowthismessageagain #: idedebuggerstringconstants.dbgdonotshowthismessageagain
msgid "Yes, do not show this message again" msgid "Do not ask again"
msgstr "" msgstr ""
#: idedebuggerstringconstants.dispformatbasebin #: idedebuggerstringconstants.dispformatbasebin

2
ide/packages/idedebugger/languages/idedebuggerstringconstants.ar.po
View File

@ -32,7 +32,7 @@ msgid "Some groups in the Enable/Disable list do not exist.%0:sCreate them?%0:s%
msgstr "بعض المجموعات في قائمة تفعيل/تعطيل غير موجودة.%0:sعل يتم إنشاؤها؟%0:s%0:s%1:s" msgstr "بعض المجموعات في قائمة تفعيل/تعطيل غير موجودة.%0:sعل يتم إنشاؤها؟%0:s%0:s%1:s"
#: idedebuggerstringconstants.dbgdonotshowthismessageagain #: idedebuggerstringconstants.dbgdonotshowthismessageagain
msgid "Yes, do not show this message again" msgid "Do not ask again"
msgstr "" msgstr ""
#: idedebuggerstringconstants.dispformatbasebin #: idedebuggerstringconstants.dispformatbasebin

2
ide/packages/idedebugger/languages/idedebuggerstringconstants.ca.po
View File

@ -31,7 +31,7 @@ msgid "Some groups in the Enable/Disable list do not exist.%0:sCreate them?%0:s%
msgstr "" msgstr ""
#: idedebuggerstringconstants.dbgdonotshowthismessageagain #: idedebuggerstringconstants.dbgdonotshowthismessageagain
msgid "Yes, do not show this message again" msgid "Do not ask again"
msgstr "" msgstr ""
#: idedebuggerstringconstants.dispformatbasebin #: idedebuggerstringconstants.dispformatbasebin

2
ide/packages/idedebugger/languages/idedebuggerstringconstants.cs.po
View File

@ -32,7 +32,7 @@ msgid "Some groups in the Enable/Disable list do not exist.%0:sCreate them?%0:s%
msgstr "Některé skupiny v seznamu Povolené/Zakázané neexistují.%0:sMají se vytvořit?%0:s%0:s%1:s" msgstr "Některé skupiny v seznamu Povolené/Zakázané neexistují.%0:sMají se vytvořit?%0:s%0:s%1:s"
#: idedebuggerstringconstants.dbgdonotshowthismessageagain #: idedebuggerstringconstants.dbgdonotshowthismessageagain
msgid "Yes, do not show this message again" msgid "Do not ask again"
msgstr "" msgstr ""
#: idedebuggerstringconstants.dispformatbasebin #: idedebuggerstringconstants.dispformatbasebin

2
ide/packages/idedebugger/languages/idedebuggerstringconstants.de.po
View File

@ -32,7 +32,7 @@ msgid "Some groups in the Enable/Disable list do not exist.%0:sCreate them?%0:s%
msgstr "Einige Gruppen in der Aktivierungsliste existieren nicht.%0:sErzeugen?%0:s%0:s%1:s" msgstr "Einige Gruppen in der Aktivierungsliste existieren nicht.%0:sErzeugen?%0:s%0:s%1:s"
#: idedebuggerstringconstants.dbgdonotshowthismessageagain #: idedebuggerstringconstants.dbgdonotshowthismessageagain
msgid "Yes, do not show this message again" msgid "Do not ask again"
msgstr "" msgstr ""
#: idedebuggerstringconstants.dispformatbasebin #: idedebuggerstringconstants.dispformatbasebin

2
ide/packages/idedebugger/languages/idedebuggerstringconstants.es.po
View File

@ -32,7 +32,7 @@ msgid "Some groups in the Enable/Disable list do not exist.%0:sCreate them?%0:s%
msgstr "Algunos grupos en la lista Activar/Desactivar no existen.%0:s¿Crearlos?%0:s%0:s%1:s" msgstr "Algunos grupos en la lista Activar/Desactivar no existen.%0:s¿Crearlos?%0:s%0:s%1:s"
#: idedebuggerstringconstants.dbgdonotshowthismessageagain #: idedebuggerstringconstants.dbgdonotshowthismessageagain
msgid "Yes, do not show this message again" msgid "Do not ask again"
msgstr "" msgstr ""
#: idedebuggerstringconstants.dispformatbasebin #: idedebuggerstringconstants.dispformatbasebin

2
ide/packages/idedebugger/languages/idedebuggerstringconstants.fi.po
View File

@ -32,7 +32,7 @@ msgid "Some groups in the Enable/Disable list do not exist.%0:sCreate them?%0:s%
msgstr "Joitain Salli/Estä listan ryhmiä ei ole.%0:sLuodaanko ne?%0:s%0:s%1:s" msgstr "Joitain Salli/Estä listan ryhmiä ei ole.%0:sLuodaanko ne?%0:s%0:s%1:s"
#: idedebuggerstringconstants.dbgdonotshowthismessageagain #: idedebuggerstringconstants.dbgdonotshowthismessageagain
msgid "Yes, do not show this message again" msgid "Do not ask again"
msgstr "" msgstr ""
#: idedebuggerstringconstants.dispformatbasebin #: idedebuggerstringconstants.dispformatbasebin

2
ide/packages/idedebugger/languages/idedebuggerstringconstants.fr.po
View File

@ -32,7 +32,7 @@ msgid "Some groups in the Enable/Disable list do not exist.%0:sCreate them?%0:s%
msgstr "Certains groupes de la liste Activer/désactiver n'existent pas.%0:sFaut-il les créer ?%0:s%0:s%1:s" msgstr "Certains groupes de la liste Activer/désactiver n'existent pas.%0:sFaut-il les créer ?%0:s%0:s%1:s"
#: idedebuggerstringconstants.dbgdonotshowthismessageagain #: idedebuggerstringconstants.dbgdonotshowthismessageagain
msgid "Yes, do not show this message again" msgid "Do not ask again"
msgstr "" msgstr ""
#: idedebuggerstringconstants.dispformatbasebin #: idedebuggerstringconstants.dispformatbasebin

2
ide/packages/idedebugger/languages/idedebuggerstringconstants.he.po
View File

@ -31,7 +31,7 @@ msgid "Some groups in the Enable/Disable list do not exist.%0:sCreate them?%0:s%
msgstr "" msgstr ""
#: idedebuggerstringconstants.dbgdonotshowthismessageagain #: idedebuggerstringconstants.dbgdonotshowthismessageagain
msgid "Yes, do not show this message again" msgid "Do not ask again"
msgstr "" msgstr ""
#: idedebuggerstringconstants.dispformatbasebin #: idedebuggerstringconstants.dispformatbasebin

2
ide/packages/idedebugger/languages/idedebuggerstringconstants.hu.po
View File

@ -32,7 +32,7 @@ msgid "Some groups in the Enable/Disable list do not exist.%0:sCreate them?%0:s%
msgstr "Néhány csoport az Engedélyezés/Letiltás listában nem létezik.%0:sLétre legyenek hozva?%0:s%0:s%1:s" msgstr "Néhány csoport az Engedélyezés/Letiltás listában nem létezik.%0:sLétre legyenek hozva?%0:s%0:s%1:s"
#: idedebuggerstringconstants.dbgdonotshowthismessageagain #: idedebuggerstringconstants.dbgdonotshowthismessageagain
msgid "Yes, do not show this message again" msgid "Do not ask again"
msgstr "" msgstr ""
#: idedebuggerstringconstants.dispformatbasebin #: idedebuggerstringconstants.dispformatbasebin

2
ide/packages/idedebugger/languages/idedebuggerstringconstants.id.po
View File

@ -31,7 +31,7 @@ msgid "Some groups in the Enable/Disable list do not exist.%0:sCreate them?%0:s%
msgstr "" msgstr ""
#: idedebuggerstringconstants.dbgdonotshowthismessageagain #: idedebuggerstringconstants.dbgdonotshowthismessageagain
msgid "Yes, do not show this message again" msgid "Do not ask again"
msgstr "" msgstr ""
#: idedebuggerstringconstants.dispformatbasebin #: idedebuggerstringconstants.dispformatbasebin

2
ide/packages/idedebugger/languages/idedebuggerstringconstants.it.po
View File

@ -32,7 +32,7 @@ msgid "Some groups in the Enable/Disable list do not exist.%0:sCreate them?%0:s%
msgstr "Alcuni gruppi nella lista Abilita/Disabilita non esistono.%0:sCrearli?%0:s%0:s%1:s" msgstr "Alcuni gruppi nella lista Abilita/Disabilita non esistono.%0:sCrearli?%0:s%0:s%1:s"
#: idedebuggerstringconstants.dbgdonotshowthismessageagain #: idedebuggerstringconstants.dbgdonotshowthismessageagain
msgid "Yes, do not show this message again" msgid "Do not ask again"
msgstr "" msgstr ""
#: idedebuggerstringconstants.dispformatbasebin #: idedebuggerstringconstants.dispformatbasebin

2
ide/packages/idedebugger/languages/idedebuggerstringconstants.ja.po
View File

@ -32,7 +32,7 @@ msgid "Some groups in the Enable/Disable list do not exist.%0:sCreate them?%0:s%
msgstr "有効/無効リストのグループのいくつかが存在しません。%0:s作成しますか？%0:s%0:s%1:s" msgstr "有効/無効リストのグループのいくつかが存在しません。%0:s作成しますか？%0:s%0:s%1:s"
#: idedebuggerstringconstants.dbgdonotshowthismessageagain #: idedebuggerstringconstants.dbgdonotshowthismessageagain
msgid "Yes, do not show this message again" msgid "Do not ask again"
msgstr "" msgstr ""
#: idedebuggerstringconstants.dispformatbasebin #: idedebuggerstringconstants.dispformatbasebin

2
ide/packages/idedebugger/languages/idedebuggerstringconstants.lt.po
View File

@ -32,7 +32,7 @@ msgid "Some groups in the Enable/Disable list do not exist.%0:sCreate them?%0:s%
msgstr "Aktyvinimo/pasyvinimo sąraše yra neegzistuojančių grupių.%0:sJas sukurti?%0:s%0:s%1:s" msgstr "Aktyvinimo/pasyvinimo sąraše yra neegzistuojančių grupių.%0:sJas sukurti?%0:s%0:s%1:s"
#: idedebuggerstringconstants.dbgdonotshowthismessageagain #: idedebuggerstringconstants.dbgdonotshowthismessageagain
msgid "Yes, do not show this message again" msgid "Do not ask again"
msgstr "" msgstr ""
#: idedebuggerstringconstants.dispformatbasebin #: idedebuggerstringconstants.dispformatbasebin

2
ide/packages/idedebugger/languages/idedebuggerstringconstants.nl.po
View File

@ -31,7 +31,7 @@ msgid "Some groups in the Enable/Disable list do not exist.%0:sCreate them?%0:s%
msgstr "" msgstr ""
#: idedebuggerstringconstants.dbgdonotshowthismessageagain #: idedebuggerstringconstants.dbgdonotshowthismessageagain
msgid "Yes, do not show this message again" msgid "Do not ask again"
msgstr "" msgstr ""
#: idedebuggerstringconstants.dispformatbasebin #: idedebuggerstringconstants.dispformatbasebin

2
ide/packages/idedebugger/languages/idedebuggerstringconstants.pl.po
View File

@ -32,7 +32,7 @@ msgid "Some groups in the Enable/Disable list do not exist.%0:sCreate them?%0:s%
msgstr "" msgstr ""
#: idedebuggerstringconstants.dbgdonotshowthismessageagain #: idedebuggerstringconstants.dbgdonotshowthismessageagain
msgid "Yes, do not show this message again" msgid "Do not ask again"
msgstr "" msgstr ""
#: idedebuggerstringconstants.dispformatbasebin #: idedebuggerstringconstants.dispformatbasebin

2
ide/packages/idedebugger/languages/idedebuggerstringconstants.pot
View File

@ -28,7 +28,7 @@ msgid "Some groups in the Enable/Disable list do not exist.%0:sCreate them?%0:s%
msgstr "" msgstr ""
#: idedebuggerstringconstants.dbgdonotshowthismessageagain #: idedebuggerstringconstants.dbgdonotshowthismessageagain
msgid "Yes, do not show this message again" msgid "Do not ask again"
msgstr "" msgstr ""
#: idedebuggerstringconstants.dispformatbasebin #: idedebuggerstringconstants.dispformatbasebin

2
ide/packages/idedebugger/languages/idedebuggerstringconstants.pt_BR.po
View File

@ -39,7 +39,7 @@ msgid "Some groups in the Enable/Disable list do not exist.%0:sCreate them?%0:s%
msgstr "Alguns grupos na lista Habilitar/Desabilitar não existem.%0:sCriá-los?%0:s%0:s%1:s" msgstr "Alguns grupos na lista Habilitar/Desabilitar não existem.%0:sCriá-los?%0:s%0:s%1:s"
#: idedebuggerstringconstants.dbgdonotshowthismessageagain #: idedebuggerstringconstants.dbgdonotshowthismessageagain
msgid "Yes, do not show this message again" msgid "Do not ask again"
msgstr "" msgstr ""
#: idedebuggerstringconstants.dispformatbasebin #: idedebuggerstringconstants.dispformatbasebin

4
ide/packages/idedebugger/languages/idedebuggerstringconstants.ru.po
View File

@ -38,7 +38,9 @@ msgid "Some groups in the Enable/Disable list do not exist.%0:sCreate them?%0:s%
msgstr "Некоторые группы в списке включения/отключения не существуют.%0:sСоздать их?%0:s%0:s%1:s" msgstr "Некоторые группы в списке включения/отключения не существуют.%0:sСоздать их?%0:s%0:s%1:s"
#: idedebuggerstringconstants.dbgdonotshowthismessageagain #: idedebuggerstringconstants.dbgdonotshowthismessageagain
msgid "Yes, do not show this message again" #, fuzzy
#| msgid "Yes, do not show this message again"
msgid "Do not ask again"
msgstr "Да, больше не показывать это сообщение" msgstr "Да, больше не показывать это сообщение"
#: idedebuggerstringconstants.dispformatbasebin #: idedebuggerstringconstants.dispformatbasebin

2
ide/packages/idedebugger/languages/idedebuggerstringconstants.sk.po
View File

@ -38,7 +38,7 @@ msgid "Some groups in the Enable/Disable list do not exist.%0:sCreate them?%0:s%
msgstr "" msgstr ""
#: idedebuggerstringconstants.dbgdonotshowthismessageagain #: idedebuggerstringconstants.dbgdonotshowthismessageagain
msgid "Yes, do not show this message again" msgid "Do not ask again"
msgstr "" msgstr ""
#: idedebuggerstringconstants.dispformatbasebin #: idedebuggerstringconstants.dispformatbasebin

2
ide/packages/idedebugger/languages/idedebuggerstringconstants.tr.po
View File

@ -38,7 +38,7 @@ msgid "Some groups in the Enable/Disable list do not exist.%0:sCreate them?%0:s%
msgstr "Etkin/Devre dışı listesindeki bazı gruplar mevcut değil.%0:sOluşturulsun mu?%0:s%0:s%1:s" msgstr "Etkin/Devre dışı listesindeki bazı gruplar mevcut değil.%0:sOluşturulsun mu?%0:s%0:s%1:s"
#: idedebuggerstringconstants.dbgdonotshowthismessageagain #: idedebuggerstringconstants.dbgdonotshowthismessageagain
msgid "Yes, do not show this message again" msgid "Do not ask again"
msgstr "" msgstr ""
#: idedebuggerstringconstants.dispformatbasebin #: idedebuggerstringconstants.dispformatbasebin

2
ide/packages/idedebugger/languages/idedebuggerstringconstants.uk.po
View File

@ -40,7 +40,7 @@ msgid "Some groups in the Enable/Disable list do not exist.%0:sCreate them?%0:s%
msgstr "Деякі групи в списку ввімкнення/вимкнення не існують.%0:sСтворити їх?%0:s%0:s%1:s" msgstr "Деякі групи в списку ввімкнення/вимкнення не існують.%0:sСтворити їх?%0:s%0:s%1:s"
#: idedebuggerstringconstants.dbgdonotshowthismessageagain #: idedebuggerstringconstants.dbgdonotshowthismessageagain
msgid "Yes, do not show this message again" msgid "Do not ask again"
msgstr "" msgstr ""
#: idedebuggerstringconstants.dispformatbasebin #: idedebuggerstringconstants.dispformatbasebin

2
ide/packages/idedebugger/languages/idedebuggerstringconstants.zh_CN.po
View File

@ -39,7 +39,7 @@ msgid "Some groups in the Enable/Disable list do not exist.%0:sCreate them?%0:s%
msgstr "一些组在启用/禁用列表中不存在。%0:s创建它们吗？%0:s%0:s%1:s" msgstr "一些组在启用/禁用列表中不存在。%0:s创建它们吗？%0:s%0:s%1:s"
#: idedebuggerstringconstants.dbgdonotshowthismessageagain #: idedebuggerstringconstants.dbgdonotshowthismessageagain
msgid "Yes, do not show this message again" msgid "Do not ask again"
msgstr "" msgstr ""
#: idedebuggerstringconstants.dispformatbasebin #: idedebuggerstringconstants.dispformatbasebin

7
ide/packages/idedebugger/watchesdlg.pp
View File

@ -903,13 +903,14 @@ procedure TWatchesDlg.popDeleteAllClick(Sender: TObject);
var var
VNode: PVirtualNode; VNode: PVirtualNode;
MsgResult: Integer; MsgResult: Integer;
NotAgain: Boolean;
begin begin
if EnvironmentDebugOpts.ConfirmDeleteAllWatches then begin if EnvironmentDebugOpts.ConfirmDeleteAllWatches then begin
MsgResult:=IDEQuestionDialog(dlgWatchesDeleteAllConfirm, dlgWatchesDeleteAllConfirm, mtConfirmation, MsgResult:=TaskDlg(dlgWatchesDeleteAllConfirm, dlgWatchesDeleteAllConfirm, '', tdiQuestion,
[mrYes, lisYes, mrNo, lisNo, mrYesToAll, dbgDoNotShowThisMessageAgain], ''); [mbYes, mbNo], dbgDoNotShowThisMessageAgain, NotAgain);
if MsgResult = mrNo then if MsgResult = mrNo then
exit; exit;
if MsgResult = mrYesToAll then if NotAgain then
EnvironmentDebugOpts.ConfirmDeleteAllWatches := False; EnvironmentDebugOpts.ConfirmDeleteAllWatches := False;
end; end;