LB-Make number cell at column zero

From Vectorlab

Function to insert a row in a List Browser setting the first cell (index zero) to number. It pads the number string to ensure a proper column sorting. Returns the row index. By Orso B. Schmid

{ Orso ********************************************* }
{ Creates and loads a number cell at the column 0, can be used on any type of column control (exept radio) }
FUNCTION LB_NumCellCreate(d, LB: LONGINT; row: INTEGER; num: REAL; howManyPads: INTEGER): INTEGER;
    VAR
        numStr : STRING;
        temp_b : BOOLEAN;
        
    BEGIN
        numStr := Concat(num);
        IF Pos('-', numStr) = 0 THEN
            WHILE (Len(numStr) < howManyPads) DO
                numStr := Concat('0', numStr);
        
        row := InsertLBItem(d, LB, row, numStr);
        
        { 7: kLBTxtOwnerDrawn }
        IF SetLBColumnOwnerDrawnType(d, LB, row, 0, 7) THEN
            temp_b := SetLBItemTextJust(d, LB, row, 0, 3); { align right }
            
        LB_NumCellCreate := row;
    END;