Han-Record is Hidden

From Vectorlab
Jump to: navigation, search


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;