sqldriverediteh.dfm

最新的 DBGRIDEH4.0

object SQLDataEditWin: TSQLDataEditWin
  Left = 359
  Top = 159
  AutoScroll = False
  Caption = 'Edit SQLDataDriver'
  ClientHeight = 516
  ClientWidth = 692
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnClose = FormClose
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Splitter3: TSplitter
    Left = 0
    Top = 388
    Width = 692
    Height = 4
    Cursor = crVSplit
    Align = alBottom
    ResizeStyle = rsUpdate
  end
  object Panel1: TPanel
    Left = 0
    Top = 392
    Width = 692
    Height = 124
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 0
    object DBGridEh1: TDBGridEh
      Left = 0
      Top = 0
      Width = 692
      Height = 82
      Align = alClient
      ColumnDefValues.AlwaysShowEditButton = True
      ColumnDefValues.Title.ToolTips = True
      ColumnDefValues.ToolTips = True
      ContraColCount = 0
      DataSource = DataSource1
      DrawMemoText = True
      EditActions = [geaCutEh, geaCopyEh, geaPasteEh, geaDeleteEh, geaSelectAllEh]
      Flat = True
      FooterColor = clWindow
      FooterFont.Charset = DEFAULT_CHARSET
      FooterFont.Color = clWindowText
      FooterFont.Height = -11
      FooterFont.Name = 'Tahoma'
      FooterFont.Style = []
      HorzScrollBar.Tracking = True
      Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit, dgMultiSelect]
      OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghTraceColSizing, dghIncSearch, dghRowHighlight, dghDblClickOptimizeColWidth]
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      FooterFont.Name = 'Tahoma'
      TitleFont.Style = []
      VertScrollBar.Tracking = True
    end
    object StatusBar1: TStatusBar
      Left = 0
      Top = 82
      Width = 692
      Height = 42
      Panels = <>
      ParentColor = True
      SimplePanel = False
    end
    object Button1: TButton
      Left = 617
      Top = 96
      Width = 62
      Height = 24
      Anchors = [akRight, akBottom]
      Caption = 'Cancel'
      ModalResult = 2
      TabOrder = 2
    end
    object Button2: TButton
      Left = 551
      Top = 96
      Width = 61
      Height = 24
      Anchors = [akRight, akBottom]
      Caption = 'Ok'
      ModalResult = 1
      TabOrder = 3
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 0
    Width = 692
    Height = 388
    Align = alClient
    BevelOuter = bvNone
    Caption = 'Panel2'
    TabOrder = 1
    object Splitter1: TSplitter
      Left = 127
      Top = 0
      Width = 4
      Height = 388
      Cursor = crHSplit
      ResizeStyle = rsUpdate
    end
    object Panel6: TPanel
      Left = 0
      Top = 0
      Width = 127
      Height = 388
      Align = alLeft
      BevelOuter = bvNone
      Caption = 'Panel6'
      TabOrder = 0
      object Splitter4: TSplitter
        Left = 0
        Top = 266
        Width = 127
        Height = 5
        Cursor = crVSplit
        Align = alBottom
        ResizeStyle = rsUpdate
      end
      object Panel7: TPanel
        Left = 0
        Top = 0
        Width = 127
        Height = 20
        Align = alTop
        BevelOuter = bvNone
        TabOrder = 0
        object sbRefreshTree: TSpeedButton
          Left = 108
          Top = 2
          Width = 15
          Height = 17
          Hint = 'Refresh schema'
          Flat = True
          Glyph.Data = {
            76010000424D7601000000000000760000002800000020000000100000000100
            04000000000000010000130B0000130B00001000000000000000000000000000
            800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
            3333333333FFFFF3333333333999993333333333F77777FFF333333999999999
            3333333777333777FF33339993707399933333773337F3777FF3399933000339
            9933377333777F3377F3399333707333993337733337333337FF993333333333
            399377F33333F333377F993333303333399377F33337FF333373993333707333
            333377F333777F333333993333101333333377F333777F3FFFFF993333000399
            999377FF33777F77777F3993330003399993373FF3777F37777F399933000333
            99933773FF777F3F777F339993707399999333773F373F77777F333999999999
            3393333777333777337333333999993333333333377777333333}
          NumGlyphs = 2
          ParentShowHint = False
          ShowHint = True
          OnClick = sbRefreshTreeClick
        end
        object DBEditEh1: TDBEditEh
          Left = 2
          Top = 2
          Width = 105
          Height = 19
          EditButtons = <
            item
              Style = ebsEllipsisEh
              OnClick = DBEditEh1EditButtons0Click
            end
            item
              OnClick = DBEditEh1EditButtons1Click
            end>
          Flat = True
          TabOrder = 0
          Text = 'DataBaseName'
          Visible = True
        end
      end
      object gridTreeDetail: TDBGridEh
        Left = 0
        Top = 271
        Width = 127
        Height = 117
        Align = alBottom
        ColumnDefValues.Title.ToolTips = True
        ColumnDefValues.ToolTips = True
        ContraColCount = 0
        DataSource = dsTreeDetail
        DrawMemoText = True
        Flat = True
        FooterColor = clWindow
        FooterFont.Charset = DEFAULT_CHARSET
        FooterFont.Color = clWindowText
        FooterFont.Height = -11
        FooterFont.Name = 'Tahoma'
        FooterFont.Style = []
        HorzScrollBar.Tracking = True
        Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
        OptionsEh = [dghFixed3D, dghResizeWholeRightPart, dghHighlightFocus, dghClearSelection, dghAutoSortMarking, dghMultiSortMarking, dghIncSearch, dghRowHighlight, dghDblClickOptimizeColWidth]
        ParentShowHint = False
        ShowHint = True
        TabOrder = 1
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'Tahoma'
        TitleFont.Style = []
        VertScrollBar.Tracking = True
      end
      object gridDBTree: TDBGridEh
        Left = 0
        Top = 20
        Width = 127
        Height = 246
        Align = alClient
        ColumnDefValues.Title.ToolTips = True
        ColumnDefValues.ToolTips = True
        ContraColCount = 0
        DataSource = dsDBTree
        DrawMemoText = True
        Flat = True
        FooterColor = clWindow
        FooterFont.Charset = DEFAULT_CHARSET
        FooterFont.Color = clWindowText
        FooterFont.Height = -11
        FooterFont.Name = 'Tahoma'
        FooterFont.Style = []
        HorzScrollBar.Tracking = True
        Options = [dgTitles, dgColumnResize, dgColLines, dgTabs, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
        OptionsEh = [dghFixed3D, dghResizeWholeRightPart, dghHighlightFocus, dghClearSelection, dghAutoSortMarking, dghMultiSortMarking, dghIncSearch, dghRowHighlight, dghDblClickOptimizeColWidth]
        ParentShowHint = False
        ShowHint = True
        STFilter.Local = True
        STFilter.Visible = True
        TabOrder = 2
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'Tahoma'
        TitleFont.Style = []
        VertScrollBar.Tracking = True
        OnMouseDown = gridDBTreeMouseDown
        OnStartDrag = gridDBTreeStartDrag
        Columns = <
          item
            EditButtons = <>
            FieldName = 'Name'
            Footers = <>
            ImageList = ImageList2
            ShowImageAndText = True
            Width = 119
            OnGetCellParams = gridDBTreeColumns0GetCellParams
          end
          item
            EditButtons = <>
            FieldName = 'ChieldCount'
            Footers = <>
            Width = 27
          end
          item
            EditButtons = <>
            FieldName = 'Description'
            Footers = <>
            Width = 3505
          end
          item
            EditButtons = <>
            FieldName = 'Id'
            Footers = <>
            Width = 74
          end
          item
            EditButtons = <>
            FieldName = 'RefParent'
            Footers = <>
            Width = 73
          end
          item
            EditButtons = <>
            FieldName = 'RefData'
            Footers = <>
            Width = 74
          end
          item
            EditButtons = <>
            FieldName = 'ImageIndex'
            Footers = <>
            Width = 52
          end>
      end
    end
    object Panel3: TPanel
      Left = 131
      Top = 0
      Width = 561
      Height = 388
      Align = alClient
      BevelOuter = bvNone
      Caption = 'Panel3'
      TabOrder = 1
      object PageControl1: TPageControl
        Left = 0
        Top = 0
        Width = 561
        Height = 388
        ActivePage = TabSheet1
        Align = alClient
        MultiLine = True
        Style = tsFlatButtons
        TabOrder = 0
        object TabSheet1: TTabSheet
          Caption = 'Select'
          object Splitter2: TSplitter
            Left = 390
            Top = 0
            Width = 4
            Height = 357
            Cursor = crHSplit
            Align = alRight
            ResizeStyle = rsUpdate
            OnCanResize = Splitter2CanResize
          end
          object PanelParams: TPanel
            Left = 394
            Top = 0
            Width = 159
            Height = 357
            Align = alRight
            BevelOuter = bvNone
            BevelWidth = 5
            BiDiMode = bdLeftToRight
            Caption = 'Panel2'
            ParentBiDiMode = False
            TabOrder = 0
            object gridParams: TDBGridEh
              Left = 0
              Top = 0
              Width = 159
              Height = 357
              Align = alClient
              ColumnDefValues.AlwaysShowEditButton = True
              ColumnDefValues.Title.ToolTips = True
              ColumnDefValues.ToolTips = True
              ContraColCount = 0
              DataSource = dsParams
              Flat = True
              FooterColor = clWindow
              FooterFont.Charset = DEFAULT_CHARSET
              FooterFont.Color = clWindowText
              FooterFont.Height = -11