object Form1: TForm1
  Left = 386
  Top = 131
  Width = 615
  Height = 640
  Caption = 'Form1'
  Color = clBtnFace
  ParentFont = True
  KeyPreview = True
  OldCreateOrder = False
  OnKeyDown = FormKeyDown
  DesignSize = (
    599
    602)
  PixelsPerInch = 96
  TextHeight = 13
  object DBGridEh1: TDBGridEh
    Left = 8
    Top = 56
    Width = 217
    Height = 301
    Anchors = [akLeft, akTop, akBottom]
    DataSource = DataSource1
    DynProps = <>
    FooterParams.Color = clWindow
    TabOrder = 0
    Columns = <
      item
        DynProps = <>
        EditButtons = <>
        FieldName = 'Name'
        Footers = <>
        Width = 96
      end
      item
        DynProps = <>
        EditButtons = <>
        FieldName = 'Capital'
        Footers = <>
      end
      item
        DynProps = <>
        EditButtons = <>
        FieldName = 'Continent'
        Footers = <>
      end
      item
        DynProps = <>
        EditButtons = <>
        FieldName = 'Area'
        Footers = <>
      end
      item
        DynProps = <>
        EditButtons = <>
        FieldName = 'Population'
        Footers = <>
      end>
    object RowDetailData: TRowDetailPanelControlEh
    end
  end
  object DBVertGridEh1: TDBVertGridEh
    Left = 240
    Top = 56
    Width = 344
    Height = 301
    AllowedSelections = []
    Anchors = [akLeft, akTop, akRight, akBottom]
    RowCategories.CategoryProps = <>
    PrintService.ColorSchema = pcsFullColorEh
    PrintService.PageFooter.LineType = pcltSingleLineEh
    PrintService.PageFooter.LeftText = 
      '{\rtf1\ansi\ansicpg1251\deff0\deflang1049{\fonttbl{\f0\fnil\fcha' +
      'rset204 Tahoma;}}'#13#10'\viewkind4\uc1\pard\f0\fs16 &[Time]'#13#10'\par }'#13#10 +
      #0
    PrintService.PageFooter.RightText = 
      '{\rtf1\ansi\ansicpg1251\deff0\deflang1049{\fonttbl{\f0\fnil\fcha' +
      'rset204 Tahoma;}}'#13#10'\viewkind4\uc1\pard\qr\f0\fs16 &[Date]'#13#10'\par ' +
      '}'#13#10#0
    PrintService.PageHeader.LineType = pcltSingleLineEh
    PrintService.PageHeader.LeftText = 
      '{\rtf1\ansi\ansicpg1251\deff0\deflang1049{\fonttbl{\f0\fnil\fcha' +
      'rset0 Tahoma;}{\f1\fnil\fcharset204 Tahoma;}}'#13#10'\viewkind4\uc1\pa' +
      'rd\lang2057\f0\fs16 Document Title\lang1049\f1 '#13#10'\par }'#13#10#0
    PrintService.PageHeader.RightText = 
      '{\rtf1\ansi\ansicpg1251\deff0\deflang1049{\fonttbl{\f0\fnil\fcha' +
      'rset0 Tahoma;}{\f1\fnil\fcharset204 Tahoma;}}'#13#10'\viewkind4\uc1\pa' +
      'rd\qr\lang2057\f0\fs16 Page \lang1049\f1 &[Page]\lang2057\f0  of' +
      ' \lang1049\f1 &[Pages]'#13#10'\par }'#13#10#0
    PrintService.PageMargins.Left = 0.708700000000000000
    PrintService.PageMargins.Right = 0.708700000000000000
    PrintService.PageMargins.Top = 0.748000000000000000
    PrintService.PageMargins.Bottom = 0.748000000000000000
    PrintService.PageMargins.Header = 0.315000000000000000
    PrintService.PageMargins.Footer = 0.315000000000000000
    PrintService.OnBeforePrintPage = DBVertGridEh1PrintServiceBeforePrintPage
    PrintService.OnBeforePrintPageContent = DBVertGridEh1PrintServiceBeforePrintPageContent
    PrintService.OnPrintDataBeforeGrid = DBVertGridEh1PrintServicePrintDataBeforeGrid
    PrintService.OnCalcLayoutDataBeforeGrid = DBVertGridEh1PrintServiceCalcLayoutDataBeforeGrid
    PrintService.OnAfterPrintPage = DBVertGridEh1PrintServiceAfterPrintPage
    PrintService.OnAfterPrintPageContent = DBVertGridEh1PrintServiceAfterPrintPageContent
    DataSource = DataSource1
    DrawGraphicData = True
    DrawMemoText = True
    TabOrder = 1
    LabelColWidth = 107
  end
  object DBRichEditEh1: TDBRichEditEh
    Left = 248
    Top = 399
    Width = 329
    Height = 50
    Anchors = [akLeft, akBottom]
    EditButtons = <>
    ParentFont = True
    TabOrder = 2
    RtfText = 
      '{\rtf1\ansi\ansicpg1251\deff0\deflang1049{\fonttbl{\f0\fswiss\fp' +
      'rq2\fcharset204 Calibri;}{\f1\fnil MS Sans Serif;}}'#13#10'\viewkind4\' +
      'uc1\pard\lang1033\f0\fs24 Component \b TDBVertGridEh \b0 is a vi' +
      'sual component such like a vertical grid. The component is used ' +
      'to display and edit a single DataSet record in a vertical orient' +
      'ation. The data is displayed in two columns. The first column di' +
      'splays the names of the fields and the second column show values' +
      ' \u8203?\u8203?of the current record.'#13#10'\par \lang1049\f1\fs16 '#13#10 +
      '\par }'#13#10#0
  end
  object DBRichEditEh2: TDBRichEditEh
    Left = 248
    Top = 478
    Width = 329
    Height = 50
    Anchors = [akLeft, akBottom]
    EditButtons = <>
    ParentFont = True
    TabOrder = 3
    RtfText = 
      '{\rtf1\ansi\ansicpg1251\deff0\deflang1049{\fonttbl{\f0\fswiss\fp' +
      'rq2\fcharset204 Calibri;}{\f1\fnil MS Sans Serif;}}'#13#10'\viewkind4\' +
      'uc1\pard\qj\lang1033\b\f0\fs24 '#13#10'\par TDBVertGridEh \b0 and \b T' +
      'DBGridEh \b0 components have a common ancestor - TCustomDBAxisGr' +
      'idEh and have similar functionality. TDBGridEh component can be ' +
      'regarded as a table with a horizontal display of records and TDB' +
      'VertGridEh as vertical. In the current version of EhLib TDBVertG' +
      'ridEh can display only one record on the screen.'#13#10'\par '#13#10'\par \p' +
      'ard\lang1049\f1\fs16 '#13#10'\par }'#13#10#0
  end
  object Button1: TButton
    Left = 240
    Top = 16
    Width = 153
    Height = 25
    Caption = 'Preview'
    TabOrder = 4
    OnClick = Button1Click
  end
  object cbFillPageBack: TDBCheckBoxEh
    Left = 16
    Top = 375
    Width = 217
    Height = 17
    Anchors = [akLeft, akBottom]
    Caption = 'Fill page background by Text'
    DynProps = <>
    TabOrder = 5
  end
  object cbFillPageFront: TDBCheckBoxEh
    Left = 16
    Top = 399
    Width = 217
    Height = 17
    Anchors = [akLeft, akBottom]
    Caption = 'Fill page foreground by Text'
    DynProps = <>
    TabOrder = 6
  end
  object cbFillContentBack: TDBCheckBoxEh
    Left = 16
    Top = 478
    Width = 217
    Height = 17
    Anchors = [akLeft, akBottom]
    Caption = 'Fill page content background by Text'
    DynProps = <>
    TabOrder = 7
  end
  object cbFillContentFront: TDBCheckBoxEh
    Left = 16
    Top = 502
    Width = 217
    Height = 17
    Anchors = [akLeft, akBottom]
    Caption = 'Fill page content foreground by Text'
    DynProps = <>
    TabOrder = 8
  end
  object DBImageEh1: TDBImageEh
    Left = 248
    Top = 535
    Width = 65
    Height = 57
    Anchors = [akLeft, akBottom]
    DynProps = <>
    Picture.Data = {
      [encoded data, 453568 characters]
      FFFFFFFFFFFFFF000000}
    TabOrder = 9
  end
  object cbRichTextBeforeGrid: TDBCheckBoxEh
    Left = 248
    Top = 376
    Width = 217
    Height = 17
    Anchors = [akLeft, akBottom]
    Caption = 'Print Rich Text before the Grid'
    DynProps = <>
    TabOrder = 10
  end
  object cbRichTextAfterGrid: TDBCheckBoxEh
    Left = 248
    Top = 456
    Width = 217
    Height = 17
    Anchors = [akLeft, akBottom]
    Caption = 'Print Rich Text After the Grid'
    DynProps = <>
    TabOrder = 11
  end
  object cbPrintCustDataBeforeGrid: TDBCheckBoxEh
    Left = 16
    Top = 552
    Width = 217
    Height = 17
    Anchors = [akLeft, akBottom]
    Caption = 'Print custom Data before the Grid'
    DynProps = <>
    TabOrder = 12
  end
  object MemTableEh1: TMemTableEh
    Active = True
    Params = <>
    Left = 40
    Top = 65528
    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 Aires'
            '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'
            'Santiago'
            'South America'
            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 = 72
    Top = 65528
  end
end
