312 lines
7.2 KiB
Plaintext
312 lines
7.2 KiB
Plaintext
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
|