pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

TvPlanIt: Activate dayview drag-and-drop in the examples/datastores demos.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8175 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2021-12-13 21:56:17 +00:00
parent aedf5ffcc0
commit e584f4c869
18 changed files with 217 additions and 193 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
components/tvplanit/examples/datastores/bufdataset/project1.lpi
View File

@ -58,6 +58,9 @@
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/> <UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
</SearchPaths> </SearchPaths>
<Linking> <Linking>
<Debugging>
<DebugInfoType Value="dsDwarf2Set"/>
</Debugging>
<Options> <Options>
<Win32> <Win32>
<GraphicApplication Value="True"/> <GraphicApplication Value="True"/>

23
components/tvplanit/examples/datastores/bufdataset/unit1.lfm
View File

@ -7,7 +7,7 @@ object Form1: TForm1
ClientHeight = 686 ClientHeight = 686
ClientWidth = 980 ClientWidth = 980
OnCreate = FormCreate OnCreate = FormCreate
LCLVersion = '1.9.0.0' LCLVersion = '2.3.0.0'
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Height = 34 Height = 34
@ -99,6 +99,7 @@ object Form1: TForm1
AllDayEventAttributes.EventBorderColor = cl3DDkShadow AllDayEventAttributes.EventBorderColor = cl3DDkShadow
AllDayEventAttributes.EventBackgroundColor = clBtnFace AllDayEventAttributes.EventBackgroundColor = clBtnFace
AllDayEventAttributes.Font.Height = -12 AllDayEventAttributes.Font.Height = -12
AllowDragAndDrop = True
ShowEventTimes = False ShowEventTimes = False
DrawingStyle = dsFlat DrawingStyle = dsFlat
TimeSlotColors.Active = clWhite TimeSlotColors.Active = clWhite
@ -176,7 +177,6 @@ object Form1: TForm1
Align = alBottom Align = alBottom
TabStop = True TabStop = True
TabOrder = 1 TabOrder = 1
KBNavigation = True
DateLabelFormat = 'mmmm yyyy' DateLabelFormat = 'mmmm yyyy'
DayHeadAttributes.Font.Height = -13 DayHeadAttributes.Font.Height = -13
DayHeadAttributes.Font.Name = 'Tahoma' DayHeadAttributes.Font.Name = 'Tahoma'
@ -187,6 +187,7 @@ object Form1: TForm1
EventDayStyle = [] EventDayStyle = []
EventFont.Height = -12 EventFont.Height = -12
HeadAttributes.Color = clBtnFace HeadAttributes.Color = clBtnFace
KBNavigation = True
OffDayColor = clSilver OffDayColor = clSilver
SelectedDayColor = clRed SelectedDayColor = clRed
ShowEvents = True ShowEvents = True
@ -287,20 +288,16 @@ object Form1: TForm1
end end
object VpControlLink1: TVpControlLink object VpControlLink1: TVpControlLink
DataStore = VpBufDSDataStore1 DataStore = VpBufDSDataStore1
Printer.BottomMargin = 0
Printer.DayStart = h_08 Printer.DayStart = h_08
Printer.DayEnd = h_05 Printer.DayEnd = h_05
Printer.Granularity = gr30Min Printer.Granularity = gr30Min
Printer.LeftMargin = 0
Printer.MarginUnits = imAbsolutePixel Printer.MarginUnits = imAbsolutePixel
Printer.PrintFormats = <> Printer.PrintFormats = <>
Printer.RightMargin = 0 Left = 136
Printer.TopMargin = 0 Top = 264
left = 136
top = 264
end end
object VpResourceEditDialog1: TVpResourceEditDialog object VpResourceEditDialog1: TVpResourceEditDialog
Version = 'v1.05' Version = 'v1.12'
DataStore = VpBufDSDataStore1 DataStore = VpBufDSDataStore1
Options = [] Options = []
Placement.Position = mpCenter Placement.Position = mpCenter
@ -308,8 +305,8 @@ object Form1: TForm1
Placement.Left = 10 Placement.Left = 10
Placement.Height = 250 Placement.Height = 250
Placement.Width = 400 Placement.Width = 400
left = 136 Left = 136
top = 335 Top = 335
end end
object VpBufDSDataStore1: TVpBufDSDataStore object VpBufDSDataStore1: TVpBufDSDataStore
CategoryColorMap.Category0.Color = clNavy CategoryColorMap.Category0.Color = clNavy
@ -340,7 +337,7 @@ object Form1: TForm1
AutoCreate = True AutoCreate = True
DayBuffer = 31 DayBuffer = 31
UseAutoIncFields = False UseAutoIncFields = False
left = 136 Left = 136
top = 192 Top = 192
end end
end end

3
components/tvplanit/examples/datastores/fb/project1.lpi
View File

@ -69,6 +69,9 @@
</Checks> </Checks>
</CodeGeneration> </CodeGeneration>
<Linking> <Linking>
<Debugging>
<DebugInfoType Value="dsDwarf2Set"/>
</Debugging>
<Options> <Options>
<Win32> <Win32>
<GraphicApplication Value="True"/> <GraphicApplication Value="True"/>

43
components/tvplanit/examples/datastores/fb/unit1.lfm
View File

