- && Exemple pour transformer l'hexa en decimal
- lc_colorR = '0x' +SUBSTR(C_Color,1,2)
- lc_colorG = '0x' +SUBSTR(C_Color,3,2)
- lc_colorB = '0x' +SUBSTR(C_Color,5,2)
-
- monobjet.Backcolor = RGB(&lc_colorR, &lc_colorG, &lc_colorB)
-
- myvar = Int2Hex(monobjet.Backcolor) && myvar contient le code hexadécimal sur 6 caractères
-
- && fonction pour transformer le décimal en hexa
- && EXTRAIT DE http://www.news2news.com/vfp/?example=260
- FUNCTION Int2Hex (num)
- DECLARE INTEGER wnsprintf IN Shlwapi;
- STRING @lpOut, INTEGER cchLimitIn,;
- STRING pszFmt, INTEGER
-
- LOCAL lnResult, lcResult
- lcResult = SPACE(20)
- lnResult = wnsprintf(@lcResult, 20, "%x", num)
- RETURN Left(lcResult, lnResult)
- ENDFUNC
&& Exemple pour transformer l'hexa en decimal
lc_colorR = '0x' +SUBSTR(C_Color,1,2)
lc_colorG = '0x' +SUBSTR(C_Color,3,2)
lc_colorB = '0x' +SUBSTR(C_Color,5,2)
monobjet.Backcolor = RGB(&lc_colorR, &lc_colorG, &lc_colorB)
myvar = Int2Hex(monobjet.Backcolor) && myvar contient le code hexadécimal sur 6 caractères
&& fonction pour transformer le décimal en hexa
&& EXTRAIT DE http://www.news2news.com/vfp/?example=260
FUNCTION Int2Hex (num)
DECLARE INTEGER wnsprintf IN Shlwapi;
STRING @lpOut, INTEGER cchLimitIn,;
STRING pszFmt, INTEGER
LOCAL lnResult, lcResult
lcResult = SPACE(20)
lnResult = wnsprintf(@lcResult, 20, "%x", num)
RETURN Left(lcResult, lnResult)
ENDFUNC