LB-Make image column

From Vectorlab

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;