FIX: Build under OS X

This commit is contained in:
Alexander Koblov 2015-07-05 15:27:54 +00:00
commit c2a34d72b3

View file

@ -515,7 +515,7 @@ begin
for I := 0 to pred(ContextMenuActionList.Count) do
begin
sAct := ContextMenuActionList.ExtActionCommand[I].ActionName;
if (CompareText('OPEN', sAct) <> 0) and (CompareText('VIEW', sAct) <> 0) and (CompareText('EDIT', sAct) <> 0) then
if (SysUtils.CompareText('OPEN', sAct) <> 0) and (SysUtils.CompareText('VIEW', sAct) <> 0) and (SysUtils.CompareText('EDIT', sAct) <> 0) then
LocalInsertMenuItem(sAct, I);
end;
end;