formcolselect.dfm

中式财务栏 表格式录入 运行时设置可显示列、列名、列宽

object FrmColSelect: TFrmColSelect
  Left = 291
  Top = 61
  BorderStyle = bsDialog
  Caption = #34920#26684#35774#32622
  ClientHeight = 437
  ClientWidth = 328
  Color = clWindow
  Ctl3D = False
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poOwnerFormCenter
  ShowHint = True
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 328
    Height = 89
    Align = alTop
    BevelOuter = bvNone
    Ctl3D = False
    ParentCtl3D = False
    TabOrder = 0
    object GroupBox1: TGroupBox
      Left = 0
      Top = 0
      Width = 328
      Height = 89
      Align = alClient
      Caption = #34920#26684#21442#25968
      Ctl3D = True
      ParentCtl3D = False
      TabOrder = 0
      object Label1: TLabel
        Left = 51
        Top = 64
        Width = 36
        Height = 12
        Caption = #22266#23450#21015
      end
      object ChkSumList: TCheckBox
        Left = 16
        Top = 14
        Width = 81
        Height = 17
        Caption = #26174#31034#21512#35745#26639
        TabOrder = 0
      end
      object chkAutoColWidth: TCheckBox
        Left = 143
        Top = 14
        Width = 49
        Height = 17
        Caption = #25972#26639
        TabOrder = 1
      end
      object ChkMultiTitle: TCheckBox
        Left = 231
        Top = 14
        Width = 76
        Height = 17
        Caption = #22810#26639#26631#39064
        TabOrder = 2
      end
      object EdtFix: TEdit
        Left = 16
        Top = 62
        Width = 17
        Height = 20
        ImeName = #26497#21697#20116#31508#36755#20837#27861
        ReadOnly = True
        TabOrder = 3
        Text = '0'
      end
      object UpDownFix: TUpDown
        Left = 33
        Top = 62
        Width = 15
        Height = 20
        Associate = EdtFix
        TabOrder = 4
      end
      object CheckBox1: TCheckBox
        Left = 16
        Top = 36
        Width = 121
        Height = 17
        Caption = #20445#23384#34920#26684#24403#21069#26684#24335
        TabOrder = 5
      end
      object CheckBox2: TCheckBox
        Left = 143
        Top = 37
        Width = 124
        Height = 17
        Caption = #24674#22797#34920#26684#40664#35748#26684#24335
        TabOrder = 6
      end
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 89
    Width = 328
    Height = 348
    Align = alClient
    BevelOuter = bvNone
    TabOrder = 1
    object CLB: TCheckListBox
      Left = 0
      Top = 0
      Width = 178
      Height = 348
      Align = alClient
      BevelInner = bvNone
      BevelOuter = bvNone
      Ctl3D = True
      ImeName = #26497#21697#20116#31508#36755#20837#27861
      ItemHeight = 12
      Items.Strings = (
        '')
      ParentCtl3D = False
      Style = lbOwnerDrawFixed
      TabOrder = 0
      OnClick = CLBClick
    end
    object Panel3: TPanel
      Left = 178
      Top = 0
      Width = 150
      Height = 348
      Align = alRight
      BevelOuter = bvNone
      TabOrder = 1
      DesignSize = (
        150
        348)
      object BitBtn1: TBitBtn
        Left = 32
        Top = 318
        Width = 90
        Height = 25
        Anchors = [akBottom]
        Cancel = True
        Caption = #21462#28040'(&C)'
        ModalResult = 2
        TabOrder = 3
        NumGlyphs = 2
      end
      object BitBtn2: TBitBtn
        Left = 32
        Top = 292
        Width = 90
        Height = 25
        Anchors = [akBottom]
        Caption = #30830#23450'(&O)'
        Default = True
        TabOrder = 2
        OnClick = Button2Click
        NumGlyphs = 2
      end
      object Panel4: TPanel
        Left = 0
        Top = 0
        Width = 150
        Height = 233
        Align = alTop
        Anchors = [akLeft, akTop, akRight, akBottom]
        BevelOuter = bvNone
        Ctl3D = False
        ParentCtl3D = False
        TabOrder = 0
        object GroupBox2: TGroupBox
          Left = 0
          Top = 8
          Width = 150
          Height = 225
          Align = alBottom
          Caption = #23383#27573#21442#25968
          Ctl3D = True
          ParentCtl3D = False
          TabOrder = 0
          object SpeedButton6: TSpeedButton
            Left = 11
            Top = 13
            Width = 31
            Height = 22
            Hint = #36873#25321#39033#32622#39030
            Caption = #32622#39030
            Flat = True
            OnClick = SpeedButton6Click
          end
          object SpeedButton1: TSpeedButton
            Left = 44
            Top = 13
            Width = 31
            Height = 22
            Hint = #36873#25321#39033#19978#31227
            Caption = #19978#31227
            Flat = True
            OnClick = SpeedButton1Click
          end
          object SpeedButton2: TSpeedButton
            Left = 78
            Top = 13
            Width = 31
            Height = 22
            Hint = #36873#25321#39033#19979#31227
            Caption = #19979#31227
            Flat = True
            OnClick = SpeedButton2Click
          end
          object SpeedButton7: TSpeedButton
            Left = 112
            Top = 13
            Width = 31
            Height = 22
            Hint = #36873#25321#39033#32622#24213
            Caption = #32622#24213
            Flat = True
            OnClick = SpeedButton7Click
          end
          object Label3: TLabel
            Left = 8
            Top = 141
            Width = 48
            Height = 12
            Caption = #32479#35745#23383#27573
            FocusControl = EditSumValue
          end
          object Label2: TLabel
            Left = 8
            Top = 101
            Width = 48
            Height = 12
            Caption = #32479#35745#31867#22411
          end
          object Label4: TLabel
            Left = 14
            Top = 181
            Width = 67
            Height = 12
            Caption = #32479#35745#20540
            FocusControl = EditSumValue
          end
          object EditSumValue: TLabeledEdit
            Left = 6
            Top = 195
            Width = 141
            Height = 20
            EditLabel.Width = 6
            EditLabel.Height = 12
            EditLabel.Caption = ' '
            Enabled = False
            ImeName = #26497#21697#20116#31508#36755#20837#27861
            TabOrder = 4
            OnExit = OnSaveFieldValue
          end
          object EditSumField: TComboBox
            Left = 8
            Top = 157
            Width = 139
            Height = 22
            Style = csOwnerDrawFixed
            Enabled = False
            ImeName = #26497#21697#20116#31508#36755#20837#27861
            ItemHeight = 16
            TabOrder = 3
            OnExit = OnSaveFieldValue
          end
          object CbxSumType: TComboBox
            Left = 8
            Top = 117
            Width = 139
            Height = 22
            Style = csOwnerDrawFixed
            ImeName = #26497#21697#20116#31508#36755#20837#27861
            ItemHeight = 16
            TabOrder = 2
            OnChange = CbxSumTypeChange
            OnExit = OnSaveFieldValue
            Items.Strings = (
              #19981#32479#35745
              #26174#31034#25991#23383
              #23383#27573#20540
              #24179#22343#20540
              #35745#25968#20540
              #21512#35745#20540)
          end
          object ChkReadOnly: TCheckBox
            Left = 15
            Top = 35
            Width = 43
            Height = 17
            Caption = #21482#35835
            TabOrder = 1
            OnExit = OnSaveFieldValue
          end
          object EdtFieldTitle: TLabeledEdit
            Left = 32
            Top = 54
            Width = 114
            Height = 20
            EditLabel.Width = 24
            EditLabel.Height = 12
            EditLabel.Caption = #26631#39064
            ImeName = #26497#21697#20116#31508#36755#20837#27861
            LabelPosition = lpLeft
            TabOrder = 0
            OnExit = OnSaveFieldValue
          end
          object LabeledEdit1: TLabeledEdit
            Left = 32
            Top = 77
            Width = 114
            Height = 20
            EditLabel.Width = 24
            EditLabel.Height = 12
            EditLabel.Caption = #21015#23485
            ImeName = #26497#21697#20116#31508#36755#20837#27861
            LabelPosition = lpLeft
            TabOrder = 5
            OnExit = OnSaveFieldValue
          end
        end
      end
      object BitBtn3: TBitBtn
        Left = 32
        Top = 239
        Width = 90
        Height = 25
        Anchors = [akLeft, akBottom]
        Caption = #20840#36873'(&S)'
        TabOrder = 1
        OnClick = BitBtn3Click
        NumGlyphs = 2
      end
      object btn1: TBitBtn
        Left = 32
        Top = 264
        Width = 90
        Height = 25
        Caption = #20840#19981#36873'(&N)'
        TabOrder = 4
        OnClick = btn1Click
      end
    end
    object EdtFieldName: TLabeledEdit
      Left = 16
      Top = 312
      Width = 121
      Height = 20
      Color = cl3DLight
      Ctl3D = True
      EditLabel.Width = 48
      EditLabel.Height = 12
      EditLabel.Caption = #23383#27573#21517#31216
      ImeName = #26497#21697#20116#31508#36755#20837#27861
      ParentCtl3D = False
      TabOrder = 2
      Visible = False
    end
  end
end