@ -8,7 +8,7 @@ object Form1: TForm1
ClientWidth = 895 ClientWidth = 895
OnCreate = FormCreate OnCreate = FormCreate
OnDestroy = FormDestroy OnDestroy = FormDestroy
LCLVersion = '2.1.0.0' LCLVersion = '2.3.0.0'
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Height = 33 Height = 33
@ -91,6 +91,7 @@ object Form1: TForm1
AllDayEventAttributes.BackgroundColor = clBtnShadow AllDayEventAttributes.BackgroundColor = clBtnShadow
AllDayEventAttributes.EventBorderColor = cl3DDkShadow AllDayEventAttributes.EventBorderColor = cl3DDkShadow
AllDayEventAttributes.EventBackgroundColor = clBtnFace AllDayEventAttributes.EventBackgroundColor = clBtnFace
AllowDragAndDrop = True
ShowEventTimes = False ShowEventTimes = False
DrawingStyle = dsFlat DrawingStyle = dsFlat
TimeSlotColors.Active = clWhite TimeSlotColors.Active = clWhite
@ -233,11 +234,11 @@ object Form1: TForm1
end end
object TabSheet2: TTabSheet object TabSheet2: TTabSheet
Caption = 'Contacts' Caption = 'Contacts'
ClientHeight = 594 ClientHeight = 625
ClientWidth = 928 ClientWidth = 887
object VpContactButtonBar1: TVpContactButtonBar object VpContactButtonBar1: TVpContactButtonBar
Left = 0 Left = 0
Height = 594 Height = 625
Top = 0 Top = 0
Width = 40 Width = 40
DrawingStyle = dsFlat DrawingStyle = dsFlat
@ -246,9 +247,9 @@ object Form1: TForm1
end end
object VpContactGrid1: TVpContactGrid object VpContactGrid1: TVpContactGrid
Left = 40 Left = 40
Height = 594 Height = 625
Top = 0 Top = 0
Width = 888 Width = 847
DataStore = VpFirebirdDatastore1 DataStore = VpFirebirdDatastore1
ControlLink = VpControlLink1 ControlLink = VpControlLink1
Color = clWindow Color = clWindow
@ -267,17 +268,13 @@ object Form1: TForm1
end end
object VpControlLink1: TVpControlLink object VpControlLink1: TVpControlLink
DataStore = VpFirebirdDatastore1 DataStore = VpFirebirdDatastore1
Printer.BottomMargin = 0
Printer.DayStart = h_08 Printer.DayStart = h_08
Printer.DayEnd = h_05 Printer.DayEnd = h_05
Printer.Granularity = gr30Min Printer.Granularity = gr30Min
Printer.LeftMargin = 0
Printer.MarginUnits = imAbsolutePixel Printer.MarginUnits = imAbsolutePixel
Printer.PrintFormats = <> Printer.PrintFormats = <>
Printer.RightMargin = 0 Left = 136
Printer.TopMargin = 0 Top = 264
left = 136
top = 264
end end
object VpResourceEditDialog1: TVpResourceEditDialog object VpResourceEditDialog1: TVpResourceEditDialog
Version = 'v1.12' Version = 'v1.12'
@ -288,15 +285,15 @@ object Form1: TForm1
Placement.Left = 10 Placement.Left = 10
Placement.Height = 250 Placement.Height = 250
Placement.Width = 400 Placement.Width = 400
left = 136 Left = 136
top = 335 Top = 335
end end
object SQLTransaction1: TSQLTransaction object SQLTransaction1: TSQLTransaction
Active = False Active = False
Action = caCommitRetaining Action = caCommitRetaining
Database = IBConnection1 Database = IBConnection1
left = 256 Left = 256
top = 120 Top = 120
end end
object VpFirebirdDatastore1: TVpFirebirdDatastore object VpFirebirdDatastore1: TVpFirebirdDatastore
CategoryColorMap.Category0.Color = clNavy CategoryColorMap.Category0.Color = clNavy
@ -327,8 +324,8 @@ object Form1: TForm1
AutoConnect = False AutoConnect = False
AutoCreate = False AutoCreate = False
DayBuffer = 31 DayBuffer = 31
left = 136 Left = 136
top = 200 Top = 200
end end
object IBConnection1: TIBConnection object IBConnection1: TIBConnection
Connected = False Connected = False
@ -336,13 +333,15 @@ object Form1: TForm1
KeepConnection = False KeepConnection = False
Transaction = SQLTransaction1 Transaction = SQLTransaction1
CheckTransactionParams = False CheckTransactionParams = False
left = 136 UseConnectionCharSetIfNone = False
top = 120 Left = 136
Top = 120
end end
object SQLQuery1: TSQLQuery object SQLQuery1: TSQLQuery
FieldDefs = <> FieldDefs = <>
Params = <> Params = <>
left = 149 Macros = <>
top = 512 Left = 149
Top = 512
end end
end end

3
components/tvplanit/examples/datastores/flex/access/project1.lpi
View File

@ -64,6 +64,9 @@
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/> <UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
</SearchPaths> </SearchPaths>
<Linking> <Linking>
<Debugging>
<DebugInfoType Value="dsDwarf2Set"/>
</Debugging>
<Options> <Options>
<Win32> <Win32>
<GraphicApplication Value="True"/> <GraphicApplication Value="True"/>

109
components/tvplanit/examples/datastores/flex/access/unit1.lfm
View File

