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

IDE: project inspector: remove file: fixed caption

Browse Source 
git-svn-id: trunk@58027 -
This commit is contained in:
mattias 2018-05-25 07:14:34 +00:00
parent 3daa1d6ea9
commit 2a36fb9062
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
ide/projectinspector.pas
View File

@ -836,7 +836,7 @@ var
TVNode: TTreeNode; TVNode: TTreeNode;
NodeData: TPENodeData; NodeData: TPENodeData;
Item: TObject; Item: TObject;
Msg: String; Msg, Cap: String;
DeleteCount: Integer; DeleteCount: Integer;
CurFile: TUnitInfo; CurFile: TUnitInfo;
begin begin
@ -867,7 +867,11 @@ begin
if DeleteCount=0 then exit; if DeleteCount=0 then exit;
if DeleteCount>1 then if DeleteCount>1 then
Msg:=Format(lisProjInspRemoveItemsF, [IntToStr(DeleteCount)]); Msg:=Format(lisProjInspRemoveItemsF, [IntToStr(DeleteCount)]);
if IDEMessageDialog(lisProjInspConfirmDeletingDependency, if CurFile<>nil then
Cap:=lisProjInspConfirmRemovingFile
else
Cap:=lisProjInspConfirmDeletingDependency;
if IDEMessageDialog(Cap,
Msg, mtConfirmation,[mbYes,mbNo])<>mrYes then exit; Msg, mtConfirmation,[mbYes,mbNo])<>mrYes then exit;
// delete // delete