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

IDE: use rsmbNo instead of lisNo in IDEQuestionDialog.

Browse Source 
git-svn-id: trunk@52817 -
This commit is contained in:
bart 2016-08-17 12:10:40 +00:00
parent 57c09522ef
commit 2812b0c289
2 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ide/main.pp
View File

@ -62,7 +62,7 @@ uses
Math, Classes, SysUtils, TypInfo, types, strutils, AVL_Tree, Math, Classes, SysUtils, TypInfo, types, strutils, AVL_Tree,
// LCL // LCL
LCLProc, LCLType, LCLIntf, LResources, ComCtrls, HelpIntfs, InterfaceBase, LCLProc, LCLType, LCLIntf, LResources, ComCtrls, HelpIntfs, InterfaceBase,
Forms, Buttons, Menus, Controls, GraphType, Graphics, ExtCtrls, Dialogs, Forms, Buttons, Menus, Controls, GraphType, Graphics, ExtCtrls, Dialogs, LclStrConsts,
// CodeTools // CodeTools
FileProcs, FindDeclarationTool, LinkScanner, BasicCodeTools, CodeToolsStructs, FileProcs, FindDeclarationTool, LinkScanner, BasicCodeTools, CodeToolsStructs,
CodeToolManager, CodeCache, DefineTemplates, KeywordFuncLists, CodeTree, CodeToolManager, CodeCache, DefineTemplates, KeywordFuncLists, CodeTree,
@ -7906,7 +7906,7 @@ begin
Result:=mrOk; Result:=mrOk;
if ToolStatus=itDebugger then begin if ToolStatus=itDebugger then begin
Result:=IDEQuestionDialog(lisStopDebugging2, lisStopCurrentDebuggingAndRebuildProject, Result:=IDEQuestionDialog(lisStopDebugging2, lisStopCurrentDebuggingAndRebuildProject,
mtConfirmation,[mrYes, mrCancel, lisNo],''); mtConfirmation,[mrYes, mrCancel, rsmbNo],'');
if Result<>mrYes then exit; if Result<>mrYes then exit;
Result:=DebugBoss.DoStopProject; Result:=DebugBoss.DoStopProject;
@ -11095,7 +11095,7 @@ begin
case IDEQuestionDialog(lisSaveChanges, case IDEQuestionDialog(lisSaveChanges,
Format(lisSaveFileBeforeClosingForm, Format(lisSaveFileBeforeClosingForm,
[AnUnitInfo.Filename, LineEnding, ADesigner.LookupRoot.Name]), [AnUnitInfo.Filename, LineEnding, ADesigner.LookupRoot.Name]),
mtConfirmation,[mrYes,mrNoToAll,lisNo,mrCancel],'') of mtConfirmation,[mrYes,mrNoToAll,rsmbNo,mrCancel],'') of
mrYes: begin mrYes: begin
if DoSaveEditorFile(ASrcEdit,[sfCheckAmbiguousFiles])<>mrOk if DoSaveEditorFile(ASrcEdit,[sfCheckAmbiguousFiles])<>mrOk
then Exit; then Exit;

10
ide/sourcefilemanager.pas
View File

