osgrideditor.dfm

企业进销存管理系统

                TabOrder = 1
                OnClick = chColPropertiesShortListClick
              end
            end
          end
        end
        object Panel6: TPanel
          Left = 2
          Top = 15
          Width = 352
          Height = 170
          Align = alTop
          BevelOuter = bvNone
          TabOrder = 1
          object Label17: TLabel
            Left = 240
            Top = 32
            Width = 48
            Height = 13
            Caption = 'Value Col:'
          end
          object Label18: TLabel
            Left = 16
            Top = 56
            Width = 104
            Height = 13
            Caption = '# of Dropdown Rows:'
          end
          object Label19: TLabel
            Left = 104
            Top = 6
            Width = 60
            Height = 13
            Caption = 'DataSource:'
          end
          object Label20: TLabel
            Left = 16
            Top = 32
            Width = 117
            Height = 13
            Caption = '# of Dropdown Columns:'
          end
          object Label21: TLabel
            Left = 108
            Top = 80
            Width = 101
            Height = 13
            Caption = 'AutoFill ConvertCase:'
          end
          object Label22: TLabel
            Left = 108
            Top = 104
            Width = 72
            Height = 13
            Caption = 'Compare Type:'
          end
          object Label23: TLabel
            Left = 108
            Top = 128
            Width = 59
            Height = 13
            Caption = 'AutoSearch:'
          end
          object Label16: TLabel
            Left = 108
            Top = 152
            Width = 78
            Height = 13
            Caption = 'Dropdown Style:'
          end
          object chAutoFill: TCheckBox
            Left = 8
            Top = 80
            Width = 65
            Height = 17
            Caption = 'AutoFill'
            TabOrder = 9
            OnClick = chAutoFillClick
          end
          object chValueColSorted: TCheckBox
            Left = 244
            Top = 54
            Width = 97
            Height = 17
            Caption = 'ValueCol Sorted'
            TabOrder = 8
            OnClick = chValueColSortedClick
          end
          object cbConvertCase: TComboBox
            Left = 212
            Top = 76
            Width = 129
            Height = 21
            Style = csDropDownList
            ItemHeight = 13
            TabOrder = 12
            OnChange = cbConvertCaseChange
            Items.Strings = (
              'On Edit'
              'On Exit'
              'None')
          end
          object cbCompareType: TComboBox
            Left = 212
            Top = 99
            Width = 129
            Height = 21
            Style = csDropDownList
            ItemHeight = 13
            TabOrder = 13
            OnChange = cbCompareTypeChange
            Items.Strings = (
              'Case Sensitive'
              'Case Insensitive'
              'Own')
          end
          object cbAutoSearch: TComboBox
            Left = 212
            Top = 122
            Width = 129
            Height = 21
            Style = csDropDownList
            ItemHeight = 13
            TabOrder = 14
            OnChange = cbAutoSearchChange
            Items.Strings = (
              'None'
              'Top'
              'Bottom'
              'Center')
          end
          object cbComboDataSource: TComboBox
            Left = 172
            Top = 2
            Width = 169
            Height = 21
            Style = csDropDownList
            ItemHeight = 0
            TabOrder = 1
            OnClick = cbComboDataSourceClick
          end
          object edValueCol: TEdit
            Left = 292
            Top = 28
            Width = 33
            Height = 21
            TabOrder = 4
            Text = '0'
            OnChange = edValueColChange
          end
          object edDropDownRows: TEdit
            Left = 144
            Top = 52
            Width = 33
            Height = 21
            TabOrder = 6
            Text = '0'
            OnChange = edDropDownRowsChange
          end
          object edDropDownCols: TEdit
            Left = 144
            Top = 28
            Width = 33
            Height = 21
            TabOrder = 2
            Text = '0'
            OnChange = edDropDownColsChange
          end
          object udDropDownCols: TUpDown
            Left = 177
            Top = 28
            Width = 15
            Height = 21
            Associate = edDropDownCols
            TabOrder = 3
          end
          object udDropDownRows: TUpDown
            Left = 177
            Top = 52
            Width = 15
            Height = 21
            Associate = edDropDownRows
            TabOrder = 7
          end
          object udValueCol: TUpDown
            Left = 325
            Top = 28
            Width = 15
            Height = 21
            Associate = edValueCol
            TabOrder = 5
          end
          object chAutoLookup: TCheckBox
            Left = 8
            Top = 110
            Width = 81
            Height = 17
            Hint = 
              'Used with Lookup fields on the TDataset to automatically bind va' +
              'lue changes'
            Caption = 'AutoLookup'
            TabOrder = 10
            OnClick = chAutoLookupClick
          end
          object cbDropDownStyle: TComboBox
            Left = 212
            Top = 146
            Width = 129
            Height = 21
            Style = csDropDownList
            ItemHeight = 13
            TabOrder = 15
            OnChange = cbDropDownStyleChange
            Items.Strings = (
              'DropDown'
              'DropDown List')
          end
          object chComboStoreData: TCheckBox
            Left = 8
            Top = 140
            Width = 77
            Height = 17
            Caption = 'Store Data'
            TabOrder = 11
            OnClick = chComboStoreDataClick
          end
          object chParentCombo: TCheckBox
            Left = 8
            Top = 5
            Width = 89
            Height = 17
            Hint = 'Combo is defined at runtime at grid level'
            Caption = 'ParentCombo'
            TabOrder = 0
            OnClick = chParentComboClick
          end
        end
      end
    end
    object tsRowProperties: TTabSheet
      Caption = 'Row Properties'
      ImageIndex = 4
      object gbRow: TGroupBox
        Left = 0
        Top = 0
        Width = 301
        Height = 310
        Align = alLeft
        Caption = 'Row '
        TabOrder = 0
        object veRowEditor: TtsGrid
          Left = 2
          Top = 15
          Width = 297
          Height = 293
          Align = alClient
          AlwaysShowFocus = True
          CheckBoxStyle = stCheck
          Color = clBtnFace
          Cols = 2
          ColSelectMode = csNone
          DefaultButtonWidth = 14
          DefaultRowHeight = 16
          EditColor = clWindow
          EditFontColor = clBlack
          ExportDelimiter = ','
          HeadingFont.Charset = DEFAULT_CHARSET
          HeadingFont.Color = clWindowText
          HeadingFont.Height = -11
          HeadingFont.Name = 'MS Sans Serif'
          HeadingFont.Style = []
          HeadingHeight = 17
          ProvideGridMenu = True
          RowBarOn = False
          Rows = 1
          StoreData = True
          TabOrder = 0
          ThumbTracking = True
          Version = '2.20.24'
          VertAlignment = vtaCenter
          XMLExport.Version = '1.0'
          XMLExport.DataPacketVersion = '2.0'
          OnButtonClick = veRowEditorButtonClick
          OnComboCellLoaded = veRowEditorComboCellLoaded
          OnComboDropDown = veRowEditorComboDropDown
          OnComboGetValue = veRowEditorComboGetValue
          OnComboInit = veRowEditorComboInit
          OnDblClick = veRowEditorDblClick
          OnEndCellEdit = veRowEditorEndCellEdit
          OnRowChanged = veRowEditorRowChanged
          ColProperties = <
            item
              DataCol = 1
              Col.Heading = 'Property'
              Col.ReadOnly = True
              Col.Width = 120
            end
            item
              DataCol = 2
              Col.Heading = 'Value'
              Col.Width = 146
            end>
          Data = {0100000002000000010000000001000000000000000000000000}
        end
      end
      object btShowHiddenRows: TButton
        Left = 308
        Top = 16
        Width = 113
        Height = 25
        Caption = 'Show Hidden Rows'
        TabOrder = 1
        OnClick = btShowHiddenRowsClick
      end
    end
    object tsCellProperties: TTabSheet
      Caption = 'Cell Properties'
      ImageIndex = 5
      object gbCell: TGroupBox
        Left = 0
        Top = 0
        Width = 301
        Height = 310
        Align = alLeft
        Caption = 'Cell '
        TabOrder = 0
        object veCellEditor: TtsGrid
          Left = 2
          Top = 15
          Width = 297
          Height = 293
          Align = alClient
          AlwaysShowFocus = True
          CheckBoxStyle = stCheck
          Color = clBtnFace
          Cols = 2
          ColSelectMode = csNone
          DefaultButtonWidth = 14
          DefaultRowHeight = 16
          EditColor = clWindow
          EditFontColor = clBlack
          ExportDelimiter = ','
          HeadingFont.Charset = DEFAULT_CHARSET
          HeadingFont.Color = clWindowText
          HeadingFont.Height = -11
          HeadingFont.Name = 'MS Sans Serif'
          HeadingFont.Style = []
          HeadingHeight = 17
          ProvideGridMenu = True
          RowBarOn = False
          Rows = 1
          StoreData = True
          TabOrder = 0
          ThumbTracking = True
          Version = '2.20.24'
          VertAlignment = vtaCenter
          XMLExport.Version = '1.0'
          XMLExport.DataPacketVersion = '2.0'
          OnButtonClick = veCellEditorButtonClick
          OnComboCellLoaded = veCellEditorComboCellLoaded
          OnComboDropDown = veCellEditorComboDropDown
          OnComboGetValue = veCellEditorComboGetValue
          OnComboInit = veRowEditorComboInit
          OnDblClick = veCellEditorDblClick
          OnEndCellEdit = veCellEditorEndCellEdit
          OnRowChanged = veCellEditorRowChanged
          ColProperties = <
            item
              DataCol = 1
              Col.Heading = 'Property'
              Col.ReadOnly = True
              Col.Width = 109
            end
            item
              DataCol = 2
              Col.Heading = 'Value'
              Col.Width = 164
            end>
          Data = {0100000002000000010000000001000000000000000000000000}
        end
      end
    end
  end
  object sbStatus: TStatusBar
    Left = 0
    Top = 480
    Width = 541
    Height = 19
    Constraints.MaxHeight = 19
    Panels = <
      item
        Text = 'Source:'
        Width = 150
      end
      item
        Text = 'Col:'
        Width = 75
      end
      item
        Width = 75
      end
      item
        Width = 50
      end>
  end
  object sampleDbGrid: TtsDBGrid
    Left = 0
    Top = 41
    Width = 541
    Height = 96
    Align = alClient
    CheckBoxStyle = stCheck
    Cols = 0
    ExactRowCount = True
    ExportDelimiter = ','