@ -8,7 +8,7 @@ object Form1: TForm1
ClientWidth = 980 ClientWidth = 980
OnCreate = FormCreate OnCreate = FormCreate
OnDestroy = FormDestroy OnDestroy = FormDestroy
LCLVersion = '1.9.0.0' LCLVersion = '2.3.0.0'
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Height = 33 Height = 33
@ -68,9 +68,9 @@ object Form1: TForm1
Height = 653 Height = 653
Top = 33 Top = 33
Width = 980 Width = 980
ActivePage = TabSheet3 ActivePage = TabSheet1
Align = alClient Align = alClient
TabIndex = 2 TabIndex = 0
TabOrder = 1 TabOrder = 1
OnChange = PageControl1Change OnChange = PageControl1Change
object TabSheet1: TTabSheet object TabSheet1: TTabSheet
@ -92,6 +92,7 @@ object Form1: TForm1
AllDayEventAttributes.BackgroundColor = clBtnShadow AllDayEventAttributes.BackgroundColor = clBtnShadow
AllDayEventAttributes.EventBorderColor = cl3DDkShadow AllDayEventAttributes.EventBorderColor = cl3DDkShadow
AllDayEventAttributes.EventBackgroundColor = clBtnFace AllDayEventAttributes.EventBackgroundColor = clBtnFace
AllowDragAndDrop = True
ShowEventTimes = False ShowEventTimes = False
DrawingStyle = dsFlat DrawingStyle = dsFlat
TimeSlotColors.Active = clWhite TimeSlotColors.Active = clWhite
@ -234,11 +235,11 @@ object Form1: TForm1
end end
object TabSheet2: TTabSheet object TabSheet2: TTabSheet
Caption = 'Contacts' Caption = 'Contacts'
ClientHeight = 624 ClientHeight = 625
ClientWidth = 972 ClientWidth = 972
object VpContactButtonBar1: TVpContactButtonBar object VpContactButtonBar1: TVpContactButtonBar
Left = 0 Left = 0
Height = 624 Height = 625
Top = 0 Top = 0
Width = 40 Width = 40
DrawingStyle = dsFlat DrawingStyle = dsFlat
@ -247,7 +248,7 @@ object Form1: TForm1
end end
object VpContactGrid1: TVpContactGrid object VpContactGrid1: TVpContactGrid
Left = 40 Left = 40
Height = 624 Height = 625
Top = 0 Top = 0
Width = 932 Width = 932
DataStore = VpFlexDataStore1 DataStore = VpFlexDataStore1
@ -344,17 +345,13 @@ object Form1: TForm1
end end
object VpControlLink1: TVpControlLink object VpControlLink1: TVpControlLink
DataStore = VpFlexDataStore1 DataStore = VpFlexDataStore1
Printer.BottomMargin = 0
Printer.DayStart = h_08 Printer.DayStart = h_08
Printer.DayEnd = h_05 Printer.DayEnd = h_05
Printer.Granularity = gr30Min Printer.Granularity = gr30Min
Printer.LeftMargin = 0
Printer.MarginUnits = imAbsolutePixel Printer.MarginUnits = imAbsolutePixel
Printer.PrintFormats = <> Printer.PrintFormats = <>
Printer.RightMargin = 0 Left = 136
Printer.TopMargin = 0 Top = 168
left = 136
top = 168
end end
object VpResourceEditDialog1: TVpResourceEditDialog object VpResourceEditDialog1: TVpResourceEditDialog
Version = 'v1.12' Version = 'v1.12'
@ -365,8 +362,8 @@ object Form1: TForm1
Placement.Left = 10 Placement.Left = 10
Placement.Height = 250 Placement.Height = 250
Placement.Width = 400 Placement.Width = 400
left = 136 Left = 136
top = 232 Top = 232
end end
object VpFlexDataStore1: TVpFlexDataStore object VpFlexDataStore1: TVpFlexDataStore
CategoryColorMap.Category0.Color = clNavy CategoryColorMap.Category0.Color = clNavy
@ -402,8 +399,8 @@ object Form1: TForm1
DataSources.TasksDataSource = DsTasks DataSources.TasksDataSource = DsTasks
ResourceID = 0 ResourceID = 0
OnCreateTable = VpFlexDataStore1CreateTable OnCreateTable = VpFlexDataStore1CreateTable
left = 136 Left = 136
top = 101 Top = 101
ResourceFieldMappings = ( ResourceFieldMappings = (
'ResourceID' 'ResourceID'
'ResourceID' 'ResourceID'
@ -591,23 +588,23 @@ object Form1: TForm1
end end
object DsResources: TDataSource object DsResources: TDataSource
DataSet = QryResources DataSet = QryResources
left = 240 Left = 240
top = 428 Top = 428
end end
object DsContacts: TDataSource object DsContacts: TDataSource
DataSet = QryContacts DataSet = QryContacts
left = 240 Left = 240
top = 496 Top = 496
end end
object DsEvents: TDataSource object DsEvents: TDataSource
DataSet = QryEvents DataSet = QryEvents
left = 240 Left = 240
top = 560 Top = 560
end end
object DsTasks: TDataSource object DsTasks: TDataSource
DataSet = QryTasks DataSet = QryTasks
left = 240 Left = 240
top = 621 Top = 621
end end
object QryResources: TSQLQuery object QryResources: TSQLQuery
PacketRecords = -1 PacketRecords = -1
@ -722,9 +719,10 @@ object Form1: TForm1
) )
Options = [sqoKeepOpenOnCommit, sqoAutoApplyUpdates, sqoAutoCommit] Options = [sqoKeepOpenOnCommit, sqoAutoApplyUpdates, sqoAutoCommit]
Params = <> Params = <>
Macros = <>
UsePrimaryKeyAsKey = False UsePrimaryKeyAsKey = False
left = 136 Left = 136
top = 428 Top = 428
end end
object QryContacts: TSQLQuery object QryContacts: TSQLQuery
PacketRecords = -1 PacketRecords = -1
@ -1065,9 +1063,10 @@ object Form1: TForm1
) )
Options = [sqoKeepOpenOnCommit, sqoAutoApplyUpdates, sqoAutoCommit] Options = [sqoKeepOpenOnCommit, sqoAutoApplyUpdates, sqoAutoCommit]
Params = <> Params = <>
Macros = <>
UsePrimaryKeyAsKey = False UsePrimaryKeyAsKey = False
left = 136 Left = 136
top = 496 Top = 496
end end
object QryEvents: TSQLQuery object QryEvents: TSQLQuery
PacketRecords = -1 PacketRecords = -1
@ -1196,9 +1195,10 @@ object Form1: TForm1
) )
Options = [sqoKeepOpenOnCommit, sqoAutoApplyUpdates, sqoAutoCommit] Options = [sqoKeepOpenOnCommit, sqoAutoApplyUpdates, sqoAutoCommit]
Params = <> Params = <>
Macros = <>
UsePrimaryKeyAsKey = False UsePrimaryKeyAsKey = False
left = 136 Left = 136
top = 560 Top = 560
end end
object QryTasks: TSQLQuery object QryTasks: TSQLQuery
PacketRecords = -1 PacketRecords = -1
@ -1283,9 +1283,10 @@ object Form1: TForm1
) )
Options = [sqoKeepOpenOnCommit, sqoAutoApplyUpdates, sqoAutoCommit] Options = [sqoKeepOpenOnCommit, sqoAutoApplyUpdates, sqoAutoCommit]
Params = <> Params = <>
Macros = <>
UsePrimaryKeyAsKey = False UsePrimaryKeyAsKey = False
left = 136 Left = 136
top = 621 Top = 621
end end
object ODBCConnection1: TODBCConnection object ODBCConnection1: TODBCConnection
Connected = False Connected = False
@ -1296,15 +1297,15 @@ object Form1: TForm1
) )
Transaction = SQLTransaction1 Transaction = SQLTransaction1
Driver = 'Microsoft Access Driver (*.mdb)' Driver = 'Microsoft Access Driver (*.mdb)'
left = 136 Left = 136
top = 304 Top = 304
end end
object SQLTransaction1: TSQLTransaction object SQLTransaction1: TSQLTransaction
Active = False Active = False
Action = caCommitRetaining Action = caCommitRetaining
Database = ODBCConnection1 Database = ODBCConnection1
left = 136 Left = 136
top = 368 Top = 368
end end
object QryAllResources: TSQLQuery object QryAllResources: TSQLQuery
PacketRecords = -1 PacketRecords = -1
@ -1407,10 +1408,11 @@ object Form1: TForm1
) )
Options = [sqoKeepOpenOnCommit, sqoAutoCommit] Options = [sqoKeepOpenOnCommit, sqoAutoCommit]
Params = <> Params = <>
Macros = <>
UpdateMode = upWhereAll UpdateMode = upWhereAll
UsePrimaryKeyAsKey = False UsePrimaryKeyAsKey = False
left = 531 Left = 531
top = 171 Top = 171
end end
object QryAllContacts: TSQLQuery object QryAllContacts: TSQLQuery
PacketRecords = -1 PacketRecords = -1
@ -1602,10 +1604,11 @@ object Form1: TForm1
) )
Options = [sqoKeepOpenOnCommit, sqoAutoCommit] Options = [sqoKeepOpenOnCommit, sqoAutoCommit]
Params = <> Params = <>
Macros = <>
UpdateMode = upWhereAll UpdateMode = upWhereAll
UsePrimaryKeyAsKey = False UsePrimaryKeyAsKey = False
left = 531 Left = 531
top = 225 Top = 225
end end
object QryAllEvents: TSQLQuery object QryAllEvents: TSQLQuery
PacketRecords = -1 PacketRecords = -1
@ -1620,10 +1623,11 @@ object Form1: TForm1
) )
Options = [sqoKeepOpenOnCommit, sqoAutoCommit] Options = [sqoKeepOpenOnCommit, sqoAutoCommit]
Params = <> Params = <>
Macros = <>
UpdateMode = upWhereAll UpdateMode = upWhereAll
UsePrimaryKeyAsKey = False UsePrimaryKeyAsKey = False
left = 531 Left = 531
top = 285 Top = 285
end end
object QryAllTasks: TSQLQuery object QryAllTasks: TSQLQuery
PacketRecords = -1 PacketRecords = -1
@ -1638,29 +1642,30 @@ object Form1: TForm1
) )
Options = [sqoKeepOpenOnCommit, sqoAutoCommit] Options = [sqoKeepOpenOnCommit, sqoAutoCommit]
Params = <> Params = <>
Macros = <>
UpdateMode = upWhereAll UpdateMode = upWhereAll
UsePrimaryKeyAsKey = False UsePrimaryKeyAsKey = False
left = 531 Left = 531
top = 352 Top = 352
end end
object DsAllResources: TDataSource object DsAllResources: TDataSource
DataSet = QryAllResources DataSet = QryAllResources
left = 627 Left = 627
top = 171 Top = 171
end end
object DsAllContacts: TDataSource object DsAllContacts: TDataSource
DataSet = QryAllContacts DataSet = QryAllContacts
left = 630 Left = 630
top = 225 Top = 225
end end
object DsAllEvents: TDataSource object DsAllEvents: TDataSource
DataSet = QryAllEvents DataSet = QryAllEvents
left = 625 Left = 625
top = 285 Top = 285
end end
object DsAllTasks: TDataSource object DsAllTasks: TDataSource
DataSet = QryAllTasks DataSet = QryAllTasks
left = 627 Left = 627
top = 352 Top = 352
end end
end end

