object frCellDataIsLink: TfrCellDataIsLink
  Left = 0
  Top = 0
  Width = 829
  Height = 661
  TabOrder = 0
  object Panel1: TPanel
    Left = 0
    Top = 0
    Width = 829
    Height = 33
    Align = alTop
    BevelOuter = bvNone
    ParentBackground = False
    TabOrder = 0
    object PaintBox1: TPaintBox
      Left = 0
      Top = 0
      Width = 829
      Height = 33
      Align = alClient
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clNavy
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      OnPaint = PaintBox1Paint
    end
    object Label1: TLabel
      Left = 22
      Top = 4
      Width = 174
      Height = 23
      Caption = 'Cell Data Is a Link'
      Font.Charset = ANSI_CHARSET
      Font.Color = clNavy
      Font.Height = -19
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentFont = False
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 33
    Width = 829
    Height = 628
    Align = alClient
    BevelOuter = bvNone
    Caption = 'Panel2'
    TabOrder = 1
    object Splitter1: TSplitter
      Left = 547
      Top = 0
      Width = 8
      Height = 628
      Align = alRight
    end
    object DBGridEh1: TDBGridEh
      Left = 0
      Top = 0
      Width = 547
      Height = 628
      Align = alClient
      ColumnDefValues.Layout = tlCenter
      DataSource = DataSource1
      DynProps = <>
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      FooterParams.Color = clWindow
      IndicatorOptions = [gioShowRowIndicatorEh]
      ParentFont = False
      TabOrder = 0
      Columns = <
        item
          Alignment = taCenter
          CellDataIsLink = True
          DynProps = <>
          EditButtons = <>
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          Footers = <>
          TextEditing = False
          Title.Caption = 'Edit'
          OnCellDataLinkClick = DBGridEh1Columns0CellDataLinkClick
          OnGetCellParams = DBGridEh1Columns0GetCellParams
        end
        item
          CellDataIsLink = True
          DynProps = <>
          EditButtons = <>
          Footers = <>
          ImageList = ImageList1
          Title.Caption = 'Edit button'
          Width = 71
          OnCellDataLinkClick = DBGridEh1Columns1CellDataLinkClick
          OnGetCellParams = DBGridEh1Columns1GetCellParams
        end
        item
          Alignment = taRightJustify
          CellDataIsLink = True
          DynProps = <>
          EditButtons = <>
          FieldName = 'Name'
          Footers = <>
          ImageList = ImageList2
          ShowImageAndText = True
          Width = 96
          OnCellDataLinkClick = DBGridEh1Columns2CellDataLinkClick
          OnGetCellParams = DBGridEh1Columns2GetCellParams
        end
        item
          CellDataIsLink = True
          DynProps = <>
          EditButtons = <>
          FieldName = 'WikiLinkShow'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          Footers = <>
          TextEditing = False
          Title.Caption = 'Wiki Link'
          Width = 170
          OnCellDataLinkClick = DBGridEh1Columns3CellDataLinkClick
        end
        item
          CellDataIsLink = True
          DynProps = <>
          EditButtons = <>
          FieldName = 'Capital'
          Footers = <>
          Width = 96
          OnCellDataLinkClick = DBGridEh1Columns4CellDataLinkClick
          OnGetCellParams = DBGridEh1Columns4GetCellParams
        end
        item
          DynProps = <>
          EditButtons = <>
          FieldName = 'Continent'
          Footers = <>
          Width = 110
        end
        item
          DynProps = <>
          EditButtons = <>
          FieldName = 'Area'
          Footers = <>
        end
        item
          DynProps = <>
          EditButtons = <>
          FieldName = 'Population'
          Footers = <>
        end>
      object RowDetailData: TRowDetailPanelControlEh
      end
    end
    object DBVertGridEh1: TDBVertGridEh
      Left = 555
      Top = 0
      Width = 274
      Height = 628
      Align = alRight
      AllowedSelections = []
      RowCategories.CategoryProps = <>
      DataSource = DataSource1
      DrawGraphicData = True
      DrawMemoText = True
      FixedColor = 16316664
      GridLineParams.ColorScheme = glcsThemedEh
      Options = [dgvhEditing, dgvhLabelCol, dgvhColLines, dgvhRowLines, dgvhTabs, dgvhConfirmDelete, dgvhCancelOnExit]
      TabOrder = 1
      LabelColWidth = 67
      Rows = <
        item
          CellDataIsLink = True
          DynProps = <>
          EditButtons = <>
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          TextEditing = False
          OnGetCellParams = DBVertGridEh1Rows0GetCellParams
          OnCellDataLinkClick = DBVertGridEh1Rows0CellDataLinkClick
        end
        item
          CellDataIsLink = True
          DynProps = <>
          EditButtons = <>
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          ImageList = ImageList1
          OnGetCellParams = DBVertGridEh1Rows0GetCellParams
          OnCellDataLinkClick = DBVertGridEh1Rows1CellDataLinkClick
        end
        item
          CellDataIsLink = True
          DynProps = <>
          EditButtons = <>
          FieldName = 'Name'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          ImageList = ImageList2
          ShowImageAndText = True
          OnGetCellParams = DBVertGridEh1Rows2GetCellParams
          OnCellDataLinkClick = DBVertGridEh1Rows2CellDataLinkClick
        end
        item
          DynProps = <>
          EditButtons = <>
          FieldName = 'Capital'
        end
        item
          DynProps = <>
          EditButtons = <>
          FieldName = 'Continent'
        end
        item
          DynProps = <>
          EditButtons = <>
          FieldName = 'Area'
        end
        item
          DynProps = <>
          EditButtons = <>
          FieldName = 'Population'
        end
        item
          CellDataIsLink = True
          DynProps = <>
          EditButtons = <>
          FieldName = 'WikiLinkShow'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clNavy
          Font.Height = -11
          Font.Name = 'Tahoma'
          Font.Style = []
          OnCellDataLinkClick = DBVertGridEh1Rows7CellDataLinkClick
        end>
    end
  end
  object MemTableEh1: TMemTableEh
    Active = True
    Params = <>
    Left = 56
    Top = 296
    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
        object WikiLinkShow: TMTStringDataFieldEh
          FieldName = 'WikiLinkShow'
          StringDataType = fdtStringEh
          DisplayWidth = 20
          Size = 512
        end
        object WikiLinkData: TMTStringDataFieldEh
          FieldName = 'WikiLinkData'
          StringDataType = fdtStringEh
          DisplayWidth = 20
          Size = 512
        end
        object CapitalWWWLink: TMTStringDataFieldEh
          FieldName = 'CapitalWWWLink'
          StringDataType = fdtStringEh
          DisplayWidth = 20
          Size = 512
        end
        object FlagIndex: TMTNumericDataFieldEh
          FieldName = 'FlagIndex'
          NumericDataType = fdtIntegerEh
          AutoIncrement = False
          DisplayWidth = 20
          currency = False
          Precision = 15
        end
      end
      object RecordsList: TRecordsListEh
        Data = (
          (
            'Argentina'
            'Buenos Aires'
            'South America'
            2777815.000000000000000000
            32300003.000000000000000000
            'wikipedia.org/wiki/Argentina'
            'https://en.wikipedia.org/wiki/Argentina'
            nil
            6)
          (
            'Bolivia'
            'La Paz'
            'South America'
            1098575.000000000000000000
            7300000.000000000000000000
            'wikipedia.org/wiki/Bolivia'
            'http://en.wikipedia.org/wiki/Bolivia'
            nil
            1)
          (
            'Brazil'
            'Brasilia'
            'South America'
            8511196.000000000000000000
            150400000.000000000000000000
            'wikipedia.org/wiki/Brazil'
            'http://en.wikipedia.org/wiki/Brazil'
            nil
            0)
          (
            'Canada'
            'Ottawa'
            'North America'
            9976147.000000000000000000
            26500000.000000000000000000
            'wikipedia.org/wiki/Canada'
            'http://en.wikipedia.org/wiki/Canada'
            'http://wikitravel.org/en/Ottawa'
            11)
          (
            'Chile'
            'Santiago'
            'South America'
            756943.000000000000000000
            13200000.000000000000000000
            nil
            nil
            nil
            2)
          (
            'Colombia'
            'Bagota'
            'South America'
            1138907.000000000000000000
            33000000.000000000000000000
            nil
            nil
            nil
            3)
          (
            'Cuba'
            'Havana'
            'North America'
            114524.000000000000000000
            10600000.000000000000000000
            nil
            nil
            nil
            12)
          (
            'Ecuador'
            'Quito'
            'South America'
            455502.000000000000000000
            10600000.000000000000000000
            nil
            nil
            nil
            14)
          (
            'El Salvador'
            'San Salvador'
            'North America'
            20865.000000000000000000
            5300000.000000000000000000
            nil
            nil
            nil
            9)
          (
            'Guyana'
            'Georgetown'
            'South America'
            214969.000000000000000000
            800000.000000000000000000
            nil
            nil
            nil
            7)
          (
            'Jamaica'
            'Kingston'
            'North America'
            11424.000000000000000000
            2500000.000000000000000000
            nil
            nil
            nil
            13)
          (
            'Mexico'
            'Mexico City'
            'North America'
            1967180.000000000000000000
            88600000.000000000000000000
            nil
            nil
            nil
            8)
          (
            'Nicaragua'
            'Managua'
            'North America'
            139000.000000000000000000
            3900000.000000000000000000
            nil
            nil
            nil
            15)
          (
            'Paraguay'
            'Asuncion'
            'South America'
            406576.000000000000000000
            4660000.000000000000000000
            nil
            nil
            nil
            16)
          (
            'Peru'
            'Lima'
            'South America'
            1285215.000000000000000000
            21600000.000000000000000000
            nil
            nil
            nil
            4)
          (
            'United States of America'
            'Washington'
            'North America'
            9363130.000000000000000000
            249200000.000000000000000000
            nil
            nil
            nil
            10)
          (
            'Uruguay'
            'Montevideo'
            'South America'
            176140.000000000000000000
            3002000.000000000000000000
            nil
            nil
            nil
            5)
          (
            'Venezuela'
            'Caracas'
            'South America'
            912047.000000000000000000
            19700000.000000000000000000
            nil
            nil
            nil
            17))
      end
    end
  end
  object DataSource1: TDataSource
    DataSet = MemTableEh1
    Left = 88
    Top = 296
  end
  object ADOTable1: TADOTable
    ConnectionString = 
      'FILE NAME=C:\Program Files (x86)\Common Files\System\OLE DB\Data' +
      ' Links\DBDEMOS.udl'
    CursorType = ctStatic
    TableName = 'country'
    Left = 184
    Top = 304
  end
  object ImageList1: TImageList
    Height = 15
    Width = 50
    Left = 264
    Top = 312
    Bitmap = {
      [encoded data, 25152 characters]
      00000000000000000000}
  end
  object ImageList2: TImageList
    Left = 264
    Top = 360
    Bitmap = {
      [encoded data, 42560 characters]
      000000000000}
  end
end
