Conv-Color RGB-16 to Hex-8

From Vectorlab

Converts color triplets in the range 0-65535 (16-bit) to 8-bit hexadecimal value. You need the routines U_c255 and U_Dec2Hex to be loaded first. By Orso B. Schmid

{ Orso *********************************************** }
{ Converts a triplet of RGB values (16-bit) into Hex (8-bit), rgb values must be in range 0-65535, as from most VW standard routines }
{ for example: rgb 65535, 65535, 65535 converts into FFFFFF }
{ the routine can be lossy }
FUNCTION C_RGBtoHex(r, g, b: LONGINT; VAR hexR, hexG, hexB: STRING): STRING;
    BEGIN
        hexR := U_Dec2Hex(U_c255(r));
        hexG := U_Dec2Hex(U_c255(g));
        hexB := U_Dec2Hex(U_c255(b));
        
        C_RGBtoHex := Concat(hexR, hexG, hexB);
    END;