object FViewAlbumList: TFViewAlbumList
  Left = 0
  Top = 0
  Width = 695
  Height = 500
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  TabOrder = 1
  OnCreate = WebFormCreate
  object lbPaginationInfo: TWebLabel
    Left = 8
    Top = 376
    Width = 141
    Height = 13
    Caption = 'Showing 1 to 10 of 57 entries'
    ElementID = 'view.album.list.pagination.info'
  end
  object btNew: TWebButton
    Left = 8
    Top = 8
    Width = 50
    Height = 25
    Caption = 'New'
    ElementID = 'view.album.list.newbutton'
    OnClick = btNewClick
  end
  object WebDBTableControl1: TWebDBTableControl
    Left = 8
    Top = 94
    Width = 521
    Height = 265
    ElementClassName = 'table-responsive'
    ElementId = 'view.album.list.table'
    BorderColor = clSilver
    ColHeader = False
    ElementTableClassName = 'table table-striped table-bordered table-hover dataTable'
    OnGetCellChildren = WebDBTableControl1GetCellChildren
    Columns = <
      item
        DataField = 'Id'
        Title = 'Id'
      end
      item
        DataField = 'Name'
        Title = 'Name'
      end
      item
        DataField = 'Artist.Name'
        Title = 'Artist.Name'
      end
      item
        Title = 'Actions'
      end>
    DataSource = WebDataSource
  end
  object cbPageSize: TWebComboBox
    Left = 8
    Top = 67
    Width = 81
    Height = 21
    ElementID = 'view.album.list.cbPageSize'
    TabOrder = 2
    Text = '10'
    OnChange = cbPageSizeChange
    ItemIndex = 0
    Items.Strings = (
      '10'
      '25'
      '50'
      '100')
  end
  object edSearch: TWebEdit
    Left = 408
    Top = 67
    Width = 121
    Height = 21
    ElementID = 'view.album.list.search'
    TabOrder = 3
    OnChange = edSearchChange
  end
  object lcPaginator: TWebListControl
    Left = 240
    Top = 365
    Width = 289
    Height = 25
    ElementID = 'view.album.list.pagination'
    DefaultItemClassName = 'page-item'
    DefaultItemLinkClassName = 'page-link'
    ElementListClassName = 'pagination'
    Items = <>
    Style = lsPagination
  end
  object XDataWebDataset: TXDataWebDataSet
    EntitySetName = 'Album'
    Connection = DMConnection.ApiConnection
    Left = 72
    Top = 128
    object XDataWebDatasetId: TIntegerField
      FieldName = 'Id'
    end
    object XDataWebDatasetName: TStringField
      FieldName = 'Name'
    end
    object XDataWebDatasetArtistName: TStringField
      FieldName = 'Artist.Name'
    end
  end
  object WebDataSource: TWebDataSource
    DataSet = XDataWebDataset
    Left = 72
    Top = 184
  end
end
