object formResponsiveListDB1: TformResponsiveListDB1
  Left = 0
  Top = 0
  Width = 998
  Height = 984
  RenderInvisibleControls = False
  AllowPageAccess = True
  ConnectionMode = cmAny
  Title = 'TMS IntraWeb Components Demo'
  OnCreate = IWAppFormCreate
  Background.Fixed = False
  HandleTabs = False
  LeftToRight = True
  LockUntilLoaded = True
  LockOnSubmit = True
  StyleSheet.Filename = 'iw.css'
  ShowHint = True
  XPTheme = True
  DesignLeft = 8
  DesignTop = 8
  object IWLabel4: TIWLabel
    Left = 296
    Top = 231
    Width = 0
    Height = 0
    Font.Color = clNone
    Font.Size = 10
    Font.Style = []
    HasTabOrder = False
    FriendlyName = 'IWLabel4'
  end
  object TIWDBResponsiveList1: TTIWDBResponsiveList
    Left = 0
    Top = 289
    Width = 998
    Height = 320
    Align = alTop
    DefaultItem.BorderColor = clWebGRAY
    DefaultItem.ColorTo = clWebALICEBLUE
    DefaultItem.Font.Color = clWebDIMGRAY
    DefaultItem.Font.FontName = 'Arial'
    DefaultItem.Font.Size = 10
    DefaultItem.Font.Style = []
    DefaultItem.SelectBorderColor = clWebSTEELBLUE
    DefaultItem.SelectColor = clWebALICEBLUE
    DefaultItem.SelectColorTo = clWebLIGHTSTEELBLUE
    Font.Color = clNone
    Font.FontName = 'Arial'
    Font.Size = 14
    Font.Style = [fsBold]
    ItemStyles = <>
    ResponsiveLayout = <
      item
        Columns = 3
        MinScreenWidth = 769
      end
      item
        Columns = 4
        MinScreenWidth = 1025
      end>
    OnAsyncUpdated = TIWDBResponsiveList1AsyncUpdated
    OnGetDataTemplate = TIWDBResponsiveList1GetDataTemplate
    OnGetListDataEvent = TIWDBResponsiveList1GetListDataEvent
    ExplicitLeft = 296
    ExplicitTop = 336
    ExplicitWidth = 400
  end
  inline FrameTopFrame1: TFrameTopFrame
    Left = 0
    Top = 0
    Width = 998
    Height = 100
    Align = alTop
    Color = clWhite
    ParentColor = False
    TabOrder = 0
    ExplicitWidth = 998
    ExplicitHeight = 100
    inherited IWRegion1: TIWRegion
      Width = 998
      Height = 100
      TabOrder = 5
      ExplicitWidth = 998
      ExplicitHeight = 100
    end
  end
  object IWRegion1: TIWRegion
    Left = 0
    Top = 100
    Width = 998
    Height = 189
    RenderInvisibleControls = True
    Align = alTop
    BorderOptions.NumericWidth = 0
    BorderOptions.BorderWidth = cbwNumeric
    BorderOptions.Style = cbsSolid
    BorderOptions.Color = clNone
    ClipRegion = False
    object IWLabel7: TIWLabel
      Left = 16
      Top = 30
      Width = 265
      Height = 19
      Font.Color = clNone
      Font.Size = 12
      Font.Style = [fsBold]
      HasTabOrder = False
      FriendlyName = 'IWLabel7'
      Caption = 'TMS DB ResponsiveList Demo'
    end
    object TIWClientCode1: TTIWClientCode
      Left = 97
      Top = 0
      Width = 24
      Height = 24
      Code.Strings = (
        '.Label'
        '{'
        'width:75px;'
        'margin-right:5px;'
        'margin-bottom:5px;'
        'display:inline-block;'
        '}')
      CodeType = ctCSS
    end
    object btHome: TIWButton
      Left = 16
      Top = -1
      Width = 75
      Height = 25
      Caption = 'Home'
      Color = clBtnFace
      Font.Color = clNone
      Font.Size = 10
      Font.Style = []
      FriendlyName = 'btHome'
      TabOrder = 1
      OnClick = btHomeClick
    end
    object btUpdate: TIWButton
      Left = 16
      Top = 150
      Width = 150
      Height = 25
      Caption = 'Update selected item'
      Color = clBtnFace
      Font.Color = clNone
      Font.Size = 10
      Font.Style = []
      FriendlyName = 'btUpdate'
      TabOrder = 3
      OnAsyncClick = btUpdateAsyncClick
    end
    object IWLabel1: TIWLabel
      Left = 16
      Top = 101
      Width = 72
      Height = 16
      Font.Color = clNone
      Font.Size = 10
      Font.Style = []
      HasTabOrder = False
      FriendlyName = 'IWLabel8'
      Caption = 'First name:'
    end
    object IWLabel2: TIWLabel
      Left = 16
      Top = 79
      Width = 41
      Height = 16
      Font.Color = clNone
      Font.Size = 10
      Font.Style = []
      HasTabOrder = False
      FriendlyName = 'IWLabel8'
      Caption = 'Name:'
    end
    object IWDBLabel1: TIWDBLabel
      Left = 95
      Top = 79
      Width = 64
      Height = 16
      Font.Color = clNone
      Font.Size = 10
      Font.Style = []
      HasTabOrder = False
      DataField = 'last_name'
      DataSource = DataSource1
      FriendlyName = 'IWDBLabel1'
    end
    object IWDBLabel2: TIWDBLabel
      Left = 95
      Top = 101
      Width = 67
      Height = 16
      Font.Color = clNone
      Font.Size = 10
      Font.Style = []
      HasTabOrder = False
      DataField = 'first_name'
      DataSource = DataSource1
      FriendlyName = 'IWDBLabel1'
    end
    object IWDBCheckBox1: TIWDBCheckBox
      Left = 94
      Top = 123
      Width = 121
      Height = 21
      Caption = 'In mailing list'
      Editable = False
      Font.Color = clNone
      Font.Size = 10
      Font.Style = []
      SubmitOnAsyncEvent = True
      Style = stNormal
      TabOrder = 4
      AutoEditable = False
      DataField = 'mailing'
      DataSource = DataSource1
      FriendlyName = 'IWDBCheckBox1'
      ValueChecked = 'true'
      ValueUnchecked = 'false'
    end
    object IWLabel3: TIWLabel
      Left = 16
      Top = 57
      Width = 96
      Height = 16
      Font.Color = clNone
      Font.Size = 10
      Font.Style = [fsBold]
      HasTabOrder = False
      FriendlyName = 'IWLabel8'
      Caption = 'Selected item'
    end
  end
  object ADOQuery1: TADOQuery
    Connection = ADOConnection1
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      
        'SELECT [ID], [first_name], [last_name], [email], [mailing], [cat' +
        'egory] from Contacts')
    Left = 904
    Top = 16
  end
  object DataSource1: TDataSource
    DataSet = ADOQuery1
    Left = 720
    Top = 16
  end
  object ADOConnection1: TADOConnection
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 816
    Top = 16
  end
end
