f64f85da78
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5192 8e941d3f-bd1b-0410-a28a-d453659cc2b4
745 lines
18 KiB
Plaintext
745 lines
18 KiB
Plaintext
object Form1: TForm1
|
|
Left = 225
|
|
Height = 686
|
|
Top = 155
|
|
Width = 980
|
|
Caption = 'Form1'
|
|
ClientHeight = 686
|
|
ClientWidth = 980
|
|
OnCreate = FormCreate
|
|
LCLVersion = '1.7'
|
|
object Panel1: TPanel
|
|
Left = 0
|
|
Height = 34
|
|
Top = 0
|
|
Width = 980
|
|
Align = alTop
|
|
BevelOuter = bvNone
|
|
ClientHeight = 34
|
|
ClientWidth = 980
|
|
TabOrder = 0
|
|
object VpResourceCombo1: TVpResourceCombo
|
|
Left = 8
|
|
Height = 23
|
|
Top = 5
|
|
Width = 208
|
|
DataStore = VpSqlite3Datastore1
|
|
Style = csDropDownList
|
|
end
|
|
object BtnNewRes: TButton
|
|
Left = 222
|
|
Height = 25
|
|
Top = 4
|
|
Width = 99
|
|
Caption = 'New resource'
|
|
OnClick = BtnNewResClick
|
|
TabOrder = 1
|
|
end
|
|
object BtnEditRes: TButton
|
|
Left = 328
|
|
Height = 25
|
|
Top = 4
|
|
Width = 96
|
|
Caption = 'Edit resource'
|
|
OnClick = BtnEditResClick
|
|
TabOrder = 2
|
|
end
|
|
end
|
|
object PageControl1: TPageControl
|
|
Left = 0
|
|
Height = 652
|
|
Top = 34
|
|
Width = 980
|
|
ActivePage = TabSheet3
|
|
Align = alClient
|
|
TabIndex = 2
|
|
TabOrder = 1
|
|
OnChange = PageControl1Change
|
|
object TabSheet1: TTabSheet
|
|
Caption = 'Events and tasks'
|
|
ClientHeight = 624
|
|
ClientWidth = 972
|
|
object VpDayView1: TVpDayView
|
|
Left = 0
|
|
Height = 624
|
|
Top = 0
|
|
Width = 301
|
|
DataStore = VpSqlite3Datastore1
|
|
ControlLink = VpControlLink1
|
|
Color = clWindow
|
|
Align = alLeft
|
|
ReadOnly = False
|
|
TabStop = True
|
|
TabOrder = 0
|
|
AllDayEventAttributes.BackgroundColor = clBtnShadow
|
|
AllDayEventAttributes.EventBorderColor = cl3DDkShadow
|
|
AllDayEventAttributes.EventBackgroundColor = clBtnFace
|
|
ShowEventTimes = False
|
|
DrawingStyle = dsFlat
|
|
TimeSlotColors.Active = clWhite
|
|
TimeSlotColors.Inactive = 8454143
|
|
TimeSlotColors.Holiday = 16744703
|
|
TimeSlotColors.Weekday = clWhite
|
|
TimeSlotColors.Weekend = 16777088
|
|
TimeSlotColors.ActiveRange.RangeBegin = h_00
|
|
TimeSlotColors.ActiveRange.RangeEnd = h_00
|
|
HeadAttributes.Font.Height = -13
|
|
HeadAttributes.Color = clBtnFace
|
|
RowHeadAttributes.HourFont.Height = -24
|
|
RowHeadAttributes.MinuteFont.Height = -12
|
|
RowHeadAttributes.Color = clBtnFace
|
|
ShowResourceName = True
|
|
LineColor = clGray
|
|
GutterWidth = 7
|
|
DateLabelFormat = 'dddd, mmmm dd, yyyy'
|
|
Granularity = gr30Min
|
|
DefaultTopHour = h_07
|
|
TimeFormat = tf12Hour
|
|
end
|
|
object Panel2: TPanel
|
|
Left = 306
|
|
Height = 624
|
|
Top = 0
|
|
Width = 386
|
|
Align = alLeft
|
|
BevelOuter = bvNone
|
|
Caption = 'Panel2'
|
|
ClientHeight = 624
|
|
ClientWidth = 386
|
|
TabOrder = 1
|
|
object VpWeekView1: TVpWeekView
|
|
Left = 0
|
|
Height = 378
|
|
Top = 0
|
|
Width = 386
|
|
DataStore = VpSqlite3Datastore1
|
|
ControlLink = VpControlLink1
|
|
Color = clWindow
|
|
AllDayEventAttributes.BackgroundColor = clWindow
|
|
AllDayEventAttributes.EventBorderColor = clGray
|
|
AllDayEventAttributes.EventBackgroundColor = clBtnFace
|
|
DateLabelFormat = 'dddd, mmmm dd, yyyy'
|
|
DayHeadAttributes.Color = clBtnFace
|
|
DayHeadAttributes.DateFormat = 'dddd mmmm, dd'
|
|
DayHeadAttributes.Font.Height = -13
|
|
DayHeadAttributes.Font.Name = 'Tahoma'
|
|
DayHeadAttributes.Bordered = True
|
|
DrawingStyle = dsFlat
|
|
HeadAttributes.Color = clBtnFace
|
|
LineColor = clGray
|
|
TimeFormat = tf12Hour
|
|
ShowEventTime = True
|
|
WeekStartsOn = dtMonday
|
|
Align = alClient
|
|
TabStop = True
|
|
TabOrder = 0
|
|
end
|
|
object VpMonthView1: TVpMonthView
|
|
Left = 0
|
|
Height = 241
|
|
Top = 383
|
|
Width = 386
|
|
DataStore = VpSqlite3Datastore1
|
|
ControlLink = VpControlLink1
|
|
Color = clWindow
|
|
Align = alBottom
|
|
TabStop = True
|
|
TabOrder = 1
|
|
KBNavigation = True
|
|
DateLabelFormat = 'mmmm yyyy'
|
|
DayHeadAttributes.Color = clBtnFace
|
|
DayHeadAttributes.Font.Height = -13
|
|
DayHeadAttributes.Font.Name = 'Tahoma'
|
|
DayNameStyle = dsShort
|
|
DrawingStyle = dsFlat
|
|
EventDayStyle = []
|
|
HeadAttributes.Color = clBtnFace
|
|
LineColor = clGray
|
|
TimeFormat = tf12Hour
|
|
TodayAttributes.Color = clSilver
|
|
TodayAttributes.BorderPen.Color = clRed
|
|
TodayAttributes.BorderPen.Width = 3
|
|
OffDayColor = clSilver
|
|
SelectedDayColor = clRed
|
|
ShowEvents = True
|
|
ShowEventTime = False
|
|
WeekStartsOn = dtSunday
|
|
end
|
|
object Splitter2: TSplitter
|
|
Cursor = crVSplit
|
|
Left = 0
|
|
Height = 5
|
|
Top = 378
|
|
Width = 386
|
|
Align = alBottom
|
|
ResizeAnchor = akBottom
|
|
end
|
|
end
|
|
object VpTaskList1: TVpTaskList
|
|
Left = 697
|
|
Height = 624
|
|
Top = 0
|
|
Width = 275
|
|
DataStore = VpSqlite3Datastore1
|
|
ControlLink = VpControlLink1
|
|
Color = clWindow
|
|
Align = alClient
|
|
TabStop = True
|
|
TabOrder = 2
|
|
ReadOnly = False
|
|
DisplayOptions.CheckBGColor = clWindow
|
|
DisplayOptions.CheckColor = cl3DDkShadow
|
|
DisplayOptions.CheckStyle = csCheck
|
|
DisplayOptions.DueDateFormat = 'dd.MM.yyyy'
|
|
DisplayOptions.ShowCompletedTasks = False
|
|
DisplayOptions.ShowAll = False
|
|
DisplayOptions.ShowDueDate = True
|
|
DisplayOptions.OverdueColor = clRed
|
|
DisplayOptions.NormalColor = clBlack
|
|
DisplayOptions.CompletedColor = clGray
|
|
LineColor = clGray
|
|
MaxVisibleTasks = 250
|
|
TaskHeadAttributes.Color = clSilver
|
|
DrawingStyle = dsFlat
|
|
ShowResourceName = True
|
|
end
|
|
object Splitter1: TSplitter
|
|
Left = 692
|
|
Height = 624
|
|
Top = 0
|
|
Width = 5
|
|
end
|
|
object Splitter3: TSplitter
|
|
Left = 301
|
|
Height = 624
|
|
Top = 0
|
|
Width = 5
|
|
end
|
|
end
|
|
object TabSheet2: TTabSheet
|
|
Caption = 'Contacts'
|
|
ClientHeight = 594
|
|
ClientWidth = 928
|
|
object VpContactButtonBar1: TVpContactButtonBar
|
|
Left = 0
|
|
Height = 594
|
|
Top = 0
|
|
Width = 40
|
|
DrawingStyle = dsFlat
|
|
RadioStyle = False
|
|
Align = alLeft
|
|
end
|
|
object VpContactGrid1: TVpContactGrid
|
|
Left = 40
|
|
Height = 594
|
|
Top = 0
|
|
Width = 888
|
|
DataStore = VpSqlite3Datastore1
|
|
ControlLink = VpControlLink1
|
|
Color = clWindow
|
|
Align = alClient
|
|
TabStop = True
|
|
TabOrder = 1
|
|
AllowInPlaceEditing = True
|
|
BarWidth = 3
|
|
BarColor = clSilver
|
|
ColumnWidth = 200
|
|
ContactHeadAttributes.Color = clSilver
|
|
ContactHeadAttributes.Bordered = True
|
|
DrawingStyle = dsFlat
|
|
end
|
|
end
|
|
object TabSheet3: TTabSheet
|
|
Caption = 'Grids'
|
|
ClientHeight = 624
|
|
ClientWidth = 972
|
|
object DBNavigator: TDBNavigator
|
|
Left = 8
|
|
Height = 25
|
|
Top = 8
|
|
Width = 241
|
|
BevelOuter = bvNone
|
|
ChildSizing.EnlargeHorizontal = crsScaleChilds
|
|
ChildSizing.EnlargeVertical = crsScaleChilds
|
|
ChildSizing.ShrinkHorizontal = crsScaleChilds
|
|
ChildSizing.ShrinkVertical = crsScaleChilds
|
|
ChildSizing.Layout = cclLeftToRightThenTopToBottom
|
|
ChildSizing.ControlsPerLine = 100
|
|
ClientHeight = 25
|
|
ClientWidth = 241
|
|
Options = []
|
|
TabOrder = 0
|
|
end
|
|
object BtnApplyToPlanner: TButton
|
|
Left = 264
|
|
Height = 25
|
|
Top = 8
|
|
Width = 120
|
|
Caption = 'Apply to planner'
|
|
OnClick = BtnApplyToPlannerClick
|
|
TabOrder = 1
|
|
end
|
|
object TabControl1: TTabControl
|
|
Left = 8
|
|
Height = 577
|
|
Top = 39
|
|
Width = 960
|
|
OnChange = TabControl1Change
|
|
TabIndex = 0
|
|
Tabs.Strings = (
|
|
'Resources'
|
|
'Contacts'
|
|
'Events'
|
|
'Tasks'
|
|
)
|
|
Anchors = [akTop, akLeft, akRight, akBottom]
|
|
BorderSpacing.Around = 8
|
|
TabOrder = 2
|
|
object Grid: TDBGrid
|
|
Left = 2
|
|
Height = 552
|
|
Top = 23
|
|
Width = 956
|
|
Align = alClient
|
|
Color = clWindow
|
|
Columns = <>
|
|
Options = [dgEditing, dgTitles, dgIndicator, dgColumnResize, dgColumnMove, dgColLines, dgRowLines, dgTabs, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit, dgThumbTracking]
|
|
TabOrder = 1
|
|
end
|
|
end
|
|
end
|
|
end
|
|
object VpControlLink1: TVpControlLink
|
|
DataStore = VpSqlite3Datastore1
|
|
Printer.BottomMargin = 0
|
|
Printer.DayStart = h_08
|
|
Printer.DayEnd = h_05
|
|
Printer.Granularity = gr30Min
|
|
Printer.LeftMargin = 0
|
|
Printer.MarginUnits = imAbsolutePixel
|
|
Printer.PrintFormats = <>
|
|
Printer.RightMargin = 0
|
|
Printer.TopMargin = 0
|
|
left = 136
|
|
top = 264
|
|
end
|
|
object VpResourceEditDialog1: TVpResourceEditDialog
|
|
Version = 'v1.05'
|
|
DataStore = VpSqlite3Datastore1
|
|
Options = []
|
|
Placement.Position = mpCenter
|
|
Placement.Top = 10
|
|
Placement.Left = 10
|
|
Placement.Height = 250
|
|
Placement.Width = 400
|
|
left = 136
|
|
top = 335
|
|
end
|
|
object VpSqlite3Datastore1: TVpSqlite3Datastore
|
|
CategoryColorMap.Category0.Color = clNavy
|
|
CategoryColorMap.Category0.Description = 'Category 0'
|
|
CategoryColorMap.Category1.Color = clRed
|
|
CategoryColorMap.Category1.Description = 'Category 1'
|
|
CategoryColorMap.Category2.Color = clYellow
|
|
CategoryColorMap.Category2.Description = 'Category 2'
|
|
CategoryColorMap.Category3.Color = clLime
|
|
CategoryColorMap.Category3.Description = 'Category 3'
|
|
CategoryColorMap.Category4.Color = clPurple
|
|
CategoryColorMap.Category4.Description = 'Category 4'
|
|
CategoryColorMap.Category5.Color = clTeal
|
|
CategoryColorMap.Category5.Description = 'Category 5'
|
|
CategoryColorMap.Category6.Color = clFuchsia
|
|
CategoryColorMap.Category6.Description = 'Category 6'
|
|
CategoryColorMap.Category7.Color = clOlive
|
|
CategoryColorMap.Category7.Description = 'Category 7'
|
|
CategoryColorMap.Category8.Color = clAqua
|
|
CategoryColorMap.Category8.Description = 'Category 8'
|
|
CategoryColorMap.Category9.Color = clMaroon
|
|
CategoryColorMap.Category9.Description = 'Category 9'
|
|
HiddenCategories.BackgroundColor = clSilver
|
|
HiddenCategories.Color = clGray
|
|
EnableEventTimer = True
|
|
PlayEventSounds = True
|
|
Connection = SQLite3Connection1
|
|
AutoConnect = False
|
|
AutoCreate = False
|
|
DayBuffer = 31
|
|
left = 136
|
|
top = 192
|
|
end
|
|
object SQLite3Connection1: TSQLite3Connection
|
|
Connected = False
|
|
LoginPrompt = False
|
|
KeepConnection = False
|
|
Transaction = SQLTransaction1
|
|
Options = []
|
|
left = 136
|
|
top = 120
|
|
end
|
|
object SQLTransaction1: TSQLTransaction
|
|
Active = False
|
|
Action = caCommitRetaining
|
|
Database = SQLite3Connection1
|
|
Options = []
|
|
left = 256
|
|
top = 120
|
|
end
|
|
object QryAllResources: TSQLQuery
|
|
PacketRecords = -1
|
|
FieldDefs = <
|
|
item
|
|
Name = 'ResourceID'
|
|
Attributes = [faReadonly]
|
|
DataType = ftAutoInc
|
|
Precision = -1
|
|
end
|
|
item
|
|
Name = 'Description'
|
|
DataType = ftString
|
|
Precision = -1
|
|
Size = 255
|
|
end
|
|
item
|
|
Name = 'Notes'
|
|
DataType = ftString
|
|
Precision = -1
|
|
Size = 255
|
|
end
|
|
item
|
|
Name = 'ImageIndex'
|
|
DataType = ftInteger
|
|
Precision = -1
|
|
end
|
|
item
|
|
Name = 'ResourceActive'
|
|
DataType = ftBoolean
|
|
Precision = -1
|
|
end
|
|
item
|
|
Name = 'UserField0'
|
|
DataType = ftString
|
|
Precision = -1
|
|
Size = 100
|
|
end
|
|
item
|
|
Name = 'UserField1'
|
|
DataType = ftString
|
|
Precision = -1
|
|
Size = 100
|
|
end
|
|
item
|
|
Name = 'UserField2'
|
|
DataType = ftString
|
|
Precision = -1
|
|
Size = 100
|
|
end
|
|
item
|
|
Name = 'UserField3'
|
|
DataType = ftString
|
|
Precision = -1
|
|
Size = 100
|
|
end
|
|
item
|
|
Name = 'UserField4'
|
|
DataType = ftString
|
|
Precision = -1
|
|
Size = 100
|
|
end
|
|
item
|
|
Name = 'UserField5'
|
|
DataType = ftString
|
|
Precision = -1
|
|
Size = 100
|
|
end
|
|
item
|
|
Name = 'UserField6'
|
|
DataType = ftString
|
|
Precision = -1
|
|
Size = 100
|
|
end
|
|
item
|
|
Name = 'UserField7'
|
|
DataType = ftString
|
|
Precision = -1
|
|
Size = 100
|
|
end
|
|
item
|
|
Name = 'UserField8'
|
|
DataType = ftString
|
|
Precision = -1
|
|
Size = 100
|
|
end
|
|
item
|
|
Name = 'UserField9'
|
|
DataType = ftString
|
|
Precision = -1
|
|
Size = 100
|
|
end>
|
|
AfterEdit = QryGridAfterEdit
|
|
AfterInsert = QryGridAfterEdit
|
|
AfterPost = QryGridAfterPost
|
|
Database = SQLite3Connection1
|
|
Transaction = SQLTransaction1
|
|
SQL.Strings = (
|
|
'SELECT * FROM Resources'
|
|
)
|
|
Options = [sqoKeepOpenOnCommit, sqoAutoCommit]
|
|
Params = <>
|
|
UpdateMode = upWhereAll
|
|
UsePrimaryKeyAsKey = False
|
|
left = 560
|
|
top = 160
|
|
end
|
|
object QryAllContacts: TSQLQuery
|
|
PacketRecords = -1
|
|
FieldDefs = <
|
|
item
|
|
Name = 'RecordID'
|
|
Attributes = [faReadonly]
|
|
DataType = ftAutoInc
|
|
Precision = -1
|
|
end
|
|
item
|
|
Name = 'ResourceID'
|
|
DataType = ftInteger
|
|
Precision = -1
|
|
end
|
|
item
|
|
Name = 'FirstName'
|
|
DataType = ftString
|
|
Precision = -1
|
|
Size = 50
|
|
end
|
|
item
|
|
Name = 'LastName'
|
|
DataType = ftString
|
|
Precision = -1
|
|
Size = 50
|
|
end
|
|
item
|
|
Name = 'Birthdate'
|
|
DataType = ftDateTime
|
|
Precision = -1
|
|
end
|
|
item
|
|
Name = 'Anniversary'
|
|
DataType = ftDateTime
|
|
Precision = -1
|
|
end
|
|
item
|
|
Name = 'Title'
|
|
DataType = ftString
|
|
Precision = -1
|
|
Size = 50
|
|
end
|
|
item
|
|
Name = 'Company'
|
|
DataType = ftString
|
|
Precision = -1
|
|
Size = 50
|
|
end
|
|
item
|
|
Name = 'Job_Position'
|
|
DataType = ftString
|
|
Precision = -1
|
|
Size = 30
|
|
end
|
|
item
|
|
Name = 'Address'
|
|
DataType = ftString
|
|
Precision = -1
|
|
Size = 100
|
|
end
|
|
item
|
|
Name = 'City'
|
|
DataType = ftString
|
|
Precision = -1
|
|
Size = 50
|
|
end
|
|
item
|
|
Name = 'State'
|
|
DataType = ftString
|
|
Precision = -1
|
|
Size = 25
|
|
end
|
|
item
|
|
Name = 'Zip'
|
|
DataType = ftString
|
|
Precision = -1
|
|
Size = 10
|
|
end
|
|
item
|
|
Name = 'Country'
|
|
DataType = ftString
|
|
Precision = -1
|
|
Size = 25
|
|
end
|
|
item
|
|
Name = 'Notes'
|
|
DataType = ftString
|
|
Precision = -1
|
|
Size = 255
|
|
end
|
|
item
|
|
Name = 'Phone1'
|
|
DataType = ftString
|
|
Precision = -1
|
|
Size = 25
|
|
end
|
|
item
|
|
Name = 'Phone2'
|
|
DataType = ftString
|
|
Precision = -1
|
|
Size = 25
|
|
end
|
|
item
|
|
Name = 'Phone3'
|
|
DataType = ftString
|
|
Precision = -1
|
|
Size = 25
|
|
end
|
|
item
|
|
Name = 'Phone4'
|
|
DataType = ftString
|
|
Precision = -1
|
|
Size = 25
|
|
end
|
|
item
|
|
Name = 'Phone5'
|
|
DataType = ftString
|
|
Precision = -1
|
|
Size = 25
|
|
end
|
|
item
|
|
Name = 'PhoneType1'
|
|
DataType = ftInteger
|
|
Precision = -1
|
|
end
|
|
item
|
|
Name = 'PhoneType2'
|
|
DataType = ftInteger
|
|
Precision = -1
|
|
end
|
|
item
|
|
Name = 'PhoneType3'
|
|
DataType = ftInteger
|
|
Precision = -1
|
|
end
|
|
item
|
|
Name = 'PhoneType4'
|
|
DataType = ftInteger
|
|
Precision = -1
|
|
end
|
|
item
|
|
Name = 'PhoneType5'
|
|
DataType = ftInteger
|
|
Precision = -1
|
|
end
|
|
item
|
|
Name = 'Category'
|
|
DataType = ftInteger
|
|
Precision = -1
|
|
end
|
|
item
|
|
Name = 'EMail'
|
|
DataType = ftString
|
|
Precision = -1
|
|
Size = 100
|
|
end
|
|
item
|
|
Name = 'Custom1'
|
|
DataType = ftString
|
|
Precision = -1
|
|
Size = 100
|
|
end
|
|
item
|
|
Name = 'Custom2'
|
|
DataType = ftString
|
|
Precision = -1
|
|
Size = 100
|
|
end
|
|
item
|
|
Name = 'Custom3'
|
|
DataType = ftString
|
|
Precision = -1
|
|
Size = 100
|
|
end
|
|
item
|
|
Name = 'Custom4'
|
|
DataType = ftString
|
|
Precision = -1
|
|
Size = 100
|
|
end>
|
|
AfterEdit = QryGridAfterEdit
|
|
AfterInsert = QryGridAfterEdit
|
|
AfterPost = QryGridAfterPost
|
|
Database = SQLite3Connection1
|
|
Transaction = SQLTransaction1
|
|
SQL.Strings = (
|
|
'SELECT * FROM Contacts'
|
|
)
|
|
Options = [sqoKeepOpenOnCommit]
|
|
Params = <>
|
|
UpdateMode = upWhereAll
|
|
UsePrimaryKeyAsKey = False
|
|
left = 560
|
|
top = 214
|
|
end
|
|
object QryAllEvents: TSQLQuery
|
|
PacketRecords = -1
|
|
FieldDefs = <>
|
|
AfterEdit = QryGridAfterEdit
|
|
AfterInsert = QryGridAfterEdit
|
|
AfterPost = QryGridAfterPost
|
|
Database = SQLite3Connection1
|
|
Transaction = SQLTransaction1
|
|
SQL.Strings = (
|
|
'SELECT * FROM Events'
|
|
)
|
|
Options = [sqoKeepOpenOnCommit, sqoAutoApplyUpdates]
|
|
Params = <>
|
|
UpdateMode = upWhereAll
|
|
UsePrimaryKeyAsKey = False
|
|
left = 560
|
|
top = 274
|
|
end
|
|
object QryAllTasks: TSQLQuery
|
|
PacketRecords = -1
|
|
FieldDefs = <>
|
|
AfterEdit = QryGridAfterPost
|
|
AfterInsert = QryGridAfterEdit
|
|
AfterPost = QryGridAfterPost
|
|
Database = SQLite3Connection1
|
|
Transaction = SQLTransaction1
|
|
SQL.Strings = (
|
|
'SELECT * FROM Tasks'
|
|
)
|
|
Options = [sqoKeepOpenOnCommit, sqoAutoCommit]
|
|
Params = <>
|
|
UpdateMode = upWhereAll
|
|
UsePrimaryKeyAsKey = False
|
|
left = 560
|
|
top = 341
|
|
end
|
|
object DsAllResources: TDataSource
|
|
DataSet = QryAllResources
|
|
left = 656
|
|
top = 160
|
|
end
|
|
object DsAllContacts: TDataSource
|
|
DataSet = QryAllContacts
|
|
left = 659
|
|
top = 214
|
|
end
|
|
object DsAllEvents: TDataSource
|
|
DataSet = QryAllEvents
|
|
left = 654
|
|
top = 274
|
|
end
|
|
object DsAllTasks: TDataSource
|
|
DataSet = QryAllTasks
|
|
left = 656
|
|
top = 341
|
|
end
|
|
end
|