Source position: icon.pas line 236
function IconControlA(
Icon: PDiskObject;
const Tags: PTagItem
):ULONG;