LB-Select all rows

From Vectorlab

Procedure to select all rows in a List Browser. By Orso B. Schmid

{ Orso ********************************************* }
{ Selects / Deselects all LB rows }
PROCEDURE LB_SetSelAllRows(d, LB: LONGINT; select: BOOLEAN);
    VAR
        temp_b : BOOLEAN;
    BEGIN
        IF GetNumLBItems(d, LB) > 0 THEN
            temp_b := SetLBSelection(d, LB, 0, GetNumLBItems(d, LB)-1, select);
    END;