paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-12-06 12:47:40 +01:00
Code Issues Packages Projects Releases Wiki Activity

IDE: removed "Cancel" button (does not make any difference with "No" in logic) in revert confirmation, improved newly added captions

Browse Source
This commit is contained in:
Maxim Ganetsky 2024-10-27 16:08:08 +03:00
parent 7208ff44ae
commit 44e8349f9a
2 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
ide/lazarusidestrconsts.pas
View File

@ -272,7 +272,7 @@ resourcestring
lisMenuOpen = '&Open ...'; lisMenuOpen = '&Open ...';
lisMenuOpenUnit = 'Open Unit ...'; lisMenuOpenUnit = 'Open Unit ...';
lisMenuRevert = 'Revert'; lisMenuRevert = 'Revert';
lisMenuRevertConfirm = 'Discard all unsaved changes in this file?%s %s%sThis action will affect all tabs with the same file and it cannot be undone.'; lisMenuRevertConfirm = 'Discard all unsaved changes in' + LineEnding + '"%s"?' + LineEnding + LineEnding + 'This action cannot be undone and will affect all editor tabs with the file.';
lisPESavePackageAs = 'Save Package As ...'; lisPESavePackageAs = 'Save Package As ...';
lisPkgEditPublishPackage = 'Publish Package'; lisPkgEditPublishPackage = 'Publish Package';
lisPERevertPackage = 'Revert Package'; lisPERevertPackage = 'Revert Package';
@ -1285,7 +1285,7 @@ resourcestring
dlgSetActiveDesktopBtnCaption = 'Set active'; dlgSetActiveDesktopBtnCaption = 'Set active';
dlgSetActiveDesktopBtnHint = 'Set active'; dlgSetActiveDesktopBtnHint = 'Set active';
dlgResetActiveDesktopBtnCaption = 'Restore active'; dlgResetActiveDesktopBtnCaption = 'Restore active';
dlgResetActiveDesktopBtnHint = 'Restore active window layout'; dlgResetActiveDesktopBtnHint = 'Restore window layout of active desktop';
dlgToggleDebugDesktopBtnCaption = 'Toggle as debug desktop'; dlgToggleDebugDesktopBtnCaption = 'Toggle as debug desktop';
dlgToggleDebugDesktopBtnHint = 'Toggle as debug desktop'; dlgToggleDebugDesktopBtnHint = 'Toggle as debug desktop';
dlgDesktopName = 'Desktop name'; dlgDesktopName = 'Desktop name';

6
ide/main.pp
View File

@ -3355,9 +3355,9 @@ begin
if (SourceEditorManager.ActiveSourceWindowIndex < 0) if (SourceEditorManager.ActiveSourceWindowIndex < 0)
or (SourceEditorManager.ActiveSourceWindow.PageIndex < 0) then exit; or (SourceEditorManager.ActiveSourceWindow.PageIndex < 0) then exit;
if IDEMessageDialog(lisConfirm, Format(lisMenuRevertConfirm, [LineEnding, if IDEMessageDialog(lisConfirm, Format(lisMenuRevertConfirm,
SourceEditorManager.ActiveSourceWindow.ActiveEditor.FileName, [SourceEditorManager.ActiveSourceWindow.ActiveEditor.FileName]),
LineEnding + LineEnding]), mtConfirmation, mbYesNoCancel) <> mrYes mtConfirmation, mbYesNo) <> mrYes
then exit; then exit;
DoOpenEditorFile('', SourceEditorManager.ActiveSourceWindow.PageIndex, DoOpenEditorFile('', SourceEditorManager.ActiveSourceWindow.PageIndex,