osgrideditor.dfm

企业进销存管理系统

        object chShowFocus: TCheckBox
          Left = 12
          Top = 37
          Width = 133
          Height = 17
          Hint = 'Show the current cell focus even when the grid is not selected'
          Caption = 'Always Show Focus'
          TabOrder = 2
          OnClick = chShowFocusClick
        end
        object chRowBarOn: TCheckBox
          Left = 112
          Top = 58
          Width = 85
          Height = 17
          Hint = 'Hide or show the RowBar on the left'
          Caption = 'RowBar On'
          TabOrder = 3
          OnClick = chRowBarOnClick
        end
        object chWantTabs: TCheckBox
          Left = 12
          Top = 80
          Width = 97
          Height = 17
          Hint = 'Tab moves between cells or to next control'
          Caption = 'Want Tabs'
          TabOrder = 4
          OnClick = chWantTabsClick
        end
        object chColMoving: TCheckBox
          Left = 12
          Top = 101
          Width = 97
          Height = 17
          Hint = 'Can columns be moved within the grid'
          Caption = 'Column Moving'
          TabOrder = 5
          OnClick = chColMovingClick
        end
        object chRowMoving: TCheckBox
          Left = 112
          Top = 101
          Width = 93
          Height = 17
          Hint = 'Can rows be moved within the grid'
          Caption = 'Row Moving'
          TabOrder = 6
          OnClick = chRowMovingClick
        end
        object chStoreData: TCheckBox
          Left = 12
          Top = 122
          Width = 97
          Height = 17
          Hint = 
            'Indicates whether or not cell values are stored/managed by the g' +
            'rid'
          Caption = 'Store Data'
          TabOrder = 7
          OnClick = chStoreDataClick
        end
        object chGridMenu: TCheckBox
          Left = 12
          Top = 144
          Width = 81
          Height = 17
          Hint = 'Should the default grid menu options be provided'
          Caption = 'Grid Menu'
          TabOrder = 8
          OnClick = chGridMenuClick
        end
        object chPrintTotals: TCheckBox
          Left = 112
          Top = 144
          Width = 85
          Height = 17
          Hint = 'Are grid reporting totals enabled'
          Caption = 'Print Totals'
          TabOrder = 9
          OnClick = chPrintTotalsClick
        end
      end
      object gbLayout: TGroupBox
        Left = 4
        Top = 176
        Width = 329
        Height = 61
        Caption = 'Layout '
        TabOrder = 3
        object Label4: TLabel
          Left = 159
          Top = 16
          Width = 50
          Height = 13
          Caption = 'Grid Lines:'
        end
        object Label13: TLabel
          Left = 160
          Top = 40
          Width = 71
          Height = 13
          Caption = 'Vert Alignment:'
        end
        object Label27: TLabel
          Left = 12
          Top = 16
          Width = 96
          Height = 13
          Caption = 'Default Row Height:'
        end
        object Label28: TLabel
          Left = 12
          Top = 38
          Width = 83
          Height = 13
          Caption = 'Default Col Width'
        end
        object udDefaultRowHeight: TUpDown
          Left = 137
          Top = 12
          Width = 15
          Height = 21
          Associate = edDefaultRowHeight
          Max = 10000
          Position = 17
          TabOrder = 0
          OnClick = udDefaultRowHeightClick
        end
        object udDefaultColWidth: TUpDown
          Left = 137
          Top = 36
          Width = 15
          Height = 21
          Associate = edDefaultColWidth
          Max = 1000
          Position = 64
          TabOrder = 1
          OnClick = udDefaultColWidthClick
        end
        object cbGridLines: TComboBox
          Left = 236
          Top = 12
          Width = 85
          Height = 21
          Style = csDropDownList
          ItemHeight = 13
          TabOrder = 2
          OnChange = cbGridLinesChange
          Items.Strings = (
            'glNone'
            'glVertLines'
            'glHorzLines'
            'glBoth')
        end
        object cbVertAlignment: TComboBox
          Left = 236
          Top = 36
          Width = 85
          Height = 21
          Style = csDropDownList
          ItemHeight = 13
          TabOrder = 3
          OnChange = cbVertAlignmentChange
          Items.Strings = (
            'vtaTop'
            'vtaBottom'
            'vtaCenter'
            'vtaDefault')
        end
        object edDefaultRowHeight: TEdit
          Left = 112
          Top = 12
          Width = 25
          Height = 21
          TabOrder = 4
          Text = '17'
          OnExit = edDefaultRowHeightExit
          OnKeyPress = edDefaultRowHeightKeyPress
        end
        object edDefaultColWidth: TEdit
          Left = 112
          Top = 36
          Width = 25
          Height = 21
          TabOrder = 5
          Text = '64'
          OnExit = edDefaultColWidthExit
          OnKeyPress = edDefaultColWidthKeyPress
        end
      end
      object GroupBox1: TGroupBox
        Left = 336
        Top = 176
        Width = 189
        Height = 61
        Caption = 'Selecting '
        TabOrder = 4
        object Label11: TLabel
          Left = 8
          Top = 16
          Width = 51
          Height = 13
          Caption = 'Col Select:'
        end
        object Label12: TLabel
          Left = 8
          Top = 40
          Width = 58
          Height = 13
          Caption = 'Row Select:'
        end
        object cbColSelect: TComboBox
          Left = 72
          Top = 12
          Width = 109
          Height = 21
          Style = csDropDownList
          ItemHeight = 13
          TabOrder = 0
          OnChange = cbColSelectChange
          Items.Strings = (
            'csNone'
            'csMulti')
        end
        object cbRowSelect: TComboBox
          Left = 72
          Top = 36
          Width = 109
          Height = 21
          Style = csDropDownList
          ItemHeight = 13
          TabOrder = 1
          OnChange = cbRowSelectChange
          Items.Strings = (
            'rsNone'
            'rsSingle'
            'rsMulti')
        end
      end
      object gdTest: TtsDBGrid
        Left = 328
        Top = 240
        Width = 193
        Height = 40
        CellSelectMode = cmNone
        CheckBoxStyle = stCheck
        DataSource = DataSource1
        ExactRowCount = True
        ExportDelimiter = ','
        HeadingFont.Charset = DEFAULT_CHARSET
        HeadingFont.Color = clWindowText
        HeadingFont.Height = -11
        HeadingFont.Name = 'MS Sans Serif'
        HeadingFont.Style = []
        RowChangedIndicator = riAutoReset
        RowMoving = False
        ProvideGridMenu = True
        TabOrder = 5
        Version = '2.20.24'
        Visible = False
        XMLExport.Version = '1.0'
        XMLExport.DataPacketVersion = '2.0'
        DataBound = True
      end
      object GroupBox2: TGroupBox
        Left = 4
        Top = 240
        Width = 125
        Height = 62
        Caption = 'Rows and Columns '
        TabOrder = 6
        object Label25: TLabel
          Left = 8
          Top = 18
          Width = 43
          Height = 13
          Caption = 'Columns:'
        end
        object Label26: TLabel
          Left = 8
          Top = 40
          Width = 30
          Height = 13
          Caption = 'Rows:'
        end
        object edCols: TEdit
          Left = 56
          Top = 14
          Width = 33
          Height = 21
          TabOrder = 0
          Text = '0'
          OnExit = edColsExit
          OnKeyPress = edColsKeyPress
        end
        object edRows: TEdit
          Left = 56
          Top = 36
          Width = 33
          Height = 21
          TabOrder = 1
          Text = '0'
          OnExit = edRowsExit
          OnKeyPress = edRowsKeyPress
        end
        object UpDown1: TUpDown
          Left = 89
          Top = 14
          Width = 15
          Height = 21
          Associate = edCols
          Max = 1000
          TabOrder = 2
          OnClick = UpDown1Click
        end
        object UpDown2: TUpDown
          Left = 89
          Top = 36
          Width = 15
          Height = 21
          Associate = edRows
          Max = 1000
          TabOrder = 3
          OnChanging = UpDown2Changing
          OnExit = UpDown2Exit
        end
      end
    end
    object tsAdvanced: TTabSheet
      Caption = '&Grid Properties'
      OnResize = tsAdvancedResize
      object Splitter1: TSplitter
        Left = 245
        Top = 0
        Width = 4
        Height = 310
        OnMoved = Splitter1Moved
      end
      object pnPropertyEditor: TPanel
        Left = 0
        Top = 0
        Width = 245
        Height = 310
        Align = alLeft
        BevelOuter = bvNone
        Caption = 'pnPropertyEditor'
        TabOrder = 0
        object veEditor: TtsGrid
          Left = 0
          Top = 25
          Width = 245
          Height = 285
          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 = veEditorButtonClick
          OnComboCellLoaded = veEditorComboCellLoaded
          OnComboDropDown = veEditorComboDropDown
          OnComboGetValue = veEditorComboGetValue
          OnComboInit = veEditorComboInit
          OnDblClick = veEditorDblClick
          OnEndCellEdit = veEditorEndCellEdit
          OnRowChanged = veEditorRowChanged
          ColProperties = <
            item
              DataCol = 1
              Col.Width = 111
            end
            item
              DataCol = 2
              Col.Width = 111
            end>
          Data = {0000000000000000}
        end
        object Panel2: TPanel
          Left = 0
          Top = 0
          Width = 245
          Height = 25
          Align = alTop
          BevelOuter = bvNone
          TabOrder = 1
          object Label2: TLabel
            Left = 4
            Top = 8
            Width = 26
            Height = 13
            Caption = 'View:'
          end
          object btCustomGridEdit: TSpeedButton
            Left = 192
            Top = 2