LB-Color and Style for cell

From Vectorlab
Jump to: navigation, search


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;