FIX: Unassigned Result value in creating context menu. Issue [0000457].

This commit is contained in:
cobines 2012-05-07 13:41:13 +00:00
commit bf29325ec3

View file

@ -331,9 +331,9 @@ begin
DesktopEntries := GetDesktopEntries(FileNames);
if Assigned(DesktopEntries) and (DesktopEntries.Count > 0) then
Result := Assigned(DesktopEntries) and (DesktopEntries.Count > 0);
if Result then
begin
Result := True;
miOpenWith := TMenuItem.Create(Self);
miOpenWith.Caption := rsMnuOpenWith;
Self.Items.Add(miOpenWith);