[futurebasic] Re: [FB] Color Picker

Message: < previous - next > : Reply : Subscribe : Cleanse
Home   : January 2010 : Group Archive : Group : All Groups

From: Robert Covington <artlythere@...>
Date: Mon, 18 Jan 2010 22:08:32 -0500
How about in the Graphics/Color folder of the FB4 examples?

The one called Color Picker. Should still work in Carbon/FB5. Do you  
have FB4 Examples?

Here's the gist as to that one.

BEGIN GLOBALS
DIM gRGBChoice AS RGBColor
END GLOBALS

CLEAR LOCAL
LOCAL FN ColorPicker
'---> Variables
DIM RGBIn   AS RGBColor
DIM RGBOut  AS RGBColor
DIM WherePt AS POINT
DIM Msg$
DIM Picked AS BOOLEAN
'---> Pick Color
WherePt.h% = 50
WherePt.v% = 50
Msg$       = "Pick a color (any color)!"
Picked    = FN GetColor (WherePt, Msg$, RGBIn, RGBOut)
'---> Pick Anything?
LONG IF Picked
gRGBChoice = RGBOut
#IF CarbonLib
FN DisplayColorValues(gRGBChoice)
#ENDIF
END IF
END FN

On Jan 18, 2010, at 9:47 PM, Brian Heibert wrote:

> Where can I find a example on displaying a Color Picker?
>
> Brian
>
> --
> To unsubscribe, send ANY message to: futurebasic- 
> unsubscribe@...
>