Cornerstone Software Ltd

I can’t remember if there is a method for this buried in _GDIPLUS.VCX or not, but if you don’t want to use a GpColor object just to convert colours, the following tiny function would do:

function FoxRGBToARGB( tnRGB as integer, tnAlpha as integer )
   return  ;
      bitor( bitlshift(bitand(iif(vartype(m.tnAlpha)=='N', m.tnAlpha, 0xFF), 0xFF ),24) ;
	, bitlshift(bitand(m.tnRGB,0xFF),16) ;
	, bitand(m.tnRGB,0x0000FF00) ;
	, bitrshift(bitand(m.tnRGB,0x00FF0000),16) )

Example use:

m.foxrgb = getcolor()
m.argb = FoxRGBToARGB( m.foxrgb, 0xFF )
? transform(argb,'@0')

This technique is basically lifted from the foxrgb_assign method from the GpColor class, plus adding in the alpha value

This entry was posted on Friday, May 19th, 2006 at 2:25 pm and is filed under Visual FoxPro. You can follow any responses to this entry through the RSS 2.0 feed. Responses are currently closed, but you can trackback from your own site.