Han-Object is SVP

From Vectorlab
Revision as of 04:01, 21 December 2015 by Orso (Talk | contribs) (Text replacement - "<syntaxhighlight lang=pascal>" to "<syntaxhighlight lang="pascal">")

(diff) ← Older revision | Latest revision (diff) | Newer revision → (diff)
Jump to: navigation, search


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


{ Orso *********************************************** }
{ checks if h is section viewport }
FUNCTION H_IsSVP(h: HANDLE): BOOLEAN;
	BEGIN
		IF h = NIL THEN
			H_IsSVP := FALSE
		ELSE
			H_IsSVP := (H_SubType(h) = 507);
	END;