From 58c1cdc162f864593fdc63f951e718a0d5822f2a Mon Sep 17 00:00:00 2001 From: wp_xxyyzz Date: Tue, 26 Jul 2016 09:30:20 +0000 Subject: [PATCH] tvplanit: Publish inherited DayBuffer for all dataset-dependent DataStores. Extend DayBuffer to "forever" for all non-dataset DataStores. Remove published property Connected (sorry - this will break existing lfm files..., but Connected is for designtime connection which tvplanit does not support). git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5034 8e941d3f-bd1b-0410-a28a-d453659cc2b4 --- .../tvplanit/examples/datastores/sqlite3/unit1.lfm | 1 - components/tvplanit/examples/datastores/xml/unit1.lfm | 10 ++++------ components/tvplanit/examples/datastores/xml/unit1.pas | 1 - .../tvplanit/examples/datastores/zteos/unit1.lfm | 1 - components/tvplanit/source/addons/zeos/vpzeosds.pas | 6 +++--- components/tvplanit/source/vpbufds.pas | 1 + components/tvplanit/source/vpinids.pas | 1 + components/tvplanit/source/vpsqlite3ds.pas | 2 +- components/tvplanit/source/vpxmlds.pas | 2 +- 9 files changed, 11 insertions(+), 14 deletions(-) diff --git a/components/tvplanit/examples/datastores/sqlite3/unit1.lfm b/components/tvplanit/examples/datastores/sqlite3/unit1.lfm index 22194d586..b5cb35b24 100644 --- a/components/tvplanit/examples/datastores/sqlite3/unit1.lfm +++ b/components/tvplanit/examples/datastores/sqlite3/unit1.lfm @@ -297,7 +297,6 @@ object Form1: TForm1 Connection = SQLite3Connection1 AutoConnect = False AutoCreate = False - Connected = False left = 136 top = 192 end diff --git a/components/tvplanit/examples/datastores/xml/unit1.lfm b/components/tvplanit/examples/datastores/xml/unit1.lfm index 04dc7cf43..4e0f099a6 100644 --- a/components/tvplanit/examples/datastores/xml/unit1.lfm +++ b/components/tvplanit/examples/datastores/xml/unit1.lfm @@ -164,8 +164,12 @@ object Form1: TForm1 DrawingStyle = dsFlat EventDayStyle = [] EventFont.Height = -12 + HeadAttributes.Color = clBtnFace LineColor = clGray TimeFormat = tf12Hour + TodayAttributes.Color = clSilver + TodayAttributes.BorderPen.Color = clRed + TodayAttributes.BorderPen.Width = 3 OffDayColor = clSilver SelectedDayColor = clRed ShowEvents = True @@ -315,14 +319,8 @@ object Form1: TForm1 EnableEventTimer = True PlayEventSounds = True AutoConnect = True - Connected = False FileName = 'data.xml' left = 136 top = 202 end - object XMLPropStorage1: TXMLPropStorage - StoredValues = <> - left = 222 - top = 118 - end end diff --git a/components/tvplanit/examples/datastores/xml/unit1.pas b/components/tvplanit/examples/datastores/xml/unit1.pas index f5973536c..43d09c589 100644 --- a/components/tvplanit/examples/datastores/xml/unit1.pas +++ b/components/tvplanit/examples/datastores/xml/unit1.pas @@ -36,7 +36,6 @@ type VpTaskList1: TVpTaskList; VpWeekView1: TVpWeekView; VpXmlDatastore1: TVpXmlDatastore; - XMLPropStorage1: TXMLPropStorage; procedure BtnNewResClick(Sender: TObject); procedure BtnEditResClick(Sender: TObject); procedure FormCreate(Sender: TObject); diff --git a/components/tvplanit/examples/datastores/zteos/unit1.lfm b/components/tvplanit/examples/datastores/zteos/unit1.lfm index fe5a8d54e..f34a7e02e 100644 --- a/components/tvplanit/examples/datastores/zteos/unit1.lfm +++ b/components/tvplanit/examples/datastores/zteos/unit1.lfm @@ -280,7 +280,6 @@ object Form1: TForm1 PlayEventSounds = True AutoConnect = False AutoCreate = False - Connected = False left = 136 top = 200 end diff --git a/components/tvplanit/source/addons/zeos/vpzeosds.pas b/components/tvplanit/source/addons/zeos/vpzeosds.pas index fb3cee6e2..f26f1aeac 100644 --- a/components/tvplanit/source/addons/zeos/vpzeosds.pas +++ b/components/tvplanit/source/addons/zeos/vpzeosds.pas @@ -44,9 +44,9 @@ type property Connection: TZConnection read FConnection write SetConnection; // inherited - property AutoConnect; - property AutoCreate; - property Connected; + property AutoConnect default false; + property AutoCreate default false; + property Daybuffer; end; diff --git a/components/tvplanit/source/vpbufds.pas b/components/tvplanit/source/vpbufds.pas index ea72066f3..7f1456652 100644 --- a/components/tvplanit/source/vpbufds.pas +++ b/components/tvplanit/source/vpbufds.pas @@ -55,6 +55,7 @@ type published property AutoConnect; property AutoCreate; + property DayBuffer; property Directory: String read FDirectory write SetDirectory; property Persistent: Boolean read FPersistent write SetPersistent default true; property UseAutoIncFields: Boolean read FUseAutoInc write SetUseAutoInc default true; diff --git a/components/tvplanit/source/vpinids.pas b/components/tvplanit/source/vpinids.pas index 88c33088e..a23ce7df5 100644 --- a/components/tvplanit/source/vpinids.pas +++ b/components/tvplanit/source/vpinids.pas @@ -79,6 +79,7 @@ begin FFormatSettings.LongTimeFormat := 'hh:nn:ss'; FFormatSettings.DateSeparator := '/'; FFormatSettings.TimeSeparator := ':'; + FDayBuffer := 1000*365; // 1000 years, i.e. deactivate daybuffer mechanism end; destructor TVpIniDatastore.Destroy; diff --git a/components/tvplanit/source/vpsqlite3ds.pas b/components/tvplanit/source/vpsqlite3ds.pas index fc4dd2c0a..ec64154ec 100644 --- a/components/tvplanit/source/vpsqlite3ds.pas +++ b/components/tvplanit/source/vpsqlite3ds.pas @@ -50,7 +50,7 @@ type // inherited property AutoConnect; property AutoCreate; - property Connected; + property DayBuffer; end; var diff --git a/components/tvplanit/source/vpxmlds.pas b/components/tvplanit/source/vpxmlds.pas index beb6c5112..cf95d6d94 100644 --- a/components/tvplanit/source/vpxmlds.pas +++ b/components/tvplanit/source/vpxmlds.pas @@ -64,7 +64,6 @@ type published property AutoConnect default false; - property Connected; property FileName: String read FFileName write SetFileName; property ParentNode: String read FParentNode write SetParentNode; @@ -209,6 +208,7 @@ begin FXmlSettings.LongTimeFormat := 'hh:nn:ss'; FXmlSettings.DateSeparator := '/'; FXmlSettings.TimeSeparator := ':'; + FDayBuffer := 1000*365; // 1000 years, i.e. deactivate daybuffer mechanism end; destructor TVpXmlDatastore.Destroy;