unit1.dfm

最新的 DBGRIDEH4.0

object Form1: TForm1
  Left = 374
  Top = 146
  AutoScroll = False
  Caption = 'Form1'
  ClientHeight = 515
  ClientWidth = 688
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Microsoft Sans Serif'
  Font.Style = []
  OldCreateOrder = True
  Position = poScreenCenter
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object Label7: TLabel
    Left = 28
    Top = 22
    Width = 114
    Height = 13
    Caption = 'DBLookupComboboxEh'
  end
  object Label8: TLabel
    Left = 28
    Top = 48
    Width = 92
    Height = 13
    Caption = 'DBDateTimeEditEh'
  end
  object Label9: TLabel
    Left = 28
    Top = 72
    Width = 83
    Height = 13
    Caption = 'DBNumberEditEh'
  end
  object Label10: TLabel
    Left = 28
    Top = 96
    Width = 46
    Height = 13
    Caption = 'DBEditEh'
  end
  object Label11: TLabel
    Left = 28
    Top = 122
    Width = 79
    Height = 13
    Caption = 'DBComboBoxEh'
  end
  object PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 688
    Height = 515
    ActivePage = TabSheet1
    Align = alClient
    PopupMenu = PopupMenu1
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = 'Grid1'
      object DBGridEh1: TDBGridEh
        Left = 0
        Top = 74
        Width = 680
        Height = 318
        Align = alClient
        AutoFitColWidths = True
        DataSource = DataModule1.DataSource1
        EditActions = [geaCutEh, geaCopyEh, geaPasteEh, geaDeleteEh, geaSelectAllEh]
        Flat = True
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'Microsoft Sans Serif'
        Font.Style = []
        FooterColor = clYellow
        FooterFont.Charset = DEFAULT_CHARSET
        FooterFont.Color = clWindowText
        FooterFont.Height = -11
        FooterFont.Name = 'Microsoft Sans Serif'
        FooterFont.Style = [fsBold]
        IndicatorTitle.ShowDropDownSign = True
        IndicatorTitle.TitleButton = True
        Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit, dgMultiSelect]
        OptionsEh = [dghFixed3D, dghResizeWholeRightPart, dghHighlightFocus, dghClearSelection, dghAutoSortMarking, dghMultiSortMarking, dghTraceColSizing, dghIncSearch, dghPreferIncSearch, dghRowHighlight, dghDblClickOptimizeColWidth, dghDialogFind]
        ParentFont = False
        ParentShowHint = False
        PopupMenu = PopupMenu1
        RowSizingAllowed = True
        ShowHint = True
        STFilter.Local = True
        STFilter.Visible = True
        SumList.Active = True
        SumList.VirtualRecords = True
        TabOrder = 0
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'Microsoft Sans Serif'
        TitleFont.Style = []
        TitleImages = DataModule1.ImageList1
        UseMultiTitle = True
        VertScrollBar.Tracking = True
        VTitleMargin = 5
        OnColWidthsChanged = DBGridEh1ColWidthsChanged
        OnKeyDown = DBGridEh1KeyDown
        OnTitleBtnClick = DBGridEh1TitleBtnClick
        Columns = <
          item
            AlwaysShowEditButton = True
            Checkboxes = False
            DropDownSizing = True
            EditButtons = <>
            FieldName = 'VNo'
            Footer.Value = 'Sum and count'
            Footer.ValueType = fvtStaticText
            Footers = <
              item
                Alignment = taLeftJustify
                Value = 'Sum of cost'
                ValueType = fvtStaticText
              end
              item
                Alignment = taLeftJustify
                Value = 'Record count'
                ValueType = fvtStaticText
              end>
            Title.TitleButton = True
            ToolTips = True
          end
          item
            AlwaysShowEditButton = True
            Checkboxes = False
            DropDownBox.ColumnDefValues.EndEllipsis = True
            DropDownBox.ColumnDefValues.Title.ToolTips = True
            DropDownBox.ColumnDefValues.ToolTips = True
            DropDownBox.Options = [dlgColumnResizeEh, dlgColLinesEh]
            DropDownBox.UseMultiTitle = True
            DropDownRows = 14
            DropDownShowTitles = True
            DropDownSizing = True
            DropDownSpecRow.CellsText = '<Empty>;<Null>;<Null>;<Null>'
            DropDownSpecRow.Font.Charset = DEFAULT_CHARSET
            DropDownSpecRow.Font.Color = clWindowText
            DropDownSpecRow.Font.Height = -11
            DropDownSpecRow.Font.Name = 'Microsoft Sans Serif'
            DropDownSpecRow.Font.Style = [fsBold]
            DropDownSpecRow.Visible = True
            DropDownWidth = -1
            EditButtons = <>
            FieldName = 'VName1'
            Footer.Alignment = taCenter
            Footer.ValueType = fvtCount
            Footers = <
              item
                Alignment = taCenter
                FieldName = 'PCost'
                ValueType = fvtSum
              end>
            LookupDisplayFields = 'VendorName;City;State;FAX'
            STFilter.DataField = 'VNo'
            STFilter.KeyField = 'VendorNo'
            STFilter.ListField = 'VendorName'
            STFilter.ListSource = DataModule1.dsVendors
            Title.Caption = 'Vendor of parts|Vendor Name|2'
            ToolTips = True
            Width = 139
            OnDropDownBoxGetCellParams = DBGridEh1Columns1DropDownBoxGetCellParams
          end
          item
            AlwaysShowEditButton = True
            Checkboxes = False
            DropDownSizing = True
            EditButtons = <>
            FieldName = 'PNo'
            Footers = <>
            Title.TitleButton = True
            ToolTips = True
          end
          item
            AlwaysShowEditButton = True
            Checkboxes = False
            DropDownSizing = True
            EditButtons = <>
            FieldName = 'PDescription'
            Footers = <
              item
                Value = 'Sum'
                ValueType = fvtStaticText
              end
              item
                Value = 'Vendor No'
                ValueType = fvtStaticText
              end>
            STFilter.DataField = 'PDescription'
            STFilter.KeyField = 'Description'
            STFilter.ListField = 'Description'
            STFilter.ListSource = DataModule1.dsPartsDescriprion
            Title.TitleButton = True
            ToolTips = True
            Width = 149
          end
          item
            AlwaysShowEditButton = True
            ButtonStyle = cbsUpDown
            Checkboxes = False
            DropDownSizing = True
            EditButtons = <>
            FieldName = 'PCost'
            Footer.ValueType = fvtSum
            Footers = <
              item
                ValueType = fvtSum
              end
              item
                FieldName = 'VNo'
                ValueType = fvtFieldValue
              end>
            Increment = 0.1
            Title.SortIndex = 1
            Title.SortMarker = smDownEh
            Title.TitleButton = True
            ToolTips = True
            Width = 89
          end
          item
            AlwaysShowEditButton = True
            Checkboxes = False
            DropDownSizing = True
            EditButtons = <>
            FieldName = 'IQty'
            Footers = <>
            Title.SortIndex = 2
            Title.SortMarker = smDownEh
            Title.TitleButton = True
            ToolTips = True
            Width = 41
          end
          item
            AlwaysShowEditButton = True
            Checkboxes = True
            DropDownSizing = True
            EditButtons = <>
            FieldName = 'VPreferred'
            Footers = <>
            NotInKeyListIndex = 2
            Title.Caption = 'Preferred'
            Title.Hint = 'Preferred'
            Title.ImageIndex = 0
            Title.TitleButton = True
            ToolTips = True
            Width = 20
          end>
      end
      object Panel1: TPanel
        Left = 0
        Top = 0
        Width = 680
        Height = 33
        Align = alTop
        BevelOuter = bvNone
        TabOrder = 1
        object bInpPreview: TButton
          Left = 236
          Top = 6
          Width = 133
          Height = 25
          Caption = 'Inplace preview'
          TabOrder = 0
          OnClick = bInpPreviewClick
        end
        object bPreview: TButton
          Left = 100
          Top = 6
          Width = 133
          Height = 25
          Caption = 'Preview'
          TabOrder = 1
          OnClick = bPreviewClick
        end
        object bOpenClose: TButton
          Left = 5
          Top = 6
          Width = 84
          Height = 25
          Caption = 'Close'
          TabOrder = 2
          OnClick = bOpenCloseClick
        end
        object cCustomPreview: TButton
          Left = 372
          Top = 6
          Width = 133
          Height = 25
          Caption = 'Custom preview as bitmap'
          TabOrder = 3
          OnClick = cCustomPreviewClick
        end
        object ToolBar1: TToolBar
          Left = 613
          Top = 0
          Width = 67
          Height = 33
          Align = alRight
          BorderWidth = 3
          EdgeBorders = []
          EdgeInner = esNone
          EdgeOuter = esNone
          Flat = True
          Images = DataModule1.ilArrows
          TabOrder = 5
          Wrapable = False
          object ToolButton1: TToolButton
            Left = 0
            Top = 0
            Caption = 'ToolButton1'
            Enabled = False
            ImageIndex = 0
            PopupMenu = pmNoVisibleCols
            Style = tbsDropDown
            OnClick = ToolButton1Click
          end
          object ToolButton2: TToolButton
            Left = 36
            Top = 0
            Caption = 'ToolButton2'
            ImageIndex = 1
            OnClick = ToolButton2Click
          end
        end
        object bbCopy: TBitBtn
          Left = 516
          Top = 6
          Width = 84
          Height = 25
          Hint = 'Copy selected area to clipboard'
          Caption = 'Copy'
          ParentShowHint = False
          ShowHint = True
          TabOrder = 4
          OnClick = bbCopyClick
          Glyph.Data = {
            26050000424D26050000000000003604000028000000100000000F0000000100
            080000000000F000000000000000000000000001000000010000000000000000
            80000080000000808000800000008000800080800000C0C0C000C0DCC000F0C8
            A400000000000000000000000000000000000000000000000000000000000000
            0000000000000000000000000000000000000000000000000000000000000000
            0000000000000000000000000000000000000000000000000000000000000000
            0000000000000000000000000000000000000000000000000000000000000000
            0000000000000000000000000000000000000000000000000000000000000000
            0000000000000000000000000000000000000000000000000000000000000000
            0000000000000000000000000000000000000000000000000000000000000000
            0000000000000000000000000000000000000000000000000000000000000000
            0000000000000000000000000000000000000000000000000000000000000000
            0000000000000000000000000000000000000000000000000000000000000000
            0000000000000000000000000000000000000000000000000000000000000000
            0000000000000000000000000000000000000000000000000000000000000000
            0000000000000000000000000000000000000000000000000000000000000000
            0000000000000000000000000000000000000000000000000000000000000000
            0000000000000000000000000000000000000000000000000000000000000000
            0000000000000000000000000000000000000000000000000000000000000000
            0000000000000000000000000000000000000000000000000000000000000000
            0000000000000000000000000000000000000000000000000000000000000000
            0000000000000000000000000000000000000000000000000000000000000000
            0000000000000000000000000000000000000000000000000000000000000000
            0000000000000000000000000000000000000000000000000000000000000000
            0000000000000000000000000000000000000000000000000000000000000000
            0000000000000000000000000000000000000000000000000000000000000000
            0000000000000000000000000000000000000000000000000000000000000000
            0000000000000000000000000000000000000000000000000000000000000000
            0000000000000000000000000000000000000000000000000000000000000000
            0000000000000000000000000000000000000000000000000000000000000000
            0000000000000000000000000000000000000000000000000000000000000000
            0000000000000000000000000000000000000000000000000000000000000000
            000000000000000000000000000000000000F0FBFF00A4A0A000808080000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00070707070707
            0707070707070707070707070707070704040404040404040407070707070707
            04FFFFFFFFFFFFFF040707070707070704FF0000000000FF0407000000000000
            04FFFFFFFFFFFFFF040700FFFFFFFFFF04FF0000000000FF040700FF00000000
            04FFFFFFFFFFFFFF040700FFFFFFFFFF04FF0000FF040404040700FF00000000
            04FFFFFFFF04FF04070700FFFFFFFFFF04FFFFFFFF040407070700FF0000FF00
            0404040404040707070700FFFFFFFF00FF00070707070707070700FFFFFFFF00
            0007070707070707070700000000000007070707070707070707070707070707
            07070707070707070707}
        end
      end
      object PreviewSetupPanel: TPanel
        Left = 0
        Top = 33
        Width = 680
        Height = 41
        Align = alTop
        BevelOuter = bvNone
        TabOrder = 2
        Visible = False
        object lPageinfo: TLabel
          Left = 608
          Top = 14
          Width = 55
          Height = 13
          Caption = 'Page 1 of 1'
        end
        object bPrint: TButton
          Left = 6
          Top = 8
          Width = 87
          Height = 25
          Caption = 'Print'
          TabOrder = 0
          OnClick = bPrintClick
        end
        object bPrinterSetup: TButton
          Left = 106
          Top = 8
          Width = 87
          Height = 25
          Caption = 'Printer setup'
          TabOrder = 1
          OnClick = bPrinterSetupClick
        end
        object bPrevPage: TButton
          Left = 206
          Top = 8
          Width = 87
          Height = 25
          Caption = '< Previous'
          TabOrder = 2
          OnClick = bPrevPageClick
        end
        object bNextPage: TButton
          Left = 306
          Top = 8
          Width = 87
          Height = 25
          Caption = 'Next >'
          TabOrder = 3
          OnClick = bNextPageClick
        end
        object bStop: TButton
          Left = 406
          Top = 8
          Width = 87
          Height = 25
          Caption = 'Stop'
          TabOrder = 4
          OnClick = bStopClick
        end
        object bClosePreview: TButton
          Left = 504
          Top = 8
          Width = 87
          Height = 25
          Caption = 'Close preview'