paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-09 18:16:02 +02: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,
// LCL
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
FileProcs, FindDeclarationTool, LinkScanner, BasicCodeTools, CodeToolsStructs,
CodeToolManager, CodeCache, DefineTemplates, KeywordFuncLists, CodeTree,
@ -7906,7 +7906,7 @@ begin
Result:=mrOk;
if ToolStatus=itDebugger then begin
Result:=IDEQuestionDialog(lisStopDebugging2, lisStopCurrentDebuggingAndRebuildProject,
mtConfirmation,[mrYes, mrCancel, lisNo],'');
mtConfirmation,[mrYes, mrCancel, rsmbNo],'');
if Result<>mrYes then exit;
Result:=DebugBoss.DoStopProject;
@ -11095,7 +11095,7 @@ begin
case IDEQuestionDialog(lisSaveChanges,
Format(lisSaveFileBeforeClosingForm,
[AnUnitInfo.Filename, LineEnding, ADesigner.LookupRoot.Name]),
mtConfirmation,[mrYes,mrNoToAll,lisNo,mrCancel],'') of
mtConfirmation,[mrYes,mrNoToAll,rsmbNo,mrCancel],'') of
mrYes: begin
if DoSaveEditorFile(ASrcEdit,[sfCheckAmbiguousFiles])<>mrOk
then Exit;

10
ide/sourcefilemanager.pas
View File

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