Hi Pritpal Bedi:
Would your please update hbxbp: xbpgra.prg with GraGetRGBIntensity(...)
// Example: 16777215 -> FFFFFF -> FF, FF, FF -> {255, 255, 255}
FUNCTION GraGetRGBIntensity( nRGBColor )
LOCAL aRGB := {}
LOCAL cRGBHex:=""
If nRGBColor==NIL
nRGBColor := 0
Endif
cRGBHex := HB_HexToStr( HB_NumToHex( nRGBColor ) )
cRGBHex := PADL( cRGBHex, 6, "0")
aRGB := { SubStr(cRGBHex,1,2), SubStr(cRGBHex,3,2), SubStr(cRGBHex,5,2) }
aRGB := { HB_HexToNum(aRGB[1]), HB_HexToNum(aRGB[2]),
HB_HexToNum(aRGB[3]) }
RETURN aRGB
(But I havenot testing it ...)
Shum
--
View this message in context:
http://n2.nabble.com/To-Pritpal-Bedi-About-GraGetRGBIntensity-nRGBColor-tp4870368p4870368.html
Sent from the harbour-devel mailing list archive at Nabble.com.
_______________________________________________
Harbour mailing list (attachment size limit: 40KB)
[email protected]
http://lists.harbour-project.org/mailman/listinfo/harbour