3
components/tvplanit/examples/datastores/flex/sqlite3/project1.lpi
View File

@ -65,6 +65,9 @@
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/> <UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
</SearchPaths> </SearchPaths>
<Linking> <Linking>
<Debugging>
<DebugInfoType Value="dsDwarf2Set"/>
</Debugging>
<Options> <Options>
<Win32> <Win32>
<GraphicApplication Value="True"/> <GraphicApplication Value="True"/>

85
components/tvplanit/examples/datastores/flex/sqlite3/unit1.lfm
View File

@ -1,14 +1,14 @@
object Form1: TForm1 object Form1: TForm1
Left = 344 Left = 497
Height = 686 Height = 686
Top = 169 Top = 161
Width = 910 Width = 910
Caption = 'Form1' Caption = 'Form1'
ClientHeight = 686 ClientHeight = 686
ClientWidth = 910 ClientWidth = 910
OnCreate = FormCreate OnCreate = FormCreate
OnDestroy = FormDestroy OnDestroy = FormDestroy
LCLVersion = '1.6.4.0' LCLVersion = '2.3.0.0'
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Height = 33 Height = 33
@ -91,6 +91,7 @@ object Form1: TForm1
AllDayEventAttributes.BackgroundColor = clBtnShadow AllDayEventAttributes.BackgroundColor = clBtnShadow
AllDayEventAttributes.EventBorderColor = cl3DDkShadow AllDayEventAttributes.EventBorderColor = cl3DDkShadow
AllDayEventAttributes.EventBackgroundColor = clBtnFace AllDayEventAttributes.EventBackgroundColor = clBtnFace
AllowDragAndDrop = True
ShowEventTimes = False ShowEventTimes = False
DrawingStyle = dsFlat DrawingStyle = dsFlat
TimeSlotColors.Active = clWhite TimeSlotColors.Active = clWhite
@ -161,7 +162,6 @@ object Form1: TForm1
Align = alBottom Align = alBottom
TabStop = True TabStop = True
TabOrder = 1 TabOrder = 1
KBNavigation = True
DateLabelFormat = 'mmmm yyyy' DateLabelFormat = 'mmmm yyyy'
DayHeadAttributes.Font.Height = -13 DayHeadAttributes.Font.Height = -13
DayHeadAttributes.Font.Name = 'Tahoma' DayHeadAttributes.Font.Name = 'Tahoma'
@ -170,6 +170,7 @@ object Form1: TForm1
DrawingStyle = dsFlat DrawingStyle = dsFlat
EventDayStyle = [] EventDayStyle = []
HeadAttributes.Color = clBtnFace HeadAttributes.Color = clBtnFace
KBNavigation = True
OffDayColor = clSilver OffDayColor = clSilver
SelectedDayColor = clRed SelectedDayColor = clRed
ShowEvents = True ShowEvents = True
@ -233,11 +234,11 @@ object Form1: TForm1
end end
object TabSheet2: TTabSheet object TabSheet2: TTabSheet
Caption = 'Contacts' Caption = 'Contacts'
ClientHeight = 624 ClientHeight = 625
ClientWidth = 972 ClientWidth = 902
object VpContactButtonBar1: TVpContactButtonBar object VpContactButtonBar1: TVpContactButtonBar
Left = 0 Left = 0
Height = 624 Height = 625
Top = 0 Top = 0
Width = 40 Width = 40
DrawingStyle = dsFlat DrawingStyle = dsFlat
@ -246,9 +247,9 @@ object Form1: TForm1
end end
object VpContactGrid1: TVpContactGrid object VpContactGrid1: TVpContactGrid
Left = 40 Left = 40
Height = 624 Height = 625
Top = 0 Top = 0
Width = 932 Width = 862
DataStore = VpFlexDataStore1 DataStore = VpFlexDataStore1
ControlLink = VpControlLink1 ControlLink = VpControlLink1
Color = clWindow Color = clWindow
@ -267,20 +268,16 @@ object Form1: TForm1
end end
object VpControlLink1: TVpControlLink object VpControlLink1: TVpControlLink
DataStore = VpFlexDataStore1 DataStore = VpFlexDataStore1
Printer.BottomMargin = 0
Printer.DayStart = h_08 Printer.DayStart = h_08
Printer.DayEnd = h_05 Printer.DayEnd = h_05
Printer.Granularity = gr30Min Printer.Granularity = gr30Min
Printer.LeftMargin = 0
Printer.MarginUnits = imAbsolutePixel Printer.MarginUnits = imAbsolutePixel
Printer.PrintFormats = <> Printer.PrintFormats = <>
Printer.RightMargin = 0 Left = 136
Printer.TopMargin = 0 Top = 168
left = 136
top = 168
end end
object VpResourceEditDialog1: TVpResourceEditDialog object VpResourceEditDialog1: TVpResourceEditDialog
Version = 'v1.05' Version = 'v1.12'
DataStore = VpFlexDataStore1 DataStore = VpFlexDataStore1
Options = [] Options = []
Placement.Position = mpCenter Placement.Position = mpCenter
@ -288,8 +285,8 @@ object Form1: TForm1
Placement.Left = 10 Placement.Left = 10
Placement.Height = 250 Placement.Height = 250
Placement.Width = 400 Placement.Width = 400
left = 136 Left = 136
top = 232 Top = 232
end end
object VpFlexDataStore1: TVpFlexDataStore object VpFlexDataStore1: TVpFlexDataStore
CategoryColorMap.Category0.Color = clNavy CategoryColorMap.Category0.Color = clNavy
@ -324,8 +321,8 @@ object Form1: TForm1
DataSources.ContactsDataSource = DsContacts DataSources.ContactsDataSource = DsContacts
DataSources.TasksDataSource = DsTasks DataSources.TasksDataSource = DsTasks
ResourceID = 0 ResourceID = 0
left = 136 Left = 136
top = 101 Top = 101
ResourceFieldMappings = ( ResourceFieldMappings = (
'ResourceID' 'ResourceID'
'ResourceID' 'ResourceID'
@ -517,23 +514,23 @@ object Form1: TForm1
end end
object DsResources: TDataSource object DsResources: TDataSource
DataSet = QryResources DataSet = QryResources
left = 240 Left = 240
top = 428 Top = 428
end end
object DsContacts: TDataSource object DsContacts: TDataSource
DataSet = QryContacts DataSet = QryContacts
left = 240 Left = 240
top = 496 Top = 496
end end
object DsEvents: TDataSource object DsEvents: TDataSource
DataSet = QryEvents DataSet = QryEvents
left = 240 Left = 240
top = 560 Top = 560
end end
object DsTasks: TDataSource object DsTasks: TDataSource
DataSet = QryTasks DataSet = QryTasks
left = 240 Left = 240
top = 621 Top = 621
end end
object QryResources: TSQLQuery object QryResources: TSQLQuery
PacketRecords = -1 PacketRecords = -1
@ -577,8 +574,9 @@ object Form1: TForm1
'' ''
) )
Params = <> Params = <>
left = 136 Macros = <>
top = 428 Left = 136
Top = 428
end end
object QryContacts: TSQLQuery object QryContacts: TSQLQuery
PacketRecords = -1 PacketRecords = -1
@ -771,8 +769,9 @@ object Form1: TForm1
'' ''
) )
Params = <> Params = <>
left = 136 Macros = <>
top = 496 Left = 136
Top = 496
end end
object QryEvents: TSQLQuery object QryEvents: TSQLQuery
PacketRecords = -1 PacketRecords = -1
@ -878,8 +877,9 @@ object Form1: TForm1
'' ''
) )
Params = <> Params = <>
left = 136 Macros = <>
top = 560 Left = 136
Top = 560
end end
object QryTasks: TSQLQuery object QryTasks: TSQLQuery
PacketRecords = -1 PacketRecords = -1
@ -948,23 +948,24 @@ object Form1: TForm1
'' ''
) )
Params = <> Params = <>
left = 136 Macros = <>
top = 621 Left = 136
Top = 621
end end
object SQLTransaction1: TSQLTransaction object SQLTransaction1: TSQLTransaction
Active = False Active = False
Action = caCommitRetaining
Database = SQLite3Connection1 Database = SQLite3Connection1
Options = [] Left = 136
left = 136 Top = 368
top = 368
end end
object SQLite3Connection1: TSQLite3Connection object SQLite3Connection1: TSQLite3Connection
Connected = False Connected = False
LoginPrompt = False LoginPrompt = False
KeepConnection = False KeepConnection = False
Transaction = SQLTransaction1 Transaction = SQLTransaction1
Options = [] AlwaysUseBigint = False
left = 136 Left = 136
top = 312 Top = 312
end end
end end

