Han-Object is DLVP

From Vectorlab
Jump to: navigation, search


Checks if an object is a Design Layer Viewport. By Orso B. Schmid


{ Orso *********************************************** }
{ checks if h is design layer VP }
FUNCTION H_IsDLVP(h: HANDLE): BOOLEAN;
	BEGIN
		IF h = NIL THEN
			H_IsDLVP := FALSE
		ELSE
			H_IsDLVP := (Eval(h, (R IN ['NNA_DesignLayerViewport'])) > 0) & (GetType(h) = 86);
			{ the string 'NNA_DesignLayerViewport' doesn't seem to be localized }
	END;