LB-Make radio column

From Vectorlab
Jump to: navigation, search


Procedure to make a List radio column in a List Browser. By Orso B. Schmid

{ Orso ********************************************* }
{ makes a LB radio column. This fails if column data items are missing }
PROCEDURE LB_RadioColumn(d, LB: LONGINT; col: INTEGER);
	VAR
		temp_b : BOOLEAN;
	BEGIN
		temp_b := SetLBControlType(d, LB, col, 2); { control type kLBctrRadio }
		temp_b := EnableLBClickAllDataChange(d, LB, TRUE);
		EnableLBRadioColumnLines(d, LB, col, TRUE);
	END;