mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

FIX: Show error message on show file properties.

Browse source
This commit is contained in:
cobines 2009-11-24 03:13:52 +00:00
commit e0fbd6b9f9
1 changed files with 9 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

11
src/uacts.pas
View file

@ -680,6 +680,7 @@ begin
end;
SelectedFiles := Panel.SelectedFiles;
if Assigned(SelectedFiles) then
try
if SelectedFiles.Count > 0 then
try
@ -2244,8 +2245,14 @@ begin
SelectedFiles := ActiveFrame.SelectedFiles;
if Assigned(SelectedFiles) then
try
ShowFilePropertiesDialog(SelectedFiles);
ActiveFrame.Reload;
if SelectedFiles.Count > 0 then
try
ShowFilePropertiesDialog(SelectedFiles);
ActiveFrame.Reload;
except
on e: EContextMenuException do
ShowException(e);
end;
finally
FreeAndNil(SelectedFiles);
end;