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-second' +
      'ary text-dark rounded-1 px-2 mb-1">(%AgencyHeader%)</div><div cl' +
      'ass="card border shadow-sm">  <div class="card-body py-2 px-3 d-' +
      'flex gap-2">    <div class="flex-grow-1">      <div class="fw-bo' +
      'ld text-uppercase small">(%UnitName%)&nbsp;-&nbsp;(%Status%)</di' +
      'v>      <div class="small text-body-secondary mb-1">(%Location%)' +
      '</div>      <div class="small">(%CallType%)</div>      <hr class' +
      '="unit-divider my-1" style="width: 80px; margin-left: 0" />     ' +
      ' <div class="small officer1">(%Officer1%)</div>      <div class=' +
      '"small officer2">(%Officer2%)</div>    </div>    <div class="d-f' +
      'lex flex-column justify-content-center gap-1">      <button type' +
      '="button" class="btn btn-primary btn-sm btn-unit-details" data-u' +
      'nitid="(%UnitId%)">Details</button>      <button type="button"  ' +
      '      class="btn btn-sm btn-unit-map (%MapButtonClass%)"        ' +
      'data-unitid="(%UnitId%)"        data-canmap="(%CanShowMap%)"    ' +
      '    title="(%MapButtonTitle%)"        (%MapButtonDisabled%)>  Ma' +
      'p</button>    </div>  </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 xdwdsUnitsAgencyHeader: TStringField
      FieldName = 'AgencyHeader'
    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
    object xdwdsUnitsAgency: TStringField
      FieldName = 'Agency'
      Size = 80
    end
    object xdwdsUnitsAgencyName: TStringField
      FieldName = 'AgencyName'
      Size = 80
    end
    object xdwdsUnitsAgencyType: TStringField
      FieldName = 'AgencyType'
    end
    object xdwdsUnitsCanShowMap: TStringField
      FieldName = 'CanShowMap'
    end
    object xdwdsUnitsMapButtonClass: TStringField
      FieldName = 'MapButtonClass'
    end
    object xdwdsUnitsMapButtonDisabled: TStringField
      FieldName = 'MapButtonDisabled'
    end
    object xdwdsUnitsMapButtonTitle: TStringField
      FieldName = 'MapButtonTitle'
    end
  end
  object xdwcUnits: TXDataWebClient
    Connection = DMConnection.ApiConnection
    Left = 58
    Top = 410
  end
end
