Pierre Zippi wrote:

> Looks similar. How did you dim gRGBOut? I think that is my problem.
> Getting the RGBout values to red& green& blue& for use in LONG COLOR.
>
> On Mon, Sep 29, 2008 at 6:27 PM, Robert Covington
> <artlythere@...> wrote:
>> Here's what I use, approach wise, from some old code cobbled up  
>> ages ago
>> (2001). The WherePt seems useless these days.
>>
>> CLEAR LOCAL
>> LOCAL FN RCColorPicker(which as int)
>>

  snip

>> END FN = Picked



Use the RGBColor record. Its three fields are unsigned shorts (range 0  
to 65535).

'------------
dim as RGBColor inRGB, outRGB
dim as Point irrelevantPt
dim as Boolean ok

inRGB.red = 65535
inRGB.green = 10000
inRGB.blue = 23456
ok = fn GetColor( irrelevantPt, "Pick a color", @inRGB, @outRGB )
if ( ok ) then print outRGB.red, outRGB.green, outRGB.blue
stop
'------------

Robert P.