Thanks, Robert.   Made my day.   Again.

-- Mark Chappell

On Oct 9, 2008, at 2:39 AM, Robert Purves wrote:

>
> Mark Chappell wrote:
>
>> A minor wish-list mainly having to do with edit fields (I mentioned  
>> the first of these in a previous message)
>> 2.  an easy way to add color (to text and if possible, background)  
>> -- not styled text, but colored text
>
>
> '------------------
> window 1
> edit field 1,, (20,20)-(200,36)
> edit$(1) = "", _sysFont, 13,,, 65535, 0, 0
>
>
> edit field 2,, (20,50)-(200,66)
> dim as ControlFontStyleRec   cfs
> cfs.flags = _kControlUseForeColorMask + _kControlUseBackColorMask
> cfs.foreColor.red   = 0
> cfs.foreColor.green = 30000
> cfs.foreColor.blue  = 0
> cfs.backColor.red   = 55000
> cfs.backColor.green = 65535
> cfs.backColor.blue  = 65535
> fn SetControlFontStyle( button&( 2 ), cfs )
>
> do
> HandleEvents
> until gFBQuit
> '------------------
>
> Robert P.
>
> --
> To unsubscribe, send ANY message to: futurebasic-unsubscribe@...
>