Han-First Selected in Active Container

From Vectorlab
Jump to: navigation, search


Returns the first selected object in the active container. This needs H_ActContainer to be loaded first. By Orso B. Schmid


{ Orso ***************** }
{ the first sel obj in the active container }
FUNCTION H_FSActContainer: HANDLE;
	VAR
		h : HANDLE;
	BEGIN
		h := FIn3D(H_ActContainer);
		
		WHILE (h <> NIL) & (Selected(h) = FALSE) DO
			IF Selected(h) THEN
				H_FSActContainer := h
			ELSE
				h := NextObj(h);
			
		H_FSActContainer := h;
	END;