qexport4dialog.dfm

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

          666EEE66666EEE66666EEEE6666EEEE6666EEEEE666EEEEE666EEEEEE66EEEEE
          E66EEEEEEE6EEEEEEE6EEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE}
        Layout = blGlyphTop
        Margin = 1
        OnClick = bDelAllExportedFieldClick
      end
      object lstAvailableFields: TListView
        Left = 0
        Top = 30
        Width = 200
        Height = 315
        Columns = <
          item
            Width = 195
          end>
        DragMode = dmAutomatic
        HideSelection = False
        ReadOnly = True
        RowSelect = True
        ShowColumnHeaders = False
        SmallImages = imgFields
        TabOrder = 0
        ViewStyle = vsReport
        OnDblClick = bAddOneExportedFieldClick
        OnDragDrop = lstAvailableFieldsDragDrop
        OnDragOver = FieldsListDragOver
      end
      object lstExportedFields: TListView
        Left = 262
        Top = 30
        Width = 200
        Height = 315
        Columns = <
          item
            Width = 195
          end>
        DragMode = dmAutomatic
        HideSelection = False
        ReadOnly = True
        RowSelect = True
        ShowColumnHeaders = False
        SmallImages = imgFields
        TabOrder = 1
        ViewStyle = vsReport
        OnDblClick = bDelOneExportedFieldClick
        OnDragDrop = lstExportedFieldsDragDrop
        OnDragOver = FieldsListDragOver
      end
    end
    object tshFormats: TTabSheet
      Caption = '&Formats'
      object gbStandardFormats: TGroupBox
        Left = 5
        Top = 2
        Width = 449
        Height = 131
        Caption = '  Common  '
        TabOrder = 0
        object laIntegerFormat: TLabel
          Left = 4
          Top = 19
          Width = 95
          Height = 13
          AutoSize = False
          Caption = 'Integer Format'
        end
        object laDateFormat: TLabel
          Left = 4
          Top = 41
          Width = 95
          Height = 13
          AutoSize = False
          Caption = 'Date Format'
        end
        object laDateTimeFormat: TLabel
          Left = 4
          Top = 63
          Width = 95
          Height = 13
          AutoSize = False
          Caption = 'DateTime Format'
        end
        object laFloatFormat: TLabel
          Left = 222
          Top = 19
          Width = 94
          Height = 13
          AutoSize = False
          Caption = 'FloatFormat'
        end
        object laTimeFormat: TLabel
          Left = 222
          Top = 41
          Width = 94
          Height = 13
          AutoSize = False
          Caption = 'Time Format'
        end
        object laCurrencyFormat: TLabel
          Left = 222
          Top = 63
          Width = 94
          Height = 13
          AutoSize = False
          Caption = 'Currency Format'
        end
        object laBooleanTrue: TLabel
          Left = 4
          Top = 85
          Width = 95
          Height = 13
          AutoSize = False
          Caption = 'Boolean true'
        end
        object laBooleanFalse: TLabel
          Left = 222
          Top = 85
          Width = 94
          Height = 13
          AutoSize = False
          Caption = 'Boolean false'
        end
        object laNullString: TLabel
          Left = 4
          Top = 108
          Width = 95
          Height = 13
          AutoSize = False
          Caption = 'Null string'
        end
        object edIntegerFormat: TEdit
          Left = 103
          Top = 15
          Width = 115
          Height = 21
          TabOrder = 0
          OnChange = edIntegerFormatChange
        end
        object edDateFormat: TEdit
          Left = 103
          Top = 37
          Width = 115
          Height = 21
          TabOrder = 2
          OnChange = edDateFormatChange
        end
        object edDateTimeFormat: TEdit
          Left = 103
          Top = 59
          Width = 115
          Height = 21
          TabOrder = 4
          OnChange = edDateTimeFormatChange
        end
        object edFloatFormat: TEdit
          Left = 319
          Top = 15
          Width = 115
          Height = 21
          TabOrder = 1
          OnChange = edFloatFormatChange
        end
        object edTimeFormat: TEdit
          Left = 319
          Top = 37
          Width = 115
          Height = 21
          TabOrder = 3
          OnChange = edTimeFormatChange
        end
        object edCurrencyFormat: TEdit
          Left = 319
          Top = 59
          Width = 115
          Height = 21
          TabOrder = 5
          OnChange = edCurrencyFormatChange
        end
        object edBooleanTrue: TEdit
          Left = 103
          Top = 81
          Width = 115
          Height = 21
          TabOrder = 6
          OnChange = edBooleanTrueChange
        end
        object edBooleanFalse: TEdit
          Left = 319
          Top = 81
          Width = 115
          Height = 21
          TabOrder = 7
          OnChange = edBooleanFalseChange
        end
        object edNullString: TEdit
          Left = 103
          Top = 104
          Width = 115
          Height = 21
          TabOrder = 8
          OnChange = edNullStringChange
        end
      end
      object gbUserFormat: TGroupBox
        Left = 5
        Top = 203
        Width = 449
        Height = 140
        Caption = '  User  '
        TabOrder = 1
        object laEqual_01: TLabel
          Left = 159
          Top = 17
          Width = 15
          Height = 16
          Alignment = taCenter
          AutoSize = False
          Caption = '='
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -13
          Font.Name = 'MS Sans Serif'
          Font.Style = []
          ParentFont = False
          Layout = tlCenter
        end
        object bAddUserFormat: TSpeedButton
          Left = 347
          Top = 15
          Width = 75
          Height = 25
          Caption = '&Add'
          OnClick = bAddUserFormatClick
        end
        object bEditUserFormat: TSpeedButton
          Left = 347
          Top = 46
          Width = 75
          Height = 25
          Caption = '&Edit'
          OnClick = bEditUserFormatClick
        end
        object bDeleteUserFormat: TSpeedButton
          Left = 347
          Top = 78
          Width = 75
          Height = 25
          Caption = '&Delete'
          OnClick = bDeleteUserFormatClick
        end
        object bClearUserFormats: TSpeedButton
          Left = 346
          Top = 109
          Width = 75
          Height = 25
          Caption = 'C&lear'
          OnClick = bClearUserFormatsClick
        end
        object cbxFormatFields: TComboBox
          Left = 8
          Top = 15
          Width = 145
          Height = 21
          Style = csDropDownList
          ItemHeight = 13
          TabOrder = 0
          OnChange = cbxFormatFieldsChange
        end
        object cbxUserFormats: TComboBox
          Left = 181
          Top = 15
          Width = 145
          Height = 21
          ItemHeight = 13
          TabOrder = 1
        end
        object lstUserFormats: TListView
          Left = 8
          Top = 41
          Width = 318
          Height = 93
          Columns = <
            item
              Width = 142
            end
            item
              Alignment = taCenter
              Width = 30
            end
            item
              Width = 142
            end>
          HideSelection = False
          ReadOnly = True
          RowSelect = True
          ShowColumnHeaders = False
          SmallImages = imgFields
          TabOrder = 2
          ViewStyle = vsReport
        end
      end
      object gbSeparators: TGroupBox
        Left = 5
        Top = 136
        Width = 449
        Height = 65
        Caption = 'Separators'
        TabOrder = 2
        object laDecimalSeparator: TLabel
          Left = 4
          Top = 19
          Width = 95
          Height = 13
          AutoSize = False
          Caption = 'Decimal Separator'
        end
        object laThousandSeparator: TLabel
          Left = 222
          Top = 19
          Width = 104
          Height = 13
          AutoSize = False
          Caption = 'Thousand Separator'
        end
        object laDateSeparator: TLabel
          Left = 4
          Top = 41
          Width = 95
          Height = 13
          AutoSize = False
          Caption = 'Date Separator'
        end
        object laTimeSeparator: TLabel
          Left = 222
          Top = 41
          Width = 104
          Height = 13
          AutoSize = False
          Caption = 'Time Separator'
        end
        object edDecimalSeparator: TEdit
          Left = 103
          Top = 15
          Width = 115
          Height = 21
          TabOrder = 0
          OnExit = edDecimalSeparatorExit
        end
        object edThousandSeparator: TEdit
          Left = 327
          Top = 15
          Width = 115
          Height = 21
          TabOrder = 1
          OnExit = edThousandSeparatorExit
        end
        object edDateSeparator: TEdit
          Left = 103
          Top = 37
          Width = 115
          Height = 21
          TabOrder = 2
          OnExit = edDateSeparatorExit
        end
        object edTimeSeparator: TEdit
          Left = 327
          Top = 37
          Width = 115
          Height = 21
          TabOrder = 3
          OnExit = edTimeSeparatorExit
        end
      end
    end
    object tshHeaderFooter: TTabSheet
      Caption = 'Hea&der && Footer'
      object laHeader: TLabel
        Left = 9
        Top = 14
        Width = 439
        Height = 22
        Alignment = taCenter
        AutoSize = False
        Caption = 'Header text:'
        Color = clBtnShadow
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clCaptionText
        Font.Height = -11