LB-Color and Style for cell

From Vectorlab

Sets color and style of a List Browser text cell. For the style constants please see Txt- All constants. By Orso B. Schmid

{ Orso ********************************************* }
{ mark colors of LB rows to COLOR + custom style }
{ color is 0-255, style is txt styles }
{ black: 0, 0, 0 }
{ gray: 150, 150, 150 }
{ green: 0, 250, 0 }
{ magenta: 255, 0, 255 }
PROCEDURE LB_ColorAndStyle(d, LB: LONGINT; row, col, red, green, blue, style: INTEGER);
    VAR
        temp_b : BOOLEAN;
    BEGIN
        temp_b := SetLBItemTextStyle(d, LB, row, col, style);
        temp_b := SetLBItemTextColor(d, LB, row, col, red, green, blue);
    END;