object FViewUnits: TFViewUnits
  Width = 359
  Height = 480
  ElementFont = efCSS
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  ParentFont = False
  OnCreate = WebFormCreate
  object lblEntries: TWebLabel
    Left = 54
    Top = 46
    Width = 43
    Height = 13
    Caption = 'lblEntries'
    ElementFont = efCSS
    HeightStyle = ssAuto
    HeightPercent = 100.000000000000000000
    Visible = False
    WidthPercent = 100.000000000000000000
  end
  object dblUnitsList: TWebDBListControl
    Left = 50
    Top = 146
    Width = 263
    Height = 237
    ElementID = 'units_dbl_unit_list'
    HeightStyle = ssAuto
    HeightPercent = 100.000000000000000000
    WidthPercent = 100.000000000000000000
    ChildOrder = 3
    DefaultItemClassName = 'list-group-item p-1 border-0'
    DefaultItemLinkClassName = 'list-group-link'
    ElementFont = efCSS
    ElementListClassName = 'list-group list-group-flush border-0'
    Items = <>
    Style = lsListGroup
    DataSource = wdsUnits
    ItemTemplate = 
      '<div  class="list-section-header small fw-semibold bg-body-secon' +
      'dary text-dark rounded-1 px-2 mb-1">  (%DistrictHeader%)</div><d' +
      'iv class="card border shadow-sm position-relative">  <div class=' +
      '"card-body py-2 px-3">    <!-- Unit + Status -->    <div class="' +
      'fw-bold text-uppercase small">      (%UnitName%)&nbsp;-&nbsp;(%S' +
      'tatus%)    </div>    <!-- Location -->    <div class="small text' +
      '-body-secondary mb-1">(%Location%)</div>    <!-- Call type -->  ' +
      '  <div class="small">(%CallType%)</div>    <!-- Divider line -->' +
      '    <hr class="unit-divider my-1" style="width: 80px; margin-lef' +
      't: 0" />    <!-- Officers -->    <div class="small officer1">(%O' +
      'fficer1%)</div>    <div class="small officer2">(%Officer2%)</div' +
      '>  </div>  <!-- Vertically centered Details button on the right ' +
      '-->  <div class="position-absolute top-50 end-0 translate-middle' +
      '-y pe-2">    <button      type="button"      class="btn btn-prim' +
      'ary btn-sm btn-unit-details"      data-unitid="(%UnitId%)"    > ' +
      '     Details    </button>    <button type="button"        class=' +
      '"btn btn-primary btn-sm btn-unit-map"        data-unitid="(%Unit' +
      'Id%)">      View On Map    </button>  </div></div>'
    ListSource = wdsUnits
  end
  object wdsUnits: TWebDataSource
    AutoEdit = False
    DataSet = xdwdsUnits
    Left = 156
    Top = 410
  end
  object xdwdsUnits: TXDataWebDataSet
    Connection = DMConnection.ApiConnection
    Left = 260
    Top = 412
    object xdwdsUnitsDistrictHeader: TStringField
      FieldName = 'DistrictHeader'
    end
    object xdwdsUnitsUnitId: TStringField
      FieldName = 'UnitId'
    end
    object xdwdsUnitsUnitName: TStringField
      FieldName = 'UnitName'
    end
    object xdwdsUnitsLocation: TStringField
      FieldName = 'Location'
    end
    object xdwdsUnitsStatus: TStringField
      FieldName = 'Status'
    end
    object xdwdsUnitsOfficer1: TStringField
      FieldName = 'Officer1'
    end
    object xdwdsUnitsOfficer2: TStringField
      FieldName = 'Officer2'
    end
    object xdwdsUnitsCallType: TStringField
      FieldName = 'CallType'
    end
  end
  object xdwcUnits: TXDataWebClient
    Connection = DMConnection.ApiConnection
    Left = 58
    Top = 410
  end
  object tmrRefresh: TWebTimer
    Interval = 30000
    OnTimer = tmrRefreshTimer
    Left = 172
    Top = 22
  end
end
