Componentes.Terceros.DevExpressVCL/official/x.38/ExpressMasterView/Demos/CBuilder/SelfRef/main.dfm

object fmMain: TfmMain
  Left = 226
  Top = 108
  Width = 732
  Height = 582
  Caption = 'ExpressMasterView - Self-referenced table demo'
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  PixelsPerInch = 96
  TextHeight = 13
  object MasterView: TdxMasterView
    Left = 0
    Top = 0
    Width = 724
    Height = 488
    Align = alClient
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    OptionsView = [movAnimation, movAutoColumnWidth, movHideFocusRect, movKeepColumnWidths, movTransparentDragAndDrop, movUseBitmapToDrawPreview]
    object MasterViewStyle1: TdxMasterViewStyle
      Color = 16777088
      AssignedValues = [svColor]
    end
    object MasterViewStyle2: TdxMasterViewStyle
      AnotherColor = 13434828
      Color = 8453888
      AssignedValues = [svAnotherColor, svColor]
    end
    object MasterViewStyle3: TdxMasterViewStyle
      Color = clYellow
      AssignedValues = [svColor]
    end
    object MasterViewStyle4: TdxMasterViewStyle
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      AssignedValues = [svFont]
    end
    object MasterViewStyle5: TdxMasterViewStyle
      AnotherColor = 8453888
      Color = 13434828
      AssignedValues = [svAnotherColor, svColor]
    end
    object lvlProducts: TdxMasterViewLevel
      Caption = 'Products'
      ContentStyle = MasterViewStyle1
      DataSource = DataSource1
      ID = 'Pr_id'
      LevelSeparatorWidth = 1
      OptionsView = [lovGridWithPreview, lovOccupyRestSpace]
      RowSeparatorWidth = 1
      OnFilterRecord = lvlProductsFilterRecord
      object lvlProductsPr_name: TdxMasterViewColumn
        FieldName = 'Pr_name'
        RowIndex = 0
        ColIndex = 0
        RowCount = 2
        Width = 144
      end
      object lvlProductsPr_info: TdxMasterViewColumn
        FieldName = 'Pr_info'
        MultiLine = True
        RowIndex = 0
        ColIndex = 1
        RowCount = 2
        Width = 508
      end
      object lvlControls: TdxMasterViewLevel
        Caption = 'Controls'
        ContentStyle = MasterViewStyle2
        DataSource = DataSource1
        DetailKey = 'Pr_parent'
        ID = 'Pr_id'
        LevelSeparatorWidth = 1
        MasterKey = 'Pr_id'
        OptionsView = [lovGridWithPreview, lovOccupyRestSpace]
        object lvlControlsPr_name: TdxMasterViewColumn
          FieldName = 'Pr_name'
          RowIndex = 0
          ColIndex = 0
          RowCount = 2
          Width = 114
        end
        object lvlControlsPr_info: TdxMasterViewColumn
          ContentStyle = MasterViewStyle5
          FieldName = 'Pr_info'
          MultiLine = True
          RowIndex = 0
          ColIndex = 1
          RowCount = 2
          Width = 519
        end
        object lvlComponents: TdxMasterViewLevel
          Caption = 'Components'
          ContentStyle = MasterViewStyle3
          DataSource = DataSource1
          DetailKey = 'Pr_parent'
          ID = 'Pr_id'
          MasterKey = 'Pr_id'
          OptionsView = [lovGridWithPreview, lovOccupyRestSpace]
          object lvlComponentsPr_name: TdxMasterViewColumn
            ContentStyle = MasterViewStyle4
            FieldName = 'Pr_name'
            RowIndex = 0
            ColIndex = 0
            Width = 171
          end
          object lvlComponentsPr_info: TdxMasterViewColumn
            FieldName = 'Pr_info'
            MultiLine = True
            RowIndex = 0
            ColIndex = 1
            Width = 461
          end
        end
      end
    end
  end
  object plBottom: TPanel
    Left = 0
    Top = 488
    Width = 724
    Height = 67
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 1
    object btnFullCollapse: TButton
      Left = 96
      Top = 16
      Width = 75
      Height = 25
      Caption = 'FullCollapse'
      TabOrder = 0
      OnClick = btnFullCollapseClick
    end
    object btnFullExpand: TButton
      Left = 16
      Top = 16
      Width = 75
      Height = 25
      Caption = 'FullExpand'
      TabOrder = 1
      OnClick = btnFullExpandClick
    end
    object Customize: TButton
      Left = 208
      Top = 16
      Width = 75
      Height = 25
      Caption = 'Customize'
      TabOrder = 2
      OnClick = CustomizeClick
    end
  end
  object DataSource1: TDataSource
    DataSet = Table1
    Left = 524
    Top = 28
  end
  object Table1: TTable
    Active = True
    DatabaseName = '..\SelfRef'
    FieldDefs = <
      item
        Name = 'Pr_id'
        DataType = ftInteger
        Precision = 0
        Required = False
        Size = 0
      end
      item
        Name = 'Pr_parent'
        DataType = ftInteger
        Precision = 0
        Required = False
        Size = 0
      end
      item
        Name = 'Pr_name'
        DataType = ftString
        Precision = 0
        Required = False
        Size = 50
      end
      item
        Name = 'Pr_bdate'
        DataType = ftDate
        Precision = 0
        Required = False
        Size = 0
      end
      item
        Name = 'Pr_edate'
        DataType = ftDate
        Precision = 0
        Required = False
        Size = 0
      end
      item
        Name = 'Pr_info'
        DataType = ftMemo
        Precision = 0
        Required = False
        Size = 1
      end>
    IndexDefs = <
      item
        Options = [ixPrimary, ixUnique]
        Fields = 'Pr_id'
      end
      item
        Name = 'Parent'
        Options = [ixCaseInsensitive]
        Fields = 'Pr_parent'
      end>
    IndexFieldNames = 'Pr_parent'
    StoreDefs = True
    TableName = 'Project.db'
    Left = 552
    Top = 28
  end
end