Dlog-Empty Pulldown Menu

From Vectorlab
Jump to: navigation, search


Procedure to empty a pulldown menu. By Orso B. Schmid


{ Orso B. Schmid ************************************************* }
{ emtpies pull in given dialog }
PROCEDURE D_PullEmptier(pullID: LONGINT);
	BEGIN
		WHILE NumChoices(pullID) > 0 DO
			DelChoice(pullID, 0);
	END;