Mark Chappell wrote: > Robert P kindly showed me how to alter foreground and background > colors in edit fields with this structure: > > cfs.foreColor.red = xxx > cfs.foreColor.green = xxx > cfs.foreColor.blue = xxx > cfs.backColor.red = xxx > cfs.backColor.green = xxx > cfs.backColor.blue = xxx > > fn SetControlFontStyle( button&( x ), cfs ) > > However, this seems to nullify the previous settings for font size, > style, etc. I assume there are related CFS commands to change font > size, style, etc. but I'm not smart enough to figure them out. > Suggestions welcome... To preserve existing settings, first read them from the control with GetControlData(). fn GetControlData( button&( x ), _kControlEditTextPart, _kControlFontStyleTag, sizeof( cfs ), @cfs, #0 ) cfs.flags = cfs.flags or _kControlUseForeColorMask or _kControlUseBackColorMask cfs.foreColor.red = xxx cfs.foreColor.green = xxx cfs.foreColor.blue = xxx cfs.backColor.red = xxx cfs.backColor.green = xxx cfs.backColor.blue = xxx fn SetControlFontStyle( button&( x ), cfs ) Robert P.