@ -35,7 +35,7 @@ uses
AVL_Tree, typinfo, math, Classes, SysUtils, Controls, Forms, Dialogs, LCLIntf, AVL_Tree, typinfo, math, Classes, SysUtils, Controls, Forms, Dialogs, LCLIntf,
LCLType, LCLProc, FileProcs, IDEProcs, DialogProcs, IDEDialogs, LCLType, LCLProc, FileProcs, IDEProcs, DialogProcs, IDEDialogs,
LConvEncoding, LazFileCache, FileUtil, LazFileUtils, LazUTF8, LResources, PropEdits, LConvEncoding, LazFileCache, FileUtil, LazFileUtils, LazUTF8, LResources, PropEdits,
DefineTemplates, IDEMsgIntf, IDEProtocol, LazarusIDEStrConsts, NewDialog, DefineTemplates, IDEMsgIntf, IDEProtocol, LazarusIDEStrConsts, LclStrConsts, NewDialog,
NewProjectDlg, LazIDEIntf, MainBase, MainBar, MainIntf, MenuIntf, NewItemIntf, NewProjectDlg, LazIDEIntf, MainBase, MainBar, MainIntf, MenuIntf, NewItemIntf,
CompOptsIntf, SrcEditorIntf, IDEWindowIntf, ProjectIntf, Project, ProjectDefs, CompOptsIntf, SrcEditorIntf, IDEWindowIntf, ProjectIntf, Project, ProjectDefs,
ProjectInspector, PackageIntf, PackageDefs, PackageSystem, CompilerOptions, ProjectInspector, PackageIntf, PackageDefs, PackageSystem, CompilerOptions,
@ -5700,7 +5700,7 @@ begin
Result:=IDEQuestionDialog(lisFileNotLowercase, Result:=IDEQuestionDialog(lisFileNotLowercase,
Format(lisTheUnitIsNotLowercaseTheFreePascalCompiler, Format(lisTheUnitIsNotLowercaseTheFreePascalCompiler,
[OldFilename, LineEnding, LineEnding+LineEnding]), [OldFilename, LineEnding, LineEnding+LineEnding]),
mtConfirmation,[mrYes,mrIgnore,lisNo,mrAbort],''); mtConfirmation,[mrYes,mrIgnore,rsmbNo,mrAbort],'');
if Result<>mrYes then exit; if Result<>mrYes then exit;
end; end;
NewUnitName:=AnUnitInfo.SrcUnitName; NewUnitName:=AnUnitInfo.SrcUnitName;
@ -7868,7 +7868,7 @@ begin
// lpi file will change => ask // lpi file will change => ask
Result:=IDEQuestionDialog(lisProjectChanged, Result:=IDEQuestionDialog(lisProjectChanged,
Format(lisSaveChangesToProject, [Project1.GetTitleOrName]), Format(lisSaveChangesToProject, [Project1.GetTitleOrName]),
mtConfirmation, [mrYes, mrNoToAll, lisNo, mbCancel], ''); mtConfirmation, [mrYes, mrNoToAll, rsmbNo, mbCancel], '');
if Result=mrNoToAll then exit(mrOk); if Result=mrNoToAll then exit(mrOk);
if Result<>mrYes then exit(mrCancel); if Result<>mrYes then exit(mrCancel);
end end
@ -7876,7 +7876,7 @@ begin
begin begin
// some non project files were changes in the source editor // some non project files were changes in the source editor
Result:=IDEQuestionDialog(lisSaveChangedFiles,lisSaveChangedFiles, Result:=IDEQuestionDialog(lisSaveChangedFiles,lisSaveChangedFiles,
mtConfirmation, [mrYes, mrNoToAll, lisNo, mbCancel], ''); mtConfirmation, [mrYes, mrNoToAll, rsmbNo, mbCancel], '');
if Result=mrNoToAll then exit(mrOk); if Result=mrNoToAll then exit(mrOk);
if Result<>mrYes then exit(mrCancel); if Result<>mrYes then exit(mrCancel);
end end
@ -7893,7 +7893,7 @@ begin
if EnvironmentOptions.AskSaveSessionOnly then begin if EnvironmentOptions.AskSaveSessionOnly then begin
Result:=IDEQuestionDialog(lisProjectSessionChanged, Result:=IDEQuestionDialog(lisProjectSessionChanged,
Format(lisSaveSessionChangesToProject, [Project1.GetTitleOrName]), Format(lisSaveSessionChangesToProject, [Project1.GetTitleOrName]),
mtConfirmation, [mrYes, mrNoToAll, lisNo, mbCancel], ''); mtConfirmation, [mrYes, mrNoToAll, rsmbNo, mbCancel], '');
if Result=mrNoToAll then exit(mrOk); if Result=mrNoToAll then exit(mrOk);
if Result<>mrYes then exit(mrCancel); if Result<>mrYes then exit(mrCancel);
end; end;