diff --git a/components/jvcllaz/examples/JvTimeFramework/Data.sqlite b/components/jvcllaz/examples/JvTimeFramework/Data.sqlite index d3a7ec302..bc5462d90 100644 Binary files a/components/jvcllaz/examples/JvTimeFramework/Data.sqlite and b/components/jvcllaz/examples/JvTimeFramework/Data.sqlite differ diff --git a/components/jvcllaz/examples/JvTimeFramework/tfmain.lfm b/components/jvcllaz/examples/JvTimeFramework/tfmain.lfm index c0cfb5bcc..a0fbbe313 100644 --- a/components/jvcllaz/examples/JvTimeFramework/tfmain.lfm +++ b/components/jvcllaz/examples/JvTimeFramework/tfmain.lfm @@ -1,10 +1,10 @@ object MainForm: TMainForm Left = 212 - Height = 546 + Height = 613 Top = 138 Width = 445 Caption = 'UTF Demo 1: PhotoOp' - ClientHeight = 546 + ClientHeight = 613 ClientWidth = 445 Color = clBtnFace Constraints.MinHeight = 400 @@ -18,7 +18,7 @@ object MainForm: TMainForm Scaled = False object PageControl1: TPageControl Left = 0 - Height = 448 + Height = 515 Top = 73 Width = 445 ActivePage = TabSheet1 @@ -27,11 +27,11 @@ object MainForm: TMainForm TabOrder = 0 object TabSheet1: TTabSheet Caption = 'Day View' - ClientHeight = 420 + ClientHeight = 487 ClientWidth = 437 object JvTFDays1: TJvTFDays Left = 0 - Height = 420 + Height = 487 Top = 0 Width = 437 ScheduleManager = utfScheduleManager1 @@ -101,12 +101,12 @@ object MainForm: TMainForm end object TabSheet2: TTabSheet Caption = 'Week View' - ClientHeight = 445 + ClientHeight = 420 ClientWidth = 437 ImageIndex = 1 object JvTFWeeks1: TJvTFWeeks Left = 0 - Height = 445 + Height = 420 Top = 0 Width = 437 ScheduleManager = utfScheduleManager1 @@ -186,12 +186,12 @@ object MainForm: TMainForm end object TabSheet3: TTabSheet Caption = 'Month View' - ClientHeight = 445 + ClientHeight = 487 ClientWidth = 437 ImageIndex = 2 object JvTFMonths1: TJvTFMonths Left = 0 - Height = 445 + Height = 487 Top = 0 Width = 437 ScheduleManager = utfScheduleManager1 @@ -814,7 +814,7 @@ object MainForm: TMainForm object Panel2: TPanel Left = 0 Height = 25 - Top = 521 + Top = 588 Width = 445 Align = alBottom AutoSize = True @@ -1014,6 +1014,7 @@ object MainForm: TMainForm ' And (GroupLink.ApptID = GroupAppt.ApptID)' ' And ((StartDate >= :D1) and (EndDate <= :D2))' ) + Options = [sqoAutoApplyUpdates, sqoAutoCommit] Params = < item DataType = ftUnknown @@ -1041,6 +1042,7 @@ object MainForm: TMainForm 'Select * From GroupLink' ' Where ApptID = :ApptID' ) + Options = [sqoAutoApplyUpdates, sqoAutoCommit] Params = < item DataType = ftUnknown @@ -1058,6 +1060,7 @@ object MainForm: TMainForm 'Select * From GroupAppt' ' Where ApptID = :ApptID' ) + Options = [sqoAutoApplyUpdates, sqoAutoCommit] Params = < item DataType = ftUnknown @@ -1075,6 +1078,7 @@ object MainForm: TMainForm 'Delete From GroupLink' ' Where ApptID = :ApptID' ) + Options = [sqoAutoApplyUpdates, sqoAutoCommit] Params = < item DataType = ftUnknown @@ -1092,6 +1096,7 @@ object MainForm: TMainForm 'Delete From GroupAppt' ' Where ApptID = :ApptID' ) + Options = [sqoAutoApplyUpdates, sqoAutoCommit] Params = < item DataType = ftUnknown @@ -1108,6 +1113,7 @@ object MainForm: TMainForm SQL.Strings = ( 'Select Distinct(SchedName) From GroupLink' ) + Options = [sqoAutoApplyUpdates, sqoAutoCommit] Params = <> left = 328 top = 384