unit1.dfm

最新的 DBGRIDEH4.0

        Top = 256
        Width = 220
        Height = 25
        DataSource = DataModule1.DataSource3
        Anchors = [akLeft, akBottom]
        Flat = True
        TabOrder = 3
      end
    end
    object TabSheet4: TTabSheet
      Caption = 'Grid3D'
      object DBGridEh5: TDBGridEh
        Left = 0
        Top = 0
        Width = 680
        Height = 487
        Align = alClient
        AutoFitColWidths = True
        DataSource = DataModule1.dsEmployee
        EditActions = [geaCopyEh, geaSelectAllEh]
        Flat = False
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Microsoft Sans Serif'
        Font.Style = []
        FooterColor = clWindow
        FooterFont.Charset = DEFAULT_CHARSET
        FooterFont.Color = clWindowText
        FooterFont.Height = -11
        FooterFont.Name = 'Microsoft Sans Serif'
        FooterFont.Style = []
        FooterRowCount = 1
        IndicatorTitle.ShowDropDownSign = True
        IndicatorTitle.TitleButton = True
        Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgTabs, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit, dgMultiSelect]
        OptionsEh = [dghFixed3D, dghFrozen3D, dghFooter3D, dghData3D, dghHighlightFocus, dghClearSelection, dghIncSearch, dghPreferIncSearch, dghRowHighlight, dghDblClickOptimizeColWidth, dghDialogFind]
        ParentFont = False
        ParentShowHint = False
        PopupMenu = PopupMenu1
        RowHeight = 7
        RowLines = 1
        RowSizingAllowed = True
        ShowHint = True
        SumList.Active = True
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'Microsoft Sans Serif'
        TitleFont.Style = [fsBold]
        UseMultiTitle = True
        VertScrollBar.Tracking = True
        Columns = <
          item
            Checkboxes = False
            Color = clBtnFace
            EditButtons = <>
            FieldName = 'EmpNo'
            Footer.Color = clBtnFace
            Footers = <>
            Title.Caption = 'Emp No'
            ToolTips = True
            Width = 69
          end
          item
            Checkboxes = False
            Color = clBtnFace
            EditButtons = <>
            FieldName = 'FirstName'
            Footer.Color = clBtnFace
            Footers = <>
            Title.Caption = 'Name|First'
            ToolTips = True
            Width = 121
          end
          item
            Checkboxes = False
            Color = clBtnFace
            EditButtons = <>
            FieldName = 'LastName'
            Footer.Color = clBtnFace
            Footers = <>
            Title.Caption = 'Name|Last'
            Title.SortMarker = smDownEh
            ToolTips = True
            Width = 146
          end
          item
            Checkboxes = False
            Color = clBtnFace
            EditButtons = <>
            FieldName = 'PhoneExt'
            Footer.Color = clBtnFace
            Footers = <>
            Title.Caption = 'Phone Ext'
            ToolTips = True
            Width = 81
          end
          item
            Checkboxes = False
            Color = clBtnFace
            EditButtons = <>
            FieldName = 'HireDate'
            Footer.Color = clBtnFace
            Footers = <>
            Title.Caption = 'Hire Date'
            ToolTips = True
            Width = 82
          end
          item
            Checkboxes = False
            Color = clBtnFace
            EditButtons = <>
            FieldName = 'Salary'
            Footer.Color = clBtnFace
            Footer.FieldName = 'Salary'
            Footer.ValueType = fvtSum
            Footers = <>
            Title.Caption = 'Salary|Sum'
            ToolTips = True
            Width = 99
          end
          item
            Checkboxes = False
            Color = clBtnFace
            EditButtons = <>
            FieldName = 'SalaryType'
            Footer.Color = clBtnFace
            Footers = <>
            ImageList = DataModule1.ImageList2
            KeyList.Strings = (
              '0'
              '1'
              '2'
              '3'
              '4'
              '5')
            PickList.Strings = (
              'Super smile'
              'Smile of third degree'
              'Smile of second degree'
              'Smile of first degree'
              'So-so'
              'No smile')
            Title.Alignment = taRightJustify
            Title.Caption = 'Salary|Face'
            Title.Orientation = tohVertical
            ToolTips = True
            Width = 29
          end>
      end
    end
    object TabSheet5: TTabSheet
      Caption = 'DBList'
      object Panel3: TPanel
        Left = 0
        Top = 0
        Width = 680
        Height = 41
        Align = alTop
        BevelOuter = bvNone
        TabOrder = 0
        object cbClearSelection: TCheckBox
          Left = 118
          Top = 4
          Width = 109
          Height = 17
          Caption = 'Clear selection'
          TabOrder = 2
          OnClick = cbClearSelectionClick
        end
        object cbShowIndicator: TCheckBox
          Left = 8
          Top = 20
          Width = 109
          Height = 17
          Caption = 'Show indicator'
          Checked = True
          State = cbChecked
          TabOrder = 1
          OnClick = cbShowIndicatorClick
        end
        object cbTitle: TCheckBox
          Left = 8
          Top = 4
          Width = 109
          Height = 17
          Caption = 'Show title'
          Checked = True
          State = cbChecked
          TabOrder = 0
          OnClick = cbTitleClick
        end
        object cbHighlightFocus: TCheckBox
          Left = 118
          Top = 20
          Width = 109
          Height = 17
          Caption = 'Highlight focus'
          TabOrder = 4
          OnClick = cbHighlightFocusClick
        end
        object cbMultiselect: TCheckBox
          Left = 228
          Top = 4
          Width = 109
          Height = 17
          Caption = 'Multiselect'
          Checked = True
          State = cbChecked
          TabOrder = 3
          OnClick = cbMultiselectClick
        end
        object cbDragNDrop: TCheckBox
          Left = 228
          Top = 20
          Width = 109
          Height = 17
          Caption = 'Drag&&Drop'
          TabOrder = 5
          OnClick = cbDragNDropClick
        end
        object cbDichromatic: TCheckBox
          Left = 336
          Top = 4
          Width = 109
          Height = 17
          Caption = 'Dichromatic'
          TabOrder = 6
          OnClick = cbDichromaticClick
        end
        object cbInterAppDragNDrop: TCheckBox
          Left = 336
          Top = 20
          Width = 149
          Height = 17
          Caption = 'Interapplication Drag&&Drop'
          TabOrder = 7
          Visible = False
          OnClick = cbInterAppDragNDropClick
        end
      end
      object dbgList1: TDBGridEh
        Left = 0
        Top = 253
        Width = 680
        Height = 234
        Align = alBottom
        AutoFitColWidths = True
        BorderStyle = bsNone
        Ctl3D = False
        DataSource = DataModule1.dsCustomer2
        DragMode = dmAutomatic
        EditActions = [geaCopyEh, geaSelectAllEh]
        Flat = False
        FooterColor = clWindow
        FooterFont.Charset = DEFAULT_CHARSET
        FooterFont.Color = clWindowText
        FooterFont.Height = -11
        FooterFont.Name = 'Microsoft Sans Serif'
        FooterFont.Style = []
        IndicatorTitle.ShowDropDownSign = True
        IndicatorTitle.TitleButton = True
        Options = [dgTitles, dgIndicator, dgColumnResize, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit, dgMultiSelect]
        OptionsEh = [dghFixed3D, dghIncSearch, dghPreferIncSearch, dghDblClickOptimizeColWidth, dghDialogFind]
        ParentCtl3D = False
        PopupMenu = PopupMenu1
        SumList.Active = True
        SumList.VirtualRecords = True
        TabOrder = 1
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'Microsoft Sans Serif'
        TitleFont.Style = []
        VertScrollBar.Tracking = True
        Visible = False
        OnDragDrop = dbgList1DragDrop
        OnDragOver = dbgList1DragOver
        Columns = <
          item
            Checkboxes = False
            EditButtons = <>
            FieldName = 'Company'
            Footers = <>
            Width = 274
          end
          item
            Checkboxes = False
            EditButtons = <>
            FieldName = 'Country'
            Footers = <>
            Width = 152
          end
          item
            Checkboxes = False
            EditButtons = <>
            FieldName = 'City'
            Footers = <>
            Width = 145
          end
          item
            Checkboxes = False
            EditButtons = <>
            FieldName = 'State'
            Footers = <>
            Width = 62
          end>
      end
      object dbgList: TDBGridEh
        Left = 0
        Top = 41
        Width = 680
        Height = 212
        Align = alClient
        AutoFitColWidths = True
        BorderStyle = bsNone
        Ctl3D = False
        DataSource = DataModule1.dsCustomer
        EditActions = [geaCopyEh, geaSelectAllEh]
        Flat = False
        FooterColor = clWindow
        FooterFont.Charset = DEFAULT_CHARSET
        FooterFont.Color = clWindowText
        FooterFont.Height = -11
        FooterFont.Name = 'Microsoft Sans Serif'
        FooterFont.Style = []
        IndicatorTitle.ShowDropDownSign = True
        IndicatorTitle.TitleButton = True
        Options = [dgTitles, dgIndicator, dgColumnResize, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit, dgMultiSelect]
        OptionsEh = [dghFixed3D, dghIncSearch, dghPreferIncSearch, dghDblClickOptimizeColWidth, dghDialogFind]
        ParentCtl3D = False
        ParentShowHint = False
        PopupMenu = PopupMenu1
        ShowHint = True
        SumList.Active = True
        SumList.VirtualRecords = True
        TabOrder = 2
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'Microsoft Sans Serif'
        TitleFont.Style = []
        VertScrollBar.Tracking = True
        OnDragDrop = dbgListDragDrop
        OnDragOver = dbgListDragOver
        OnGetCellParams = dbgListGetCellParams
        OnStartDrag = dbgListStartDrag
        Columns = <
          item
            Checkboxes = False
            EditButtons = <>
            FieldName = 'Company'
            Footers = <>
            ToolTips = True
            Width = 274
          end
          item
            Checkboxes = False
            EditButtons = <>
            FieldName = 'Country'
            Footers = <>
            ToolTips = True
            Width = 152
          end
          item
            Checkboxes = False
            EditButtons = <>
            FieldName = 'City'
            Footers = <>
            ToolTips = True
            Width = 145
          end
          item
            Checkboxes = False
            EditButtons = <>
            FieldName = 'State'
            Footers = <>
            ToolTips = True
            Width = 62
          end>
      end
    end
    object TabSheet6: TTabSheet
      Caption = 'Edit Controls'
      ImageIndex = 5
      object Label2: TLabel
        Left = 270
        Top = 34
        Width = 150
        Height = 13
        Alignment = taCenter
        AutoSize = False
        Caption = '<- DBLookupComboboxEh ->'
      end
      object Label3: TLabel
        Left = 270
        Top = 60
        Width = 150
        Height = 13
        Alignment = taCenter
        AutoSize = False
        Caption = '<- DBDateTimeEditEh ->'
      end
      object Label4: TLabel
        Left = 270
        Top = 84
        Width = 150
        Height = 13
        Alignment = taCenter
        AutoSize = False
        Caption = '<- DBNumberEditEh ->'
      end
      object Label5: TLabel
        Left = 270
        Top = 108
        Width = 150
        Height = 13
        Alignment = taCenter
        AutoSize = False
        Caption = '<- DBEditEh ->'
      end
      object Label6: TLabel
        Left = 270
        Top = 134
        Width = 150
        Height = 13
        Alignment = taCenter
        AutoSize = False
        Caption = '<- DBComboBoxEh ->'
      end
      object Label12: TLabel
        Left = 4
        Top = 30
        Width = 94
        Height = 13
        Caption = 'CustNo -> Company'
      end
      object Label13: TLabel
        Left = 46
        Top = 56
        Width = 52
        Height = 13
        Caption = 'Sasle Date'
      end
      object Label14: TLabel
        Left = 49
        Top = 80
        Width = 49
        Height = 13
        Caption = 'ItemsTotal'
      end
      object Label15: TLabel
        Left = 57
        Top = 104
        Width = 41
        Height = 13