LB-Enable drag and drop

From Vectorlab
Jump to: navigation, search


Enables drag and drop on the chosen column. Automatically converts the chosen column to control "number", otherwise drag and drop won't work. By Orso B. Schmid

{ Orso ********************************************* }
{ enable drag drop column }
PROCEDURE LB_EnableDragCol(d, LB: LONGINT; col: INTEGER);
	VAR
		temp_b : BOOLEAN;
	BEGIN
		IF EnableLBDragAndDrop(d, LB, TRUE) THEN BEGIN
			temp_b := SetLBControlType(d, LB, col, 6); { control kLBctrNumber } 
			temp_b := SetLBDragDropColumn(d, LB, col);
		END;
	END;