Dlog-Empty Tree Control

From Vectorlab
Jump to: navigation, search


Procedure to empty a tree control. By Orso B. Schmid


{ Orso B. Schmid ************************************************* }
{ emtpies a tree control }
PROCEDURE D_TreeEmptier(d, tree: LONGINT);
	VAR 
		n : INTEGER;

	BEGIN
		n := 0;
		WHILE RemoveTreeControlItem(d, tree, n) DO
			n := n + 1;
	END;