ADD: [Viewer] Question before delete image

This commit is contained in:
Alexander Koblov 2010-05-02 18:02:12 +00:00
commit 39e8b9f331

View file

@ -1290,7 +1290,8 @@ end;
procedure TfrmViewer.btnDeleteFileClick(Sender: TObject);
begin
mbDeleteFile(FileList.Strings[iActiveFile]);
if msgYesNo(Format(rsMsgDelSel, [FileList.Strings[iActiveFile]])) then
mbDeleteFile(FileList.Strings[iActiveFile]);
end;
procedure TfrmViewer.btnCopyMoveFileClick(Sender: TObject);