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.