On Sunday, November 16, 2003, at 09:32  AM, Steve Crossman wrote:

> Thanks Robert, that worked well for me.
> The only problem is the color window position cannot be controlled. It 
> will always come up in the same place.
> ~ steve

Sorry about that...

Change the setPt(WherePt,50,50)  To adjust where you want the Top, Left 
corner to be

If you want it near the corner of your window, then do this:

While making sure that Window 1 (or the window in question) is active 
and the output window...

SetPt(wherePt,0,0)
LocalToGlobal(wherePt)

Otherwise, to Center in Alert position (middle screen), default 
(probably Best)

set as so:

SetPt(wherePt,0,0)
or send it as Zero, like this...

Picked = FN GetColor (#0, Msg$, rgbIn1,rgbOut1)

Robert

>
> On Nov 16, 2003, at 5:00 AM, futurebasic-digest-help@... 
> wrote:
>
>>
>>> I want to create an appearance button to assign color selections. A 
>>> color well, or whatever you call it. I want to click on the button 
>>> which has a previous color selection defined and bring up the color 
>>> picker with that color.  I am always getting black.  My problem is 
>>> how to set the color picker to the color assigned to the button, and 
>>> what the proper button type should be.
>>>
>>> ~ steve
>>
>> I don't know about the color wells that much , but if your pickers 
>> are not getting the right RGB-In color...
>>
>> I sent you some code that works fine with appearance and OS X here.
>>
>> If you are getting black, are you setting the RGB record from 0-65535 
>> and not 0-255?
>>
>> See the below, work fine?
>>
>>
>> Robert
>
>
> --
> To unsubscribe, send ANY message to 
> <futurebasic-unsubscribe@...>
>