UPD: Don't show unavailable context menu items (issue #1564)

(cherry picked from commit 2128ec073e)
This commit is contained in:
Alexander Koblov 2024-04-09 21:07:49 +03:00
commit 204b057cc7

View file

@ -748,6 +748,7 @@ var
aFile: TFile = nil;
aFiles: TFiles = nil;
sPath, sName: String;
OperationsTypes: TFileSourceOperationTypes;
begin
with frmMain do
begin
@ -765,6 +766,9 @@ begin
FreeAndNil(aFiles);
end;
end;
OperationsTypes:= Panel.FileSource.GetOperationsTypes;
mnuContextDelete.Visible:= fsoDelete in OperationsTypes;
mnuContextRenameOnly.Visible:= fsoSetFileProperty in OperationsTypes;
AMenu.PopUp(X, Y);
end;
Exit;