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);
		IF whichRow = -1 THEN
			whichRow := NumChoices(whichPull);
		InsertChoice(whichPull, whichRow, '-');