From 448f54bc4c0c07b607b22efc96238f9f9f1c26d1 Mon Sep 17 00:00:00 2001 From: Tomas Bzatek Date: Sun, 25 Oct 2009 23:35:54 +0100 Subject: Fix invalid typecast --- UMain.pas | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'UMain.pas') diff --git a/UMain.pas b/UMain.pas index 057dd3a..130223d 100644 --- a/UMain.pas +++ b/UMain.pas @@ -1723,7 +1723,7 @@ begin if ((Ext = 'SFV') or (Ext = 'MD5')) and (Engine is TLocalTreeEngine) then miVerifyChecksumsClick(Self) else if ((Ext = 'CRC') or (Ext = '001')) and (Engine is TLocalTreeEngine) then miMergeFilesClick(Self) else if not HandleVFSArchive(LeftPanel, IncludeTrailingPathDelimiter(Engine.Path) + String(Data^.FName), String(Data^.FName), '/') then - if (not ConfUseURI) or ((Engine is TVFSEngine) and TVFSEngine(Engine).ArchiveMode) + if (not ConfUseURI) or (not (Engine is TVFSEngine)) or ((Engine is TVFSEngine) and TVFSEngine(Engine).ArchiveMode) then RunFile(IncludeTrailingPathDelimiter(Engine.Path) + String(Data^.FName), Engine, -1) else RunFile(IncludeTrailingPathDelimiter((Engine as TVFSEngine).GetPathURI) + String(Data^.FName), Engine, -1); end; @@ -4496,7 +4496,7 @@ begin Engine := RightPanelEngine; AListView := RightListView; end; - if ConfUseURI and ((Engine is TVFSEngine) and (not (Engine as TVFSEngine).ArchiveMode)) + if ConfUseURI and (Engine is TVFSEngine) and (not (Engine as TVFSEngine).ArchiveMode) then FileName := IncludeTrailingPathDelimiter((Engine as TVFSEngine).GetPathURI) else FileName := IncludeTrailingPathDelimiter(Engine.Path); if Assigned(AListView.Selected) and Assigned(AListView.Selected.Data) and (not PDataItem(AListView.Selected.Data)^.UpDir) -- cgit v1.2.3