object FViewComplaints: TFViewComplaints
  Width = 359
  Height = 480
  CSSLibrary = cssBootstrap
  ElementFont = efCSS
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  ParentFont = False
  Visible = True
  OnCreate = WebFormCreate
  OnDestroy = WebFormDestroy
  object lblEntries: TWebLabel
    Left = 44
    Top = 88
    Width = 43
    Height = 13
    Caption = 'lblEntries'
    ElementFont = efCSS
    HeightStyle = ssAuto
    HeightPercent = 100.000000000000000000
    Visible = False
    WidthPercent = 100.000000000000000000
  end
  object dblComplaintsList: TWebDBListControl
    Left = 36
    Top = 148
    Width = 263
    Height = 237
    ElementID = 'complaints_dbl_complaint_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 = wdsComplaints
    ItemTemplate = 
      '<div  class="list-section-header small fw-semibold bg-secondary ' +
      'text-white rounded-1 px-2 mb-1">  (%DistrictHeader%)</div><div  ' +
      'class="card border shadow-sm position-relative"  style="    --bs' +
      '-card-bg: (%PriorityColor%);    --bs-card-color: (%PriorityTextC' +
      'olor%);  ">  <div class="card-body py-2 px-3">    <div class="fw' +
      '-bold text-uppercase small">      (%Priority%): (%DispatchCodeDe' +
      'sc%)    </div>    <div class="small">(%Address%)</div>    <div c' +
      'lass="small text-opacity-75">      (%Complaint%): (%Status%)&nbs' +
      'p;&nbsp;(%DistrictSector%)    </div>    <div class="small text-o' +
      'pacity-75">(%DateReported%)</div>  </div>  <div class="position-' +
      'absolute top-50 end-0 translate-middle-y pe-2 d-flex flex-column' +
      ' gap-1">    <button      type="button"      class="btn btn-prima' +
      'ry btn-sm complaint-details-btn"      data-id="(%ComplaintId%)" ' +
      '   >      Details    </button>    <button      type="button"    ' +
      '  class="btn btn-primary btn-sm btn-complaint-map"      data-id=' +
      '"(%ComplaintId%)"    >      View On Map    </button>  </div></di' +
      'v>'
    ListSource = wdsComplaints
  end
  object xdwcComplaints: TXDataWebClient
    Connection = DMConnection.ApiConnection
    Left = 58
    Top = 410
  end
  object xdwdsComplaints: TXDataWebDataSet
    Connection = DMConnection.ApiConnection
    Left = 260
    Top = 412
    object xdwdsComplaintsComplaintId: TStringField
      FieldName = 'ComplaintId'
    end
    object xdwdsComplaintsComplaint: TStringField
      FieldName = 'Complaint'
    end
    object xdwdsComplaintsAgency: TStringField
      FieldName = 'Agency'
    end
    object xdwdsComplaintsPriority: TStringField
      FieldName = 'Priority'
    end
    object xdwdsComplaintsDispatchCodeDesc: TStringField
      FieldName = 'DispatchCodeDesc'
    end
    object xdwdsComplaintsAddress: TStringField
      FieldName = 'Address'
    end
    object xdwdsComplaintsStatus: TStringField
      FieldName = 'Status'
    end
    object xdwdsComplaintsDispatchDistrict: TStringField
      FieldName = 'DispatchDistrict'
    end
    object xdwdsComplaintsDateReported: TStringField
      FieldName = 'DateReported'
    end
    object xdwdsComplaintsDistrictHeader: TStringField
      FieldName = 'DistrictHeader'
    end
    object xdwdsComplaintsStatusColor: TStringField
      FieldName = 'StatusColor'
    end
    object xdwdsComplaintsPriorityColor: TStringField
      FieldName = 'PriorityColor'
    end
    object xdwdsComplaintsPriorityTextColor: TStringField
      FieldName = 'PriorityTextColor'
    end
    object xdwdsComplaintsDistrictSector: TStringField
      FieldName = 'DistrictSector'
    end
  end
  object wdsComplaints: TWebDataSource
    AutoEdit = False
    DataSet = xdwdsComplaints
    Left = 156
    Top = 410
  end
  object tmrRefresh: TWebTimer
    Interval = 30000
    OnTimer = tmrRefreshTimer
    Left = 164
    Top = 44
  end
end
