Dlog-Pulldown menu divider

From Vectorlab
Jump to: navigation, search


Procedure to insert a divider in a pulldown menu. By Orso B. Schmid


{ Orso B. Schmid ************************************************ }   
{ inserts a divider }
{ This eases up seeing the dividers: pass -1 if you wish to insert at end }
PROCEDURE D_PullDivider(whichPull: LONGINT; whichRow: INTEGER);
	BEGIN
		IF whichRow = -1 THEN
			whichRow := NumChoices(whichPull);
			
		InsertChoice(whichPull, whichRow, '-');
	END;