paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-07-04 20:19:58 +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;
NodeData: TPENodeData;
Item: TObject;
Msg: String;
Msg, Cap: String;
DeleteCount: Integer;
CurFile: TUnitInfo;
begin
@ -867,7 +867,11 @@ begin
if DeleteCount=0 then exit;
if DeleteCount>1 then
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;
// delete