Convert Integer into RGB color pairs

Plateforme Level Extreme

Abonnement

Profil corporatif

Produits & Services

Support

Légal

English

Convert Integer into RGB color pairs

Message

31/10/2002 17:17:23

Marat Chariev
Semurg Enterprise
Montréal, Québec, Canada

31/10/2002 16:51:55

Doug Ringley
Raleigh, Caroline du Nord, États-Unis

Information générale

Forum:

Visual FoxPro

Catégorie:

Autre

Titre:

Re: Convert Integer into RGB color pairs

Divers

Thread ID:

00717572

Message ID:

00717590

Vues:

This message has been marked as the solution to the initial question of the thread.

Try this:

lnRed = BITAND(lnIntegerColor, 255)
lnGreen = BITRSHIFT(BITAND(lnIntegerColor, 256^2 - 1), 8)
lnBlue = BITRSHIFT(BITAND(lnIntegerColor, 256^3 - 1), 16)

HTH

Répondre

Fil

Voir

Click here to load this message in the networking platform