serial SysMaskedQuery Default %Library.TMFormClass %Library.Boolean 0 %Library.TMForm %Library.Boolean 0 %TMLabel %TMLabel Sys.MaskedQuery %TMSpeedButton %TMSpeedButton %TMSpeedButton %TMSpeedButton %TMSpeedButton %TMSpeedButton %TMColorDialog %TMFontDialog %TMGroupBox %TMGroupBox %TMLabel %TMLabel %TMPopupMenu %TMPopupMenu %TMMenuItem %TMMenuItem %TMMenuItem %TMMenuItem %TMShape %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 %Library.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 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 emExcelFmt.FontItalic=($LF(lblFormat.Font.Style,$$$fsItalic)>0) Set emExcelFmt.FontUnderline=($LF(lblFormat.Font.Style,$$$fsUnderline)>0) Set emExcelFmt.FontColor=$S(lblFormat.Font.Color=$$$clNone:$$$xlColorIndexAutomatic,1:lblFormat.Font.Color) Set emExcelFmt.BackgroundColor=$S(lblFormat.Color=$$$clNone:$$$xlColorIndexNone,1:lblFormat.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 Label5 btnColClear btnColFormat gbColumn lblColGFExample shColGFExample ColumnFormatted HeaderFormatted pmColFormat pmiColFormatBackColor pmiColFormatFont