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

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

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