qexport4dialog.dfm

delphi中把数据输出为html excel等形式的控件

                2000C0404000C0406000C0408000C040A000C040C000C040E000C0600000C060
                2000C0604000C0606000C0608000C060A000C060C000C060E000C0800000C080
                2000C0804000C0806000C0808000C080A000C080C000C080E000C0A00000C0A0
                2000C0A04000C0A06000C0A08000C0A0A000C0A0C000C0A0E000C0C00000C0C0
                2000C0C04000C0C06000C0C08000C0C0A000F0FBFF00A4A0A000808080000000
                FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
                FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
                FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
                FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
                FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
                FFFFFFFFFFFFFFFFFF000000FFFFFFFF0000000000FFFFFFFFFFFFFFFF0000FF
                FFFFFFFFFF000000FFFFFFFFFFFFFFFFFFFF00FFFFFFFFFFFF000000FFFFFFFF
                FFFFFFFFFFFFFF00FFFFFFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFF00000000
                00000000FFFFFFFFFFFFFFFFFFFFFFFFFF00FFFFFF000000FFFFFFFFFFFFFFFF
                FFFFFFFFFFFF00FFFF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00FF000000
                FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00000000FFFFFFFFFFFFFFFFFFFFFFFF
                FFFFFFFFFF000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000FFFFFFFF
                FFFFFFFFFFFFFFFFFFFFFFFFFFFFFF00FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
                FFFFFFFFFFFFFFFFFFFF}
              ParentShowHint = False
              ShowHint = True
              Spacing = 0
              OnClick = bRTFFontColorClick
              OnMouseDown = bRTFFontColorMouseDown
              OnMouseUp = bRTFFontColorMouseUp
            end
            object bRTFFontBold: TSpeedButton
              Left = 38
              Top = 60
              Width = 25
              Height = 25
              Hint = 'Bold'
              AllowAllUp = True
              GroupIndex = 1
              Flat = True
              Glyph.Data = {
                66010000424D6601000000000000760000002800000014000000140000000100
                040000000000F000000000000000000000001000000010000000000000000000
                8000008000000080800080000000800080008080000080808000C0C0C0000000
                FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
                FFFFFFFF0000FFFFFFFFFFFFFFFFFFFF0000FFFFFFFFFFFFFFFFFFFF0000FFFF
                FFFFFFFFFFFFFFFF0000FFFFFFFFFFFFFFFFFFFF0000FFFFFFFFFFFFFFFFFFFF
                0000FFFFFFFFFFFFFFFFFFFF0000FFFFF0000000FFFFFFFF0000FFFFF0000000
                0FFFFFFF0000FFFFF000FFF00FFFFFFF0000FFFFF000FF000FFFFFFF0000FFFF
                F0000000FFFFFFFF0000FFFFF000F00FFFFFFFFF0000FFFFF000FF00FFFFFFFF
                0000FFFFF0000000FFFFFFFF0000FFFFF000000FFFFFFFFF0000FFFFFFFFFFFF
                FFFFFFFF0000FFFFFFFFFFFFFFFFFFFF0000FFFFFFFFFFFFFFFFFFFF0000FFFF
                FFFFFFFFFFFFFFFF0000}
              ParentShowHint = False
              ShowHint = True
              Spacing = 0
              OnClick = bRTFFontBoldClick
            end
            object bRTFFontItalic: TSpeedButton
              Left = 63
              Top = 60
              Width = 25
              Height = 25
              Hint = 'Italic'
              AllowAllUp = True
              GroupIndex = 2
              Flat = True
              Glyph.Data = {
                66010000424D6601000000000000760000002800000014000000140000000100
                040000000000F000000000000000000000001000000010000000000000000000
                8000008000000080800080000000800080008080000080808000C0C0C0000000
                FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
                FFFFFFFF0000FFFFFFFFFFFFFFFFFFFF0000FFFFFFFFFFFFFFFFFFFF0000FFFF
                FFFFFFFFFFFFFFFF0000FFFFFFFFFFFFFFFFFFFF0000FFFFFFFFFFFFFFFFFFFF
                0000FFFFFFFFFFFFFFFFFFFF0000FFFFFF0000FFFFFFFFFF0000FFFFFFF00FFF
                FFFFFFFF0000FFFFFFF000FFFFFFFFFF0000FFFFFFFF00FFFFFFFFFF0000FFFF
                FFFF000FFFFFFFFF0000FFFFFFFFF00FFFFFFFFF0000FFFFFFFFF000FFFFFFFF
                0000FFFFFFFFFF00FFFFFFFF0000FFFFFFFFF0000FFFFFFF0000FFFFFFFFFFFF
                FFFFFFFF0000FFFFFFFFFFFFFFFFFFFF0000FFFFFFFFFFFFFFFFFFFF0000FFFF
                FFFFFFFFFFFFFFFF0000}
              ParentShowHint = False
              ShowHint = True
              OnClick = bRTFFontItalicClick
            end
            object pbRTFFontColor: TPaintBox
              Left = 16
              Top = 78
              Width = 18
              Height = 4
              OnPaint = pbRTFFontColorPaint
            end
            object bRTFFontStrikeOut: TSpeedButton
              Left = 88
              Top = 60
              Width = 25
              Height = 25
              Hint = 'Strike Out'
              AllowAllUp = True
              GroupIndex = 3
              Flat = True
              Glyph.Data = {
                66010000424D6601000000000000760000002800000014000000140000000100
                040000000000F000000000000000000000001000000010000000000000000000
                8000008000000080800080000000800080008080000080808000C0C0C0000000
                FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
                FFFFFFFF0000FFFFFFFFFFFFFFFFFFFF0000FFFFFFFFFFFFFFFFFFFF0000FFFF
                FFFFFFFFFFFFFFFF0000FFFFFFFFFFFFFFFFFFFF0000FFFFFFFFFFFFFFFFFFFF
                0000FFFFFFFFFFFFFFFFFFFF0000FFFFFFFFFFFFFFFFFFFF0000F000F000000F
                FF000FFF0000FF0FFF0F0FF0F0FFFFFF0000F0000000000000000FFF0000FFF0
                F0FF000FF0FFFFFF0000FFF000FF0FF0F0FFFFFF0000FFFF0FFF0FF0F0FF0FFF
                0000FFFF0FF0000FFF000FFF0000FFFFFFFFFFFFFFFFFFFF0000FFFFFFFFFFFF
                FFFFFFFF0000FFFFFFFFFFFFFFFFFFFF0000FFFFFFFFFFFFFFFFFFFF0000FFFF
                FFFFFFFFFFFFFFFF0000}
              ParentShowHint = False
              ShowHint = True
              OnClick = bRTFFontStrikeOutClick
            end
            object bRTFFontUnderline: TSpeedButton
              Left = 113
              Top = 60
              Width = 25
              Height = 25
              Hint = 'Single'
              AllowAllUp = True
              GroupIndex = 4
              Flat = True
              Glyph.Data = {
                66010000424D6601000000000000760000002800000014000000140000000100
                040000000000F000000000000000000000001000000010000000000000000000
                8000008000000080800080000000800080008080000080808000C0C0C0000000
                FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
                FFFFFFFF0000FFFFFFFFFFFFFFFFFFFF0000FFFFFFFFFFFFFFFFFFFF0000FFFF
                FFFFFFFFFFFFFFFF0000FFFFFFFFFFFFFFFFFFFF0000FFFFF000000000FFFFFF
                0000FFFFFFFFFFFFFFFFFFFF0000FFFFFFF00000FFFFFFFF0000FFFFFF000000
                0FFFFFFF0000FFFFFF00FFF00FFFFFFF0000FFFFFF00FFF00FFFFFFF0000FFFF
                FF00FFF00FFFFFFF0000FFFFFF00FFF00FFFFFFF0000FFFFFF00FFF00FFFFFFF
                0000FFFFFF00FFF00FFFFFFF0000FFFFF0000F0000FFFFFF0000FFFFFFFFFFFF
                FFFFFFFF0000FFFFFFFFFFFFFFFFFFFF0000FFFFFFFFFFFFFFFFFFFF0000FFFF
                FFFFFFFFFFFFFFFF0000}
              ParentShowHint = False
              ShowHint = True
              OnClick = bRTFFontUnderlineClick
            end
            object bRTFFontLeft: TSpeedButton
              Left = 144
              Top = 60
              Width = 25
              Height = 25
              Hint = 'Left'
              GroupIndex = 5
              Flat = True
              Glyph.Data = {
                66010000424D6601000000000000760000002800000014000000140000000100
                040000000000F000000000000000000000001000000010000000000000000000
                8000008000000080800080000000800080008080000080808000C0C0C0000000
                FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
                FFFFFFFF0000FFFFFFFFFFFFFFFFFFFF0000FFFFFFFFFFFFFFFFFFFF0000FFFF
                FFFFFFFFFFFFFFFF0000FFFFFFFFFFFFFFFFFFFF0000FF0000000000FFFFFFFF
                0000FFFFFFFFFFFFFFFFFFFF0000FF00000000000000FFFF0000FFFFFFFFFFFF
                FFFFFFFF0000FF0000000000FFFFFFFF0000FFFFFFFFFFFFFFFFFFFF0000FF00
                000000000000FFFF0000FFFFFFFFFFFFFFFFFFFF0000FF0000000000FFFFFFFF
                0000FFFFFFFFFFFFFFFFFFFF0000FF00000000000000FFFF0000FFFFFFFFFFFF
                FFFFFFFF0000FFFFFFFFFFFFFFFFFFFF0000FFFFFFFFFFFFFFFFFFFF0000FFFF
                FFFFFFFFFFFFFFFF0000}
              ParentShowHint = False
              ShowHint = True
              OnClick = bRTFFontLeftClick
            end
            object bRTFFontCenter: TSpeedButton
              Left = 169
              Top = 60
              Width = 25
              Height = 25
              Hint = 'Center'
              GroupIndex = 5
              Flat = True
              Glyph.Data = {
                66010000424D6601000000000000760000002800000014000000140000000100
                040000000000F000000000000000000000001000000010000000000000000000
                8000008000000080800080000000800080008080000080808000C0C0C0000000
                FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
                FFFFFFFF0000FFFFFFFFFFFFFFFFFFFF0000FFFFFFFFFFFFFFFFFFFF0000FFFF
                FFFFFFFFFFFFFFFF0000FFFFFFFFFFFFFFFFFFFF0000FFFF0000000000FFFFFF
                0000FFFFFFFFFFFFFFFFFFFF0000FF00000000000000FFFF0000FFFFFFFFFFFF
                FFFFFFFF0000FFFF0000000000FFFFFF0000FFFFFFFFFFFFFFFFFFFF0000FF00
                000000000000FFFF0000FFFFFFFFFFFFFFFFFFFF0000FFFF0000000000FFFFFF
                0000FFFFFFFFFFFFFFFFFFFF0000FF00000000000000FFFF0000FFFFFFFFFFFF
                FFFFFFFF0000FFFFFFFFFFFFFFFFFFFF0000FFFFFFFFFFFFFFFFFFFF0000FFFF
                FFFFFFFFFFFFFFFF0000}
              ParentShowHint = False
              ShowHint = True
              OnClick = bRTFFontCenterClick
            end
            object bRTFFontRight: TSpeedButton
              Left = 194
              Top = 60
              Width = 25
              Height = 25
              Hint = 'Right'
              GroupIndex = 5
              Flat = True
              Glyph.Data = {
                66010000424D6601000000000000760000002800000014000000140000000100
                040000000000F000000000000000000000001000000010000000000000000000
                8000008000000080800080000000800080008080000080808000C0C0C0000000
                FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
                FFFFFFFF0000FFFFFFFFFFFFFFFFFFFF0000FFFFFFFFFFFFFFFFFFFF0000FFFF
                FFFFFFFFFFFFFFFF0000FFFFFFFFFFFFFFFFFFFF0000FFFFFF0000000000FFFF
                0000FFFFFFFFFFFFFFFFFFFF0000FF00000000000000FFFF0000FFFFFFFFFFFF
                FFFFFFFF0000FFFFFF0000000000FFFF0000FFFFFFFFFFFFFFFFFFFF0000FF00
                000000000000FFFF0000FFFFFFFFFFFFFFFFFFFF0000FFFFFF0000000000FFFF
                0000FFFFFFFFFFFFFFFFFFFF0000FF00000000000000FFFF0000FFFFFFFFFFFF
                FFFFFFFF0000FFFFFFFFFFFFFFFFFFFF0000FFFFFFFFFFFFFFFFFFFF0000FFFF
                FFFFFFFFFFFFFFFF0000}
              ParentShowHint = False
              ShowHint = True
              OnClick = bRTFFontRightClick
            end
            object bRTFFontFill: TSpeedButton
              Left = 219
              Top = 60
              Width = 25
              Height = 25
              Hint = 'Fill'
              GroupIndex = 5
              Flat = True
              Glyph.Data = {
                66010000424D6601000000000000760000002800000014000000140000000100
                040000000000F000000000000000000000001000000010000000000000000000
                8000008000000080800080000000800080008080000080808000C0C0C0000000
                FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
                FFFFFFFF0000FFFFFFFFFFFFFFFFFFFF0000FFFFFFFFFFFFFFFFFFFF0000FFFF
                FFFFFFFFFFFFFFFF0000FFFFFFFFFFFFFFFFFFFF0000FF00000000000000FFFF
                0000FFFFFFFFFFFFFFFFFFFF0000FF00000000000000FFFF0000FFFFFFFFFFFF
                FFFFFFFF0000FF00000000000000FFFF0000FFFFFFFFFFFFFFFFFFFF0000FF00
                000000000000FFFF0000FFFFFFFFFFFFFFFFFFFF0000FF00000000000000FFFF
                0000FFFFFFFFFFFFFFFFFFFF0000FF00000000000000FFFF0000FFFFFFFFFFFF
                FFFFFFFF0000FFFFFFFFFFFFFFFFFFFF0000FFFFFFFFFFFFFFFFFFFF0000FFFF
                FFFFFFFFFFFFFFFF0000}
              ParentShowHint = False
              ShowHint = True
              OnClick = bRTFFontFillClick
            end
            object bRTFBackgroundColor: TSpeedButton
              Left = 13
              Top = 90
              Width = 25
              Height = 25
              Hint = 'Background Color'
              Flat = True
              Glyph.Data = {
                66010000424D6601000000000000760000002800000014000000140000000100
                040000000000F000000000000000000000001000000010000000000000000000
                8000008000000080800080000000800080008080000080808000C0C0C0000000
                FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
                FFFFFFFF0000FFFFFFFFFFFFFFFFFFFF0000FFFFFFFFFFFFFFFFFFFF0000FFFF
                FFFFFFFFFFFFFFFF0000FFFFFFFFFFFFFFFFFFFF0000FFFFFFFFFFFFFFFFFFFF
                0000FFFFFFFFFFFFFFFFFFFF0000FFFFFFFFFFFFFFFFFFFF0000FFFFFFFF070F
                FFFFFFFF0000FFFFFFF07770FFF7FFFF0000FFFFFF0888770FF47FFF0000FFFF
                F0F8888770F44FFF0000FFFF08FF888877444FFF0000FFFFF08FF80887444FFF
                0000FFFFFF08F04084444FFF0000FFFFFFF08F487444FFFF0000FFFFFFF40847
                07FFFFFF0000FFFFFFF480407FFFFFFF0000FFFFFFF48847FFFFFFFF0000FFFF
                FFF7447FFFFFFFFF0000}
              ParentShowHint = False
              ShowHint = True
              Spacing = 0
              OnClick = bRTFBackgroundColorClick
              OnMouseDown = bRTFBackgroundColorMouseDown
              OnMouseUp = bRTFBackgroundColorMouseUp
            end
            object pbRTFBackgroundColor: TPaintBox
              Left = 16
              Top = 107
              Width = 18
              Height = 4
              OnPaint = pbRTFBackgroundColorPaint
            end
            object bRTFHighlightColor: TSpeedButton
              Left = 38
              Top = 90
              Width = 25
              Height = 25
              Hint = 'Highlight Color'
              Flat = True
              Glyph.Data = {
                66010000424D6601000000000000760000002800000014000000140000000100
                040000000000F000000000000000000000001000000010000000000000000000
                8000008000000080800080000000800080008080000080808000C0C0C0000000
                FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
                FFFFFFFF0000FFFFFFFFFFFFFFFFFFFF0000FFFFFFFFFFFFFFFFFFFF0000FFFF
                FFFFFFFFFFFFFFFF0000FFFFFFFFFFFFFFFFFFFF0000FFFFFFFFFFFFFFFFFFFF
                0000FFFFFFFFFFFFFFFFFFFF0000FFFFFFFFFFFFFFFFFFFF0000FFFFFFFFFFFF
                FFFFFFFF0000FFFFFFFFFFFFFFFFFFFF0000FFFF00000FFFFFFFFFFF0000FFFF
                08FFF0FFFFFFFFFF0000FFFFF08FC80FFFFFFFFF0000FFFFFF0CC880FFFFFFFF
                0000FFFFFFF0C8780FFFFFFF0000FFFFFFFF0FF780FFFFFF0000FFFFFFFFF0FF
                780FFFFF0000FFFFFFFFFF0FF7C0FFFF0000FFFFFFFFFFF07FC0FFFF0000FFFF
                FFFFFFFF000FFFFF0000}
              ParentShowHint = False
              ShowHint = True
              Spacing = 0
              OnClick = bRTFHighlightColorClick
              OnMouseDown = bRTFHighlightColorMouseDown
              OnMouseUp = bRTFHighlightColorMouseUp
            end
            object pbRTFHighlightColor: TPaintBox
              Left = 41
              Top = 107
              Width = 18
              Height = 4
              OnPaint = pbRTFHighlightColorPaint
            end
            object bRTFResetItem: TSpeedButton
              Left = 15
              Top = 220
              Width = 107
              Height = 22
              Caption = 'Reset Item'
              OnClick = bRTFResetItemClick
            end
            object bRTFResetAll: TSpeedButton
              Left = 136
              Top = 220
              Width = 107
              Height = 22
              Caption = 'Reset All'
              OnClick = bRTFResetAllClick
            end
            object cbRTFFont: TComboBox
              Left = 69
              Top = 10
              Width = 150
              Height = 21
              Style = csDropDownList
              ItemHeight = 13
              TabOrder = 0
              OnChange = cbRTFFontChange
            end
            object cbRTFFontSize: TComboBox
              Left = 69
              Top = 34
              Width = 55
              Height = 21
              ItemHeight = 13
              TabOrder = 1
              OnChange = cbRTFFontSizeChange
              Items.Strings = (
                '8'
                '9'
                '10'
                '11'
                '12'
                '14'
                '16'
                '18'
                '20'
                '22'
                '24'
                '26'
                '28'
                '36'
                '48'
                '72')
            end
            object chRTFAllowBackground: TCheckBox
              Left = 134
              Top = 121
              Width = 112
              Height = 17
              Caption = 'Allow Background'
              TabOrder = 2
              OnClick = chRTFAllowBackgroundClick
            end
            object chRTFAllowHighlight: TCheckBox
              Left = 12
              Top = 121
              Width = 112
              Height = 17
              Caption = 'Allow Highlight'
              TabOrder = 3
              OnClick = chRTFAllowHighlightClick
            end
          end
        end
        object tsRTFAdvanced: TTabSheet
          Caption = 'Advanced'
          object rgRTFPageOrientation: TRadioGroup
            Left = 3
            Top = 1
            Width = 207
            Height = 42
            Caption = ' Page Orientation '
            Columns = 2
            ItemIndex = 0