AnnGetVisible example for Delphi
procedure TMainFrm.LEADAnnCtrl1AnnEnumerate (hObject: L_HANDLE);
var
ghObject: L_HANDLE;
begin
//tests AnnGetVisible
if ( LEADAnnCtrl1.AnnGetVisible(hObject) ) then
ShowMessage ( IntToStr(LEADAnnCtrl1.AnnGetType (hObject))+ ' Visible'
else
ShowMessage ( IntToStr(LEADAnnCtrl1.AnnGetType (hObject))+ ' Not Visible');
end;