object Form1: TForm1
  Left = 192
  Top = 107
  AutoSize = True
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'Form1'
  ClientHeight = 329
  ClientWidth = 529
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 529
    Height = 329
    ActivePage = TabSheet1
    TabOrder = 0
    OnChange = PageControl1Change
    object TabSheet1: TTabSheet
      Caption = 'Customers'
      object Label8: TLabel
        Left = 8
        Top = 8
        Width = 161
        Height = 13
        Caption = 'This is a list of customers we have'
      end
      object lbCustomers: TListBox
        Left = 8
        Top = 24
        Width = 241
        Height = 265
        ItemHeight = 13
        TabOrder = 0
        OnClick = lbCustomersClick
      end
      object GroupBox1: TGroupBox
        Left = 256
        Top = 24
        Width = 249
        Height = 233
        Caption = 'Details'
        TabOrder = 1
        object Label1: TLabel
          Left = 16
          Top = 16
          Width = 31
          Height = 13
          Caption = 'Name:'
        end
        object Label2: TLabel
          Left = 16
          Top = 32
          Width = 45
          Height = 13
          Caption = 'Surname:'
        end
        object lblName: TLabel
          Left = 80
          Top = 16
          Width = 3
          Height = 13
        end
        object lblSurname: TLabel
          Left = 80
          Top = 32
          Width = 3
          Height = 13
        end
        object Label3: TLabel
          Left = 16
          Top = 64
          Width = 32
          Height = 13
          Caption = 'Tasks:'
        end
        object lbCustomerTasks: TListBox
          Left = 16
          Top = 80
          Width = 217
          Height = 137
          ItemHeight = 13
          TabOrder = 0
        end
      end
      object btnAddCustomer: TButton
        Left = 256
        Top = 264
        Width = 75
        Height = 25
        Caption = 'Add'
        TabOrder = 2
        OnClick = btnAddCustomerClick
      end
    end
    object TabSheet2: TTabSheet
      Caption = 'Tasks'
      ImageIndex = 1
      object lbTasks: TListBox
        Left = 8
        Top = 32
        Width = 241
        Height = 257
        ItemHeight = 13
        TabOrder = 0
        OnClick = lbTasksClick
      end
      object btnNewTask: TButton
        Left = 256
        Top = 264
        Width = 75
        Height = 25
        Caption = 'New Task'
        TabOrder = 1
        OnClick = btnNewTaskClick
      end
      object cbCustomers: TComboBox
        Left = 8
        Top = 8
        Width = 241
        Height = 21
        Style = csDropDownList
        ItemHeight = 0
        TabOrder = 2
        OnClick = cbCustomersClick
      end
      object gbEditTask: TGroupBox
        Left = 256
        Top = 8
        Width = 241
        Height = 249
        Caption = 'Edit task'
        TabOrder = 3
        Visible = False
        object cbTaskPriority: TComboBox
          Left = 16
          Top = 24
          Width = 209
          Height = 21
          Style = csDropDownList
          ItemHeight = 13
          TabOrder = 0
          OnChange = cbTaskPriorityChange
          Items.Strings = (
            'Low'
            'Normal'
            'High')
        end
        object CheckListBox1: TCheckListBox
          Left = 16
          Top = 72
          Width = 209
          Height = 161
          OnClickCheck = CheckListBox1ClickCheck
          ItemHeight = 13
          TabOrder = 1
        end
      end
    end
    object TabSheet4: TTabSheet
      Caption = 'SQL'
      ImageIndex = 3
      object dgTable: TDrawGrid
        Left = 8
        Top = 32
        Width = 505
        Height = 265
        ColCount = 1
        FixedCols = 0
        RowCount = 1
        FixedRows = 0
        TabOrder = 0
      end
      object edtQuery: TComboBox
        Left = 8
        Top = 8
        Width = 505
        Height = 21
        ItemHeight = 0
        TabOrder = 1
        OnKeyDown = edtQueryKeyDown
      end
    end
    object tbUsers: TTabSheet
      Caption = 'Users'
      ImageIndex = 4
      object lbUsers: TListBox
        Left = 8
        Top = 16
        Width = 241
        Height = 273
        ItemHeight = 13
        TabOrder = 0
        OnClick = lbUsersClick
      end
      object GroupBox2: TGroupBox
        Left = 264
        Top = 16
        Width = 241
        Height = 129
        Caption = 'Roles'
        TabOrder = 1
        object Label9: TLabel
          Left = 16
          Top = 100
          Width = 45
          Height = 13
          Caption = 'Valid until'
        end
        object clbRoles: TCheckListBox
          Left = 16
          Top = 24
          Width = 209
          Height = 65
          OnClickCheck = clbRolesClickCheck
          Enabled = False
          ItemHeight = 13
          TabOrder = 0
          OnClick = clbRolesClick
        end
        object dtRoleExpires: TDateTimePicker
          Left = 112
          Top = 96
          Width = 113
          Height = 21
          Date = 40514.921962129630000000
          Time = 40514.921962129630000000
          TabOrder = 1
          OnChange = dtRoleExpiresChange
        end
      end
      object btnAddUser: TButton
        Left = 256
        Top = 264
        Width = 75
        Height = 25
        Caption = 'Add User'
        TabOrder = 2
        OnClick = btnAddUserClick
      end
    end
    object TabSheet3: TTabSheet
      Caption = 'About'
      ImageIndex = 2
      DesignSize = (
        521
        301)
      object Label4: TLabel
        Left = 8
        Top = 8
        Width = 21
        Height = 13
        Caption = '****'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label5: TLabel
        Left = 16
        Top = 32
        Width = 489
        Height = 65
        AutoSize = False
        Caption = 
          'I hope this example is closer to '#39'real-life'#39' cases than the demo' +
          's provided with the Framework itself. '#13#10'If you improve that exam' +
          'ple in any way, or know the better way for solving any of the pr' +
          'oblems, please share it!'
        WordWrap = True
      end
      object Label6: TLabel
        Left = 8
        Top = 248
        Width = 156
        Height = 39
        Anchors = [akLeft, akBottom]
        Caption = 
          'Written by Michal '#39'migajek'#39' Gajek'#13#10'migajek@gmail.com'#13#10'http://mig' +
          'ajek.com/'
      end
      object Label7: TLabel
        Left = 288
        Top = 272
        Width = 229
        Height = 13
        Cursor = crHandPoint
        Anchors = [akRight]
        Caption = 'http://code.google.com/p/synopse-sqlite-demo/'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsUnderline]
        ParentFont = False
        OnClick = Label7Click
      end
    end
  end
end
