LB-Make image column

From Vectorlab
Jump to: navigation, search


Procedure to set a List Browser column to display image only. By Orso B. Schmid

{ Orso ********************************************* }
{ makes a LB column display an image (for example a sym) }
PROCEDURE LB_ImgColumn(d, LB: LONGINT; col: INTEGER);
	VAR
		temp_b : BOOLEAN;
		
	BEGIN
		temp_b := SetLBControlType(d, LB, col, 1); { control type kLBctrNone }
		temp_b := SetLBItemDisplayType(d, LB, col, 1);  { display type kLBdsplImageOnly }
		
		(*
		{ for the rows, add these ( OR USE LB_AttrCell): }
						
		temp_b := SetLBColumnOwnerDrawnType(gD, cLB_Syms, row, cSymImgCol, kLBGradientOrImage);	
		temp_b := SetLBItemGradientOrImageRefNumber(gD, cLB_Syms, row, cSymImgCol, Name2Index(symName));
		
		color cells:
		
		temp_b := SetLBColumnOwnerDrawnType(d, LB, row, col, 1);	{ 1: Solid rect }
		*)
	END;