8
components/tvplanit/examples/datastores/flex/sqlite3/unit1.pas
View File

@ -103,7 +103,7 @@ end;
procedure TForm1.CreateDB(AFileName: String); procedure TForm1.CreateDB(AFileName: String);
begin begin
SQLite3Connection1.Close; // Ensure the connection is closed when we start SQLite3Connection1.Close; // Ensure the connection is closed when we start
// Create the database and the tables // Create the database and the tables
try try
SQLite3Connection1.DatabaseName := AFileName; SQLite3Connection1.DatabaseName := AFileName;
@ -285,7 +285,13 @@ begin
// Transaction // Transaction
SQLTransaction1.DataBase := Sqlite3Connection1; SQLTransaction1.DataBase := Sqlite3Connection1;
SQLTransaction1.Action := caCommitRetaining;
QryResources.Options := QryResources.Options + [sqoAutoApplyUpdates];
QryEvents.Options := QryEvents.Options + [sqoAutoApplyUpdates];
QryTasks.Options := QryTasks.Options + [sqoAutoApplyUpdates];
QryContacts.Options := QryContacts.Options + [sqoAutoApplyUpdates];
if not FileExists(AppendPathDelim(Application.Location) + DB_NAME) then if not FileExists(AppendPathDelim(Application.Location) + DB_NAME) then
CreateDB(AppendPathDelim(Application.Location) + DB_NAME); CreateDB(AppendPathDelim(Application.Location) + DB_NAME);

7
components/tvplanit/examples/datastores/ini/project1.lpi
View File

@ -1,11 +1,13 @@
<?xml version="1.0" encoding="UTF-8"?> <?xml version="1.0" encoding="UTF-8"?>
<CONFIG> <CONFIG>
<ProjectOptions> <ProjectOptions>
<Version Value="11"/> <Version Value="12"/>
<PathDelim Value="\"/> <PathDelim Value="\"/>
<General> <General>
<Flags>
<CompatibilityMode Value="True"/>
</Flags>
<SessionStorage Value="InProjectDir"/> <SessionStorage Value="InProjectDir"/>
<MainUnit Value="0"/>
<Title Value="project1"/> <Title Value="project1"/>
<ResourceType Value="res"/> <ResourceType Value="res"/>
<UseXPManifest Value="True"/> <UseXPManifest Value="True"/>
@ -57,6 +59,7 @@
</SearchPaths> </SearchPaths>
<Linking> <Linking>
<Debugging> <Debugging>
<DebugInfoType Value="dsDwarf2Set"/>
<UseExternalDbgSyms Value="True"/> <UseExternalDbgSyms Value="True"/>
</Debugging> </Debugging>
<Options> <Options>

37
components/tvplanit/examples/datastores/ini/unit1.lfm
View File

@ -7,7 +7,7 @@ object Form1: TForm1
ClientHeight = 686 ClientHeight = 686
ClientWidth = 980 ClientWidth = 980
OnCreate = FormCreate OnCreate = FormCreate
LCLVersion = '1.6.4.0' LCLVersion = '2.3.0.0'
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Height = 33 Height = 33
@ -90,6 +90,7 @@ object Form1: TForm1
AllDayEventAttributes.BackgroundColor = clBtnShadow AllDayEventAttributes.BackgroundColor = clBtnShadow
AllDayEventAttributes.EventBorderColor = cl3DDkShadow AllDayEventAttributes.EventBorderColor = cl3DDkShadow
AllDayEventAttributes.EventBackgroundColor = clBtnFace AllDayEventAttributes.EventBackgroundColor = clBtnFace
AllowDragAndDrop = True
ShowEventTimes = False ShowEventTimes = False
DrawingStyle = dsFlat DrawingStyle = dsFlat
TimeSlotColors.Active = clWhite TimeSlotColors.Active = clWhite
@ -160,7 +161,6 @@ object Form1: TForm1
Align = alBottom Align = alBottom
TabStop = True TabStop = True
TabOrder = 1 TabOrder = 1
KBNavigation = True
DateLabelFormat = 'mmmm yyyy' DateLabelFormat = 'mmmm yyyy'
DayHeadAttributes.Font.Height = -13 DayHeadAttributes.Font.Height = -13
DayHeadAttributes.Font.Name = 'Tahoma' DayHeadAttributes.Font.Name = 'Tahoma'
@ -169,6 +169,7 @@ object Form1: TForm1
DrawingStyle = dsFlat DrawingStyle = dsFlat
EventDayStyle = [] EventDayStyle = []
HeadAttributes.Color = clBtnFace HeadAttributes.Color = clBtnFace
KBNavigation = True
OffDayColor = clSilver OffDayColor = clSilver
SelectedDayColor = clRed SelectedDayColor = clRed
ShowEvents = True ShowEvents = True
@ -232,11 +233,11 @@ object Form1: TForm1
end end
object TabSheet2: TTabSheet object TabSheet2: TTabSheet
Caption = 'Contacts' Caption = 'Contacts'
ClientHeight = 594 ClientHeight = 625
ClientWidth = 928 ClientWidth = 972
object VpContactButtonBar1: TVpContactButtonBar object VpContactButtonBar1: TVpContactButtonBar
Left = 0 Left = 0
Height = 594 Height = 625
Top = 0 Top = 0
Width = 40 Width = 40
DrawingStyle = dsFlat DrawingStyle = dsFlat
@ -245,9 +246,9 @@ object Form1: TForm1
end end
object VpContactGrid1: TVpContactGrid object VpContactGrid1: TVpContactGrid
Left = 40 Left = 40
Height = 594 Height = 625
Top = 0 Top = 0
Width = 888 Width = 932
DataStore = VpIniDatastore1 DataStore = VpIniDatastore1
ControlLink = VpControlLink1 ControlLink = VpControlLink1
Color = clWindow Color = clWindow
@ -266,20 +267,16 @@ object Form1: TForm1
end end
object VpControlLink1: TVpControlLink object VpControlLink1: TVpControlLink
DataStore = VpIniDatastore1 DataStore = VpIniDatastore1
Printer.BottomMargin = 0
Printer.DayStart = h_08 Printer.DayStart = h_08
Printer.DayEnd = h_05 Printer.DayEnd = h_05
Printer.Granularity = gr30Min Printer.Granularity = gr30Min
Printer.LeftMargin = 0
Printer.MarginUnits = imAbsolutePixel Printer.MarginUnits = imAbsolutePixel
Printer.PrintFormats = <> Printer.PrintFormats = <>
Printer.RightMargin = 0 Left = 136
Printer.TopMargin = 0 Top = 264
left = 136
top = 264
end end
object VpResourceEditDialog1: TVpResourceEditDialog object VpResourceEditDialog1: TVpResourceEditDialog
Version = 'v1.05' Version = 'v1.12'
DataStore = VpIniDatastore1 DataStore = VpIniDatastore1
Options = [] Options = []
Placement.Position = mpCenter Placement.Position = mpCenter
@ -287,8 +284,8 @@ object Form1: TForm1
Placement.Left = 10 Placement.Left = 10
Placement.Height = 250 Placement.Height = 250
Placement.Width = 400 Placement.Width = 400
left = 136 Left = 136
top = 335 Top = 335
end end
object VpIniDatastore1: TVpIniDatastore object VpIniDatastore1: TVpIniDatastore
CategoryColorMap.Category0.Color = clNavy CategoryColorMap.Category0.Color = clNavy
@ -317,11 +314,11 @@ object Form1: TForm1
PlayEventSounds = True PlayEventSounds = True
AutoConnect = True AutoConnect = True
FileName = 'data.ini' FileName = 'data.ini'
left = 136 Left = 136
top = 200 Top = 200
end end
object PopupMenu1: TPopupMenu object PopupMenu1: TPopupMenu
left = 129 Left = 129
top = 527 Top = 527
end end
end end

7
components/tvplanit/examples/datastores/json/project1.lpi
View File

@ -1,11 +1,13 @@
<?xml version="1.0" encoding="UTF-8"?> <?xml version="1.0" encoding="UTF-8"?>
<CONFIG> <CONFIG>
<ProjectOptions> <ProjectOptions>
<Version Value="11"/> <Version Value="12"/>
<PathDelim Value="\"/> <PathDelim Value="\"/>
<General> <General>
<Flags>
<CompatibilityMode Value="True"/>
</Flags>
<SessionStorage Value="InProjectDir"/> <SessionStorage Value="InProjectDir"/>
<MainUnit Value="0"/>
<Title Value="project1"/> <Title Value="project1"/>
<ResourceType Value="res"/> <ResourceType Value="res"/>
<UseXPManifest Value="True"/> <UseXPManifest Value="True"/>
@ -57,6 +59,7 @@
</SearchPaths> </SearchPaths>
<Linking> <Linking>
<Debugging> <Debugging>
<DebugInfoType Value="dsDwarf2Set"/>
<UseExternalDbgSyms Value="True"/> <UseExternalDbgSyms Value="True"/>
</Debugging> </Debugging>
<Options> <Options>

29
components/tvplanit/examples/datastores/json/unit1.lfm
View File

@ -7,7 +7,7 @@ object Form1: TForm1
ClientHeight = 686 ClientHeight = 686
ClientWidth = 980 ClientWidth = 980
OnCreate = FormCreate OnCreate = FormCreate
LCLVersion = '2.1.0.0' LCLVersion = '2.3.0.0'
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Height = 33 Height = 33
@ -93,6 +93,7 @@ object Form1: TForm1
AllDayEventAttributes.EventBorderColor = cl3DDkShadow AllDayEventAttributes.EventBorderColor = cl3DDkShadow
AllDayEventAttributes.EventBackgroundColor = clBtnFace AllDayEventAttributes.EventBackgroundColor = clBtnFace
AllDayEventAttributes.Font.Height = -12 AllDayEventAttributes.Font.Height = -12
AllowDragAndDrop = True
ShowEventTimes = False ShowEventTimes = False
DrawingStyle = dsFlat DrawingStyle = dsFlat
TimeSlotColors.Active = clWhite TimeSlotColors.Active = clWhite
@ -245,11 +246,11 @@ object Form1: TForm1
end end
object TabSheet2: TTabSheet object TabSheet2: TTabSheet
Caption = 'Contacts' Caption = 'Contacts'
ClientHeight = 624 ClientHeight = 625
ClientWidth = 972 ClientWidth = 972
object VpContactButtonBar1: TVpContactButtonBar object VpContactButtonBar1: TVpContactButtonBar
Left = 0 Left = 0
Height = 624 Height = 625
Top = 0 Top = 0
Width = 40 Width = 40
DrawingStyle = dsFlat DrawingStyle = dsFlat
@ -258,7 +259,7 @@ object Form1: TForm1
end end
object VpContactGrid1: TVpContactGrid object VpContactGrid1: TVpContactGrid
Left = 40 Left = 40
Height = 624 Height = 625
Top = 0 Top = 0
Width = 932 Width = 932
DataStore = VpJSONDataStore1 DataStore = VpJSONDataStore1
@ -282,17 +283,13 @@ object Form1: TForm1
end end
object VpControlLink1: TVpControlLink object VpControlLink1: TVpControlLink
DataStore = VpJSONDataStore1 DataStore = VpJSONDataStore1
Printer.BottomMargin = 0
Printer.DayStart = h_08 Printer.DayStart = h_08
Printer.DayEnd = h_05 Printer.DayEnd = h_05
Printer.Granularity = gr30Min Printer.Granularity = gr30Min
Printer.LeftMargin = 0
Printer.MarginUnits = imAbsolutePixel Printer.MarginUnits = imAbsolutePixel
Printer.PrintFormats = <> Printer.PrintFormats = <>
Printer.RightMargin = 0 Left = 136
Printer.TopMargin = 0 Top = 264
left = 136
top = 264
end end
object VpResourceEditDialog1: TVpResourceEditDialog object VpResourceEditDialog1: TVpResourceEditDialog
Version = 'v1.12' Version = 'v1.12'
@ -303,12 +300,12 @@ object Form1: TForm1
Placement.Left = 10 Placement.Left = 10
Placement.Height = 250 Placement.Height = 250
Placement.Width = 400 Placement.Width = 400
left = 136 Left = 136
top = 335 Top = 335
end end
object PopupMenu1: TPopupMenu object PopupMenu1: TPopupMenu
left = 129 Left = 129
top = 527 Top = 527
end end
object VpJSONDataStore1: TVpJSONDataStore object VpJSONDataStore1: TVpJSONDataStore
CategoryColorMap.Category0.Color = clNavy CategoryColorMap.Category0.Color = clNavy
@ -337,7 +334,7 @@ object Form1: TForm1
PlayEventSounds = True PlayEventSounds = True
OnDisconnect = VpJSONDataStore1Disconnect OnDisconnect = VpJSONDataStore1Disconnect
FileName = 'data.json' FileName = 'data.json'
left = 136 Left = 136
top = 192 Top = 192
end end
end end

3
components/tvplanit/examples/datastores/xml/project1.lpi
View File

@ -58,6 +58,9 @@
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/> <UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
</SearchPaths> </SearchPaths>
<Linking> <Linking>
<Debugging>
<DebugInfoType Value="dsDwarf2Set"/>
</Debugging>
<Options> <Options>
<Win32> <Win32>
<GraphicApplication Value="True"/> <GraphicApplication Value="True"/>

3
components/tvplanit/examples/datastores/xml/unit1.lfm
View File

@ -7,7 +7,7 @@ object Form1: TForm1
ClientHeight = 686 ClientHeight = 686
ClientWidth = 980 ClientWidth = 980
OnCreate = FormCreate OnCreate = FormCreate
LCLVersion = '2.0.0.3' LCLVersion = '2.3.0.0'
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Height = 33 Height = 33
@ -93,6 +93,7 @@ object Form1: TForm1
AllDayEventAttributes.EventBorderColor = cl3DDkShadow AllDayEventAttributes.EventBorderColor = cl3DDkShadow
AllDayEventAttributes.EventBackgroundColor = clBtnFace AllDayEventAttributes.EventBackgroundColor = clBtnFace
AllDayEventAttributes.Font.Height = -12 AllDayEventAttributes.Font.Height = -12
AllowDragAndDrop = True
ShowEventTimes = False ShowEventTimes = False
DrawingStyle = dsFlat DrawingStyle = dsFlat
TimeSlotColors.Active = clWhite TimeSlotColors.Active = clWhite

3
components/tvplanit/examples/datastores/zeos/project1.lpi
View File

@ -68,6 +68,9 @@
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/> <UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
</SearchPaths> </SearchPaths>
<Linking> <Linking>
<Debugging>
<DebugInfoType Value="dsDwarf2Set"/>
</Debugging>
<Options> <Options>
<Win32> <Win32>
<GraphicApplication Value="True"/> <GraphicApplication Value="True"/>

39
components/tvplanit/examples/datastores/zeos/unit1.lfm
View File

@ -7,7 +7,7 @@ object Form1: TForm1
ClientHeight = 686 ClientHeight = 686
ClientWidth = 980 ClientWidth = 980
OnCreate = FormCreate OnCreate = FormCreate
LCLVersion = '1.9.0.0' LCLVersion = '2.3.0.0'
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Height = 33 Height = 33
@ -90,6 +90,7 @@ object Form1: TForm1
AllDayEventAttributes.BackgroundColor = clBtnShadow AllDayEventAttributes.BackgroundColor = clBtnShadow
AllDayEventAttributes.EventBorderColor = cl3DDkShadow AllDayEventAttributes.EventBorderColor = cl3DDkShadow
AllDayEventAttributes.EventBackgroundColor = clBtnFace AllDayEventAttributes.EventBackgroundColor = clBtnFace
AllowDragAndDrop = True
ShowEventTimes = False ShowEventTimes = False
DrawingStyle = dsFlat DrawingStyle = dsFlat
TimeSlotColors.Active = clWhite TimeSlotColors.Active = clWhite
@ -232,11 +233,11 @@ object Form1: TForm1
end end
object TabSheet2: TTabSheet object TabSheet2: TTabSheet
Caption = 'Contacts' Caption = 'Contacts'
ClientHeight = 594 ClientHeight = 625
ClientWidth = 928 ClientWidth = 972
object VpContactButtonBar1: TVpContactButtonBar object VpContactButtonBar1: TVpContactButtonBar
Left = 0 Left = 0
Height = 594 Height = 625
Top = 0 Top = 0
Width = 40 Width = 40
DrawingStyle = dsFlat DrawingStyle = dsFlat
@ -245,9 +246,9 @@ object Form1: TForm1
end end
object VpContactGrid1: TVpContactGrid object VpContactGrid1: TVpContactGrid
Left = 40 Left = 40
Height = 594 Height = 625
Top = 0 Top = 0
Width = 888 Width = 932
DataStore = VpZeosDatastore1 DataStore = VpZeosDatastore1
ControlLink = VpControlLink1 ControlLink = VpControlLink1
Color = clWindow Color = clWindow
@ -270,8 +271,8 @@ object Form1: TForm1
'AutoEncodeStrings=ON' 'AutoEncodeStrings=ON'
) )
Port = 0 Port = 0
left = 136 Left = 136
top = 136 Top = 136
end end
object VpZeosDatastore1: TVpZeosDatastore object VpZeosDatastore1: TVpZeosDatastore
CategoryColorMap.Category0.Color = clNavy CategoryColorMap.Category0.Color = clNavy
@ -300,25 +301,21 @@ object Form1: TForm1
PlayEventSounds = True PlayEventSounds = True
AutoCreate = True AutoCreate = True
Daybuffer = 31 Daybuffer = 31
left = 136 Left = 136
top = 200 Top = 200
end end
object VpControlLink1: TVpControlLink object VpControlLink1: TVpControlLink
DataStore = VpZeosDatastore1 DataStore = VpZeosDatastore1
Printer.BottomMargin = 0
Printer.DayStart = h_08 Printer.DayStart = h_08
Printer.DayEnd = h_05 Printer.DayEnd = h_05
Printer.Granularity = gr30Min Printer.Granularity = gr30Min
Printer.LeftMargin = 0
Printer.MarginUnits = imAbsolutePixel Printer.MarginUnits = imAbsolutePixel
Printer.PrintFormats = <> Printer.PrintFormats = <>
Printer.RightMargin = 0 Left = 136
Printer.TopMargin = 0 Top = 264
left = 136
top = 264
end end
object VpResourceEditDialog1: TVpResourceEditDialog object VpResourceEditDialog1: TVpResourceEditDialog
Version = 'v1.10' Version = 'v1.12'
DataStore = VpZeosDatastore1 DataStore = VpZeosDatastore1
Options = [] Options = []
Placement.Position = mpCenter Placement.Position = mpCenter
@ -326,11 +323,11 @@ object Form1: TForm1
Placement.Left = 10 Placement.Left = 10
Placement.Height = 250 Placement.Height = 250
Placement.Width = 400 Placement.Width = 400
left = 136 Left = 136
top = 335 Top = 335
end end
object ZTable1: TZTable object ZTable1: TZTable
left = 136 Left = 136
top = 536 Top = 536
end end
end end

2
components/tvplanit/examples/datastores/zeos/unit1.pas
View File

@ -80,7 +80,7 @@ procedure TForm1.FormCreate(Sender: TObject);
begin begin
try try
ZConnection1.Database := AppendPathDelim(Application.Location) + DBFILENAME; ZConnection1.Database := AppendPathDelim(Application.Location) + DBFILENAME;
ZConnection1.Protocol := 'sqlite-3'; ZConnection1.Protocol := 'sqlite'; //-3';
// ZConnection1.Connect; // activate this to test issue #33717 // ZConnection1.Connect; // activate this to test issue #33717