Han-Record is Hidden

From Vectorlab

Checks if a record is hidden, accepting a string. By Orso B. Schmid

{ Orso *********************************************** }
{ is it a hidden record? accepts a name instead of a Handle }
FUNCTION H_RecIsHidden(recN: STRING): BOOLEAN;
    VAR
        recH : HANDLE;
    BEGIN
        H_RecIsHidden := FALSE;
        recH := GetObject(recN);
        IF recH <> NIL THEN
            H_RecIsHidden := (GetType(recH) = 47) & (GetObjectVariableBoolean(recH, 900) = FALSE);
    END;