serial SysMaskedQuery Default %Library.TMFormClass %Library.TMForm %Library.Boolean 0 %TMLabel Sys.MaskedQuery %TMButton %TMSpeedButton %TMSpeedButton %TMButton %TMColorDialog %TMFontDialog %TMGroupBox %TMLabel %TMPopupMenu %TMMenuItem %TMMenuItem %TMShape initvalue:%String cache 0 %Status document literal cache 0 document literal cache 0 document literal Label:%Library.TMLabel,Shape:%Library.TMShape,Color:%Library.Integer cache 0 document literal initvalue:%String cache 0 MApplication document literal initvalue:%String cache 0 %Status document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal cache 0 document literal cache 0 %Library.Boolean document literal 0) Set emExcelFmtHeader.FontItalic=($LF(..lblHdrGFExample.Font.Style,$$$fsItalic)>0) Set emExcelFmtHeader.FontUnderline=($LF(..lblHdrGFExample.Font.Style,$$$fsUnderline)>0) Set emExcelFmtHeader.FontColor=$S(..lblHdrGFExample.Font.Color=$$$clNone:$$$xlColorIndexAutomatic,1:..lblHdrGFExample.Font.Color) Set emExcelFmtHeader.BackgroundColor=$S(..lblHdrGFExample.Color=$$$clNone:$$$xlColorIndexNone,1:..lblHdrGFExample.Color) Quit ]]> STRING AaBbCcXxYy STRING No format selected %Library.CacheSerialState "%Library.TMFormClass" Address Form Label4 btnCancel btnHdrClear btnHdrFormat btnOk gbHeader lblHdrGFExample shHdrGFExample pmHdrFormat pmiHdrFormatBackColor pmiHdrFormatFont Formatted MaskedQuery cdColor fdFont MQuery