object formMain: TformMain
  Width = 1069
  Height = 770
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Arial'
  Font.Style = []
  FormContainer = 'appcontainer'
  ParentFont = False
  OnCreate = WebFormCreate
  OnShow = WebFormShow
  object WebPageControl: TWebPageControl
    Left = 0
    Top = 0
    Width = 1069
    Height = 770
    ElementClassName = 'nav nav-tabs'
    Align = alClient
    TabIndex = 1
    TabOrder = 0
    OnChange = WebPageControlChange
    object WebPageControlOver: TWebTabSheet
      Left = 0
      Top = 20
      Width = 1069
      Height = 750
      Caption = 'OVER DE LANDELIJKE VEGETATIE DATABANK'
      DesignSize = (
        1069
        750)
      object WebHTMLContainerIntro: TWebHTMLContainer
        Left = 15
        Top = -3
        Width = 801
        Height = 726
        ElementClassName = 'div_container'
        Anchors = [akLeft, akTop, akBottom]
        ChildOrder = 1
        HTML.Strings = (
          '<table border="0" width="100%">'
          '<tr colspan="2"><td></td></tr>'
          '<tr>'
          
            '<td valign="top"><a href="doc/schattenvoordenatuur.pdf" target="' +
            '_blank" title="Download deze publicatie"><img src="img/schattenv' +
            'oordenatuur.jpg" width="220" '
          'height="258"></a><td>'
          '<td>'
          '<p class="intro">'
          
            'De Landelijke Vegetatie Databank (LVD) is een gegevensbestand ov' +
            'er de plantengroei van Nederland. In dit omvangrijke archief zij' +
            'n ongeveer 650.000 recente en '
          
            'historische vegetatiebeschrijvingen, zogenaamde vegetatieopnamen' +
            ', in geautomatiseerde vorm bijeengebracht. De gegevens weerspieg' +
            'elen ruim vijfenzeventig jaar '
          
            'vegetatiekundig veldonderzoek en hebben betrekking op de gehele ' +
            'verscheidenheid van begroeiingstypen. Ze omvatten zowel aquatisc' +
            'he als terrestrische begroeiingen, '
          
            'goed ontwikkelde plantengemeenschappen maar ook verarmde gemeens' +
            'chappen. De waarnemingen betreffen zowel het cultuurlandschap al' +
            's de halfnatuurlijke en '
          
            'natuurlijke landschappen, en ze bieden een omvattend beeld van d' +
            'e vegetatie in alle delen van ons land.'
          '</p>'
          '<p class="intro">'
          
            'Een  toelichting over achtergronden, inventaris en toepassingen ' +
            'van de Landelijke Vegetatie Databank is vervat in de <a href="do' +
            'c/schattenvoordenatuur.pdf" '
          
            'target="_blank">publicatie Schatten voor de natuur</a>. De verpl' +
            'ichtingen die voortkomen uit Europese afspraken met '
          
            'betrekking tot het internationale natuurbeleid, vormden de direc' +
            'te aanleiding voor het samenstellen van deze publicatie in opdra' +
            'cht van het Ministerie van Landbouw, '
          
            'Natuur en Voedselkwaliteit (LNV). De bedoelde Europese verplicht' +
            'ingen, kortweg aangeduid als Natura 2000, zijn in Nederland verv' +
            'at in een aantal wettelijke taken die het '
          
            'behoud van de biodiversiteit in ons land moeten veiligstellen. V' +
            'oor de uitvoering van deze taken bestaat een dringende behoefte ' +
            'aan gegevens over de desbetreffende '
          'natuurwaarden.</p>'
          
            '<p class="intro">Binnen de internationale verplichtingen nemen d' +
            'e Vogelrichtlijn en de Habitatrichtlijn (VHR), de twee pijlers v' +
            'an Natura 2000, een prominente plaats in. In '
          
            'het kader van deze richtlijnen moet het Ministerie van LNV perio' +
            'diek rapporteren aan de Europese Commissie. Om de zes jaar dient' +
            ' gerapporteerd te worden, waarbij in '
          
            'eerste instantie gevraagd wordt om de '#39'staat van instandhouding'#39 +
            ' van habitattypen en soorten te beoordelen, zeg maar de toestand' +
            ' waarin '
          
            'deze habitattypen en soorten in ons land verkeren. Wat de habita' +
            'ttypen betreft, wordt gebruik gemaakt van de vele vegetatiegegev' +
            'ens die in ons land in de loop van de '
          'tijd zijn verzameld. </p>'
          '<p class="intro">'
          
            'Projectleiding: <a href="mailto:joop.schaminee@wur.nl">Joop Scha' +
            'min'#233'e</a><br />'
          
            'Webontwikkeling: <a href="mailto:stephan.hennekens@wur.nl">Steph' +
            'an Hennekens</a><br />'
          
            'Onderhoud database: <a href="mailto:stephan.hennekens@wur.nl">St' +
            'ephan Hennekens</a>, <a href="mailto:john.janssen@wur.nl">John J' +
            'anssen</a> en <a '
          'href="mailto:nils.vanrooijen@wur.nl">Nils van Rooijen</a>'
          '</p>'
          '</td>'
          '</tr>'
          '</table>')
        ScrollStyle = ssVertical
      end
    end
    object WebPageControlKaart: TWebTabSheet
      Left = 0
      Top = 20
      Width = 1069
      Height = 750
      Caption = 'SELECTIE'
      ChildOrder = 1
      object WebPanel1: TWebPanel
        Left = 0
        Top = 0
        Width = 350
        Height = 750
        Margins.Right = 10
        ElementClassName = 'form-control'
        Align = alLeft
        BorderColor = clWhite
        BorderStyle = bsNone
        ChildOrder = 1
        Color = clWhite
        DesignSize = (
          350
          750)
        object WebLabel1: TWebLabel
          Left = -10
          Top = 57
          Width = 344
          Height = 182
          AutoSize = False
          Caption = 
            '<ol>'#13'<li>Zoom in naar het te doorzoeken gebied.</li>'#13'<li>Selecte' +
            'er een punt op de kaart om het startpunt van het te doorzoeken g' +
            'ebied aan te geven.</li>'#13'<li>Geef met net zoveel punten als nodi' +
            'g is de grenzen van het te doorzoeken gebied aan.</li>'#13'<li>Sluit' +
            ' de omgrenzing van het gebied af door te dubbelklikken.</li>'#13'<li' +
            '>Selecteer de minimale resolutie en de jaargrenzen waarbinnen de' +
            ' gegevens moeten worden opgevraagd.</li>'#13'<li>Voer de selectie ui' +
            't.</li>'#13'</ol>'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          WordWrap = True
        end
        object WebLabel2: TWebLabel
          Left = 16
          Top = 262
          Width = 104
          Height = 15
          Caption = 'Minimale resolutie'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = 'Arial'
          Font.Style = [fsBold]
          ParentFont = False
        end
        object WebLabel3: TWebLabel
          Left = 13
          Top = 11
          Width = 273
          Height = 45
          Caption = 
            'Zoeken naar vegetatieopnamen in de Landelijke Vegetatie Databank' +
            ' binnen een aangegegeven gebied.'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = 'Arial'
          Font.Style = [fsBold]
          ParentFont = False
          WordWrap = True
        end
        object WebLabel4: TWebLabel
          Left = 15
          Top = 402
          Width = 46
          Height = 15
          Alignment = taRightJustify
          Caption = 'Startjaar'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
        end
        object WebLabel5: TWebLabel
          Left = 158
          Top = 405
          Width = 46
          Height = 15
          Alignment = taRightJustify
          Caption = 'Eindjaar'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -12
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
        end
        object WebRadioGroupResolution: TWebRadioGroup
          Left = 17
          Top = 283
          Width = 317
          Height = 94
          Caption = ''
          ChildOrder = 1
          Columns = 2
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -11
          Font.Name = 'Arial'
          Font.Style = []
          ItemIndex = 4
          Items.Strings = (
            '&nbsp;Punt '
            '&nbsp;Decameterhok (10x10m)'
            '&nbsp;Hectometerhok (100x100m)'
            '&nbsp;Kilometerhok (1x1km) '
            '&nbsp;Uurhok (5x5 km)')
          ParentFont = False
          Role = ''
          OnChange = WebRadioGroupResolutionChange
        end
        object btnSelect: TWebButton
          Left = 15
          Top = 452
          Width = 96
          Height = 25
          Caption = 'Selectie uitvoeren'
          ChildOrder = 6
          ElementClassName = 'btn btn-outline-success btn-sm'
          ElementFont = efCSS
          HeightStyle = ssAuto
          WidthStyle = ssAuto
          OnClick = btnSelectClick
        end
        object btnClearMap: TWebButton
          Left = 165
          Top = 452
          Width = 138
          Height = 25
          Anchors = [akTop, akRight]
          Caption = 'Selectie verwijderen'
          ChildOrder = 6
          ElementClassName = 'btn btn-outline-danger btn-sm'
          HeightStyle = ssAuto
          WidthStyle = ssAuto
          OnClick = btnClearMapClick
        end
        object edtYearStart: TWebEdit
          Left = 67
          Top = 402
          Width = 79
          Height = 22
          ChildOrder = 9
          EditType = weSignedNumeric
          ElementClassName = 'form-control'
          ElementFont = efCSS
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -9
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          Text = '1900'
          OnChange = WebRadioGroupResolutionChange
        end
        object edtYearEnd: TWebEdit
          Left = 211
          Top = 402
          Width = 79
          Height = 22
          ChildOrder = 9
          EditType = weSignedNumeric
          ElementClassName = 'form-control'
          Font.Charset = DEFAULT_CHARSET
          Font.Color = clWindowText
          Font.Height = -9
          Font.Name = 'Arial'
          Font.Style = []
          ParentFont = False
          Text = '2020'
          OnChange = WebRadioGroupResolutionChange
        end
        object WebHTMLContainerResponse: TWebHTMLContainer
          Left = 15
          Top = 504
          Width = 293
          Height = 254
          ElementClassName = 'div_container'
          Anchors = [akLeft, akTop, akBottom]
          ChildOrder = 11
          HTML.Strings = (
            'Test')
          ScrollStyle = ssVertical
        end
      end
      object WebPanel2: TWebPanel
        Left = 350
        Top = 0
        Width = 719
        Height = 750
        Align = alClient
        BorderColor = clSilver
        BorderStyle = bsSingle
        Caption = 'WebPanel2'
        ChildOrder = 2
        object WebHTMLDiv: TWebHTMLDiv
          Left = 0
          Top = 0
          Width = 719
          Height = 750
          ElementID = 'osmmap'
          Align = alClient
          Role = ''
        end
      end
    end
    object WebPageControlOpnamen: TWebTabSheet
      Left = 0
      Top = 20
      Width = 1069
      Height = 750
      Caption = 'VEGETATIEOPNAMEN'
      ChildOrder = 2
      object WebSplitter1: TWebSplitter
        Left = 560
        Top = 0
        Width = 8
        Height = 750
        Align = alRight
        Color = clBtnFace
      end
      object WebDBGridPlot: TWebDBGrid
        Left = 568
        Top = 0
        Width = 501
        Height = 750
        Align = alRight
        Columns = <
          item
          end
          item
          end
          item
          end
          item
          end>
        DataSource = WebDataSourcePlot
        FixedCols = 1
        Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goColSizing, goRowSelect]
        TabOrder = 1
        ColWidths = (
          20
          64
          64
          64
          64)
      end
      object WebDBGridPlots: TWebDBGrid
        Left = 0
        Top = 0
        Width = 560
        Height = 750
        Align = alClient
        Columns = <
          item
          end
          item
          end
          item
          end
          item
          end>
        DataSource = WebDataSourcePlots
        FixedCols = 1
        Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goColSizing, goRowSelect, goFixedRowClick]
        TabOrder = 2
        OnClick = WebDBGridPlotsClick
        OnFixedCellClick = WebDBGridPlotsFixedCellClick
        OnGetCellData = WebDBGridPlotsGetCellData
        OnKeyUp = WebDBGridPlotsKeyUp
        ColWidths = (
          20
          64
          64
          64
          64)
      end
    end
    object WebPageControlSyntaxa: TWebTabSheet
      Left = 0
      Top = 20
      Width = 1069
      Height = 750
      Caption = 'PLANTENGEMEENSCHAPPEN'
      ChildOrder = 3
      object WebDBGridSyntaxa: TWebDBGrid
        Left = 0
        Top = 0
        Width = 1069
        Height = 750
        Align = alClient
        Columns = <
          item
          end
          item
          end
          item
          end
          item
          end>
        DataSource = WebDataSourceSyntaxa
        FixedCols = 1
        Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goColSizing, goRowSelect, goFixedRowClick]
        TabOrder = 0
        OnFixedCellClick = WebDBGridSyntaxaFixedCellClick
        ColWidths = (
          20
          64
          64
          64
          64)
      end
    end
    object WebPageControlHabtypen: TWebTabSheet
      Left = 0
      Top = 20
      Width = 1069
      Height = 750
      Caption = 'HABITATTYPEN'
      ChildOrder = 4
      object WebDBGridHabtypen: TWebDBGrid
        Left = 0
        Top = 0
        Width = 1069
        Height = 750
        Align = alClient
        BorderStyle = bsNone
        Columns = <
          item
          end
          item
          end
          item
          end
          item
          end>
        DataSource = WebDataSourceHabtypes
        FixedCols = 1
        Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goColSizing, goRowSelect, goFixedRowClick]
        TabOrder = 0
        OnFixedCellClick = WebDBGridHabtypenFixedCellClick
        ColWidths = (
          20
          64
          64
          64
          64)
      end
    end
    object WebPageControlDecades: TWebTabSheet
      Left = 0
      Top = 20
      Width = 1069
      Height = 750
      Caption = 'TIJDSPERIODEN'
      ChildOrder = 5
      object WebGoogleChart: TWebGoogleChart
        Left = 0
        Top = 0
        Width = 1069
        Height = 750
        Align = alClient
        Appearance.Animation.Duration = 500
        Appearance.Legend.Position = gcpNone
        Appearance.VAxis.AutoMaxMinValue = False
        Appearance.HAxis.AutoMaxMinValue = False
        Series = <
          item
            ChartType = gctColumn
            Color = clRed
            Tag = -1
          end>
      end
    end
  end
  object WebHttpRequestCount: TWebHttpRequest
    Headers.Strings = (
      'Cache-Control=no-cache, no-store, must-revalidate')
    OnAbort = WebHttpRequestCountAbort
    OnResponse = WebHttpRequestCountResponse
    Left = 273
    Top = 532
  end
  object WebHttpRequestChart: TWebHttpRequest
    Headers.Strings = (
      'Cache-Control=no-cache, no-store, must-revalidate')
    OnAbort = WebHttpRequestCountAbort
    OnResponse = WebHttpRequestChartResponse
    Left = 273
    Top = 596
  end
  object WebClientDataSetHabtypes: TWebClientDataSet
    Active = True
    Connection = WebClientConnectionHabtypes
    Params = <>
    Left = 632
    Top = 160
  end
  object WebClientConnectionHabtypes: TWebClientConnection
    Active = False
    AfterConnect = WebClientConnectionHabtypesAfterConnect
    Left = 632
    Top = 96
  end
  object WebDataSourceHabtypes: TWebDataSource
    DataSet = WebClientDataSetHabtypes
    Left = 640
    Top = 232
  end
  object WebClientConnectionSyntaxa: TWebClientConnection
    Active = False
    AfterConnect = WebClientConnectionSyntaxaAfterConnect
    Left = 480
    Top = 96
  end
  object WebClientDataSetSyntaxa: TWebClientDataSet
    Active = True
    Connection = WebClientConnectionSyntaxa
    Params = <>
    Left = 480
    Top = 160
  end
  object WebDataSourceSyntaxa: TWebDataSource
    DataSet = WebClientDataSetSyntaxa
    Left = 488
    Top = 232
  end
  object WebClientConnectionPlots: TWebClientConnection
    Active = False
    AfterConnect = WebClientConnectionPlotsAfterConnect
    Left = 344
    Top = 96
  end
  object WebClientDataSetPlots: TWebClientDataSet
    Active = True
    Connection = WebClientConnectionPlots
    Params = <>
    Left = 344
    Top = 160
  end
  object WebDataSourcePlots: TWebDataSource
    DataSet = WebClientDataSetPlots
    Left = 352
    Top = 232
  end
  object WebClientConnectionPlot: TWebClientConnection
    Active = False
    AfterConnect = WebClientConnectionPlotAfterConnect
    Left = 240
    Top = 96
  end
  object WebClientDataSetPlot: TWebClientDataSet
    Active = True
    Connection = WebClientConnectionPlot
    Params = <>
    Left = 240
    Top = 160
  end
  object WebDataSourcePlot: TWebDataSource
    DataSet = WebClientDataSetPlot
    Left = 248
    Top = 232
  end
end