object Form1: TForm1
  Left = 297
  Top = 122
  Width = 600
  Height = 331
  Caption = 'Example of using Dynamic Properties'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  DesignSize = (
    584
    293)
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 456
    Top = 24
    Width = 31
    Height = 13
    Caption = 'Label1'
    Visible = False
  end
  object DBGridEh1: TDBGridEh
    Left = 8
    Top = 48
    Width = 558
    Height = 220
    Anchors = [akLeft, akTop, akRight, akBottom]
    DataSource = DataSource1
    DynProps = <>
    GridLineParams.DarkColor = clSilver
    GridLineParams.DataBoundaryColor = clSilver
    GridLineParams.GridBoundaries = True
    IndicatorOptions = [gioShowRowIndicatorEh]
    BackgroundData.Picture.Data = {
      [encoded data, 8576 characters]
      FFC003FF}
    TabOrder = 0
    TitleParams.BorderInFillStyle = True
    Columns = <
      item
        DynProps = <
          item
            Name = 'V1'
            Value = '2'
          end>
        EditButtons = <>
        FieldName = 'Continent'
        Footers = <>
        Width = 78
      end
      item
        DynProps = <
          item
            Name = 'V1'
            Value = '1'
          end
          item
            Name = 'V2'
            Value = 5
          end>
        EditButtons = <>
        FieldName = 'Name'
        Footers = <>
        Title.Caption = 'Name (V1=1) (V2=5)'
        Width = 116
      end
      item
        DynProps = <
          item
            Name = 'V1'
            Value = '1'
          end>
        EditButtons = <>
        FieldName = 'Capital'
        Footers = <>
        Title.Caption = 'Capital (V1=1)'
        Width = 105
      end
      item
        DynProps = <
          item
            Name = 'V2'
            Value = 5
          end>
        EditButtons = <>
        FieldName = 'Area'
        Footers = <>
        Title.Caption = 'Area (V2=5)'
      end
      item
        DynProps = <
          item
            Name = 'V1'
            Value = '1'
          end
          item
            Name = 'V2'
            Value = 6
          end>
        EditButtons = <>
        FieldName = 'Population'
        Footers = <>
        Title.Caption = 'Population (V1=1)'
        Width = 106
      end>
    object RowDetailData: TRowDetailPanelControlEh
    end
  end
  object Button6: TButton
    Left = 8
    Top = 16
    Width = 209
    Height = 25
    Caption = 'Set All '#39'V1'#39'=1 columns to clMoneyGreen'
    TabOrder = 1
    OnClick = Button6Click
  end
  object Button8: TButton
    Left = 224
    Top = 16
    Width = 209
    Height = 25
    Caption = 'Set All '#39'V2'#39'=5 columns to clMoneyGreen'
    TabOrder = 2
    OnClick = Button8Click
  end
  object MemTableEh1: TMemTableEh
    Active = True
    Params = <>
    Left = 528
    Top = 8
    object MemTableData: TMemTableDataEh
      object DataStruct: TMTDataStructEh
        object Name: TMTStringDataFieldEh
          FieldName = 'Name'
          StringDataType = fdtWideStringEh
          DisplayLabel = 'Name'
          DisplayWidth = 24
          Size = 24
          Transliterate = True
        end
        object Capital: TMTStringDataFieldEh
          FieldName = 'Capital'
          StringDataType = fdtWideStringEh
          DisplayLabel = 'Capital'
          DisplayWidth = 24
          Size = 24
          Transliterate = True
        end
        object Continent: TMTStringDataFieldEh
          FieldName = 'Continent'
          StringDataType = fdtWideStringEh
          DisplayLabel = 'Continent'
          DisplayWidth = 24
          Size = 24
          Transliterate = True
        end
        object Area: TMTNumericDataFieldEh
          FieldName = 'Area'
          NumericDataType = fdtFloatEh
          AutoIncrement = False
          DisplayLabel = 'Area'
          DisplayWidth = 10
          currency = False
          Precision = 15
        end
        object Population: TMTNumericDataFieldEh
          FieldName = 'Population'
          NumericDataType = fdtFloatEh
          AutoIncrement = False
          DisplayLabel = 'Population'
          DisplayWidth = 10
          currency = False
          Precision = 15
        end
      end
      object RecordsList: TRecordsListEh
        Data = (
          (
            'Argentina'
            'Buenos Aires8'
            'South America'
            2777815.000000000000000000
            32300003.000000000000000000)
          (
            'Bolivia'
            'La Paz'
            'South America'
            1098575.000000000000000000
            7300000.000000000000000000)
          (
            'Brazil'
            'Brasilia'
            'South America'
            8511196.000000000000000000
            150400000.000000000000000000)
          (
            'Canada'
            'Ottawa'
            'North America'
            9976147.000000000000000000
            26500000.000000000000000000)
          (
            'Chile'
            ' '
            ' '
            756943.000000000000000000
            13200000.000000000000000000)
          (
            'Colombia'
            'Bagota'
            'South America'
            1138907.000000000000000000
            33000000.000000000000000000)
          (
            'Cuba'
            'Havana'
            'North America'
            114524.000000000000000000
            10600000.000000000000000000)
          (
            'Ecuador'
            'Quito'
            'South America'
            455502.000000000000000000
            10600000.000000000000000000)
          (
            'El Salvador'
            'San Salvador'
            'North America'
            20865.000000000000000000
            5300000.000000000000000000)
          (
            'Guyana'
            'Georgetown'
            'South America'
            214969.000000000000000000
            800000.000000000000000000)
          (
            'Jamaica'
            'Kingston'
            'North America'
            11424.000000000000000000
            2500000.000000000000000000)
          (
            'Mexico'
            'Mexico City'
            'North America'
            1967180.000000000000000000
            88600000.000000000000000000)
          (
            'Nicaragua'
            'Managua'
            'North America'
            139000.000000000000000000
            3900000.000000000000000000)
          (
            'Paraguay'
            'Asuncion'
            'South America'
            406576.000000000000000000
            4660000.000000000000000000)
          (
            'Peru'
            'Lima'
            'South America'
            1285215.000000000000000000
            21600000.000000000000000000)
          (
            'United States of America'
            'Washington'
            'North America'
            9363130.000000000000000000
            249200000.000000000000000000)
          (
            'Uruguay'
            'Montevideo'
            'South America'
            176140.000000000000000000
            3002000.000000000000000000)
          (
            'Venezuela'
            'Caracas'
            'South America'
            912047.000000000000000000
            19700000.000000000000000000))
      end
    end
  end
  object DataSource1: TDataSource
    DataSet = MemTableEh1
    Left = 496
    Top = 8
  end
end
