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

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).

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5034 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-07-26 09:30:20 +00:00
parent 3ea2ac3304
commit 58c1cdc162
9 changed files with 11 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
components/tvplanit/examples/datastores/sqlite3/unit1.lfm
View File

@@ -297,7 +297,6 @@ object Form1: TForm1
Connection = SQLite3Connection1 Connection = SQLite3Connection1
AutoConnect = False AutoConnect = False
AutoCreate = False AutoCreate = False
Connected = False
left = 136 left = 136
top = 192 top = 192
end end

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

@@ -164,8 +164,12 @@ object Form1: TForm1
DrawingStyle = dsFlat DrawingStyle = dsFlat
EventDayStyle = [] EventDayStyle = []
EventFont.Height = -12 EventFont.Height = -12
HeadAttributes.Color = clBtnFace
LineColor = clGray LineColor = clGray
TimeFormat = tf12Hour TimeFormat = tf12Hour
TodayAttributes.Color = clSilver
TodayAttributes.BorderPen.Color = clRed
TodayAttributes.BorderPen.Width = 3
OffDayColor = clSilver OffDayColor = clSilver
SelectedDayColor = clRed SelectedDayColor = clRed
ShowEvents = True ShowEvents = True
@@ -315,14 +319,8 @@ object Form1: TForm1
EnableEventTimer = True EnableEventTimer = True
PlayEventSounds = True PlayEventSounds = True
AutoConnect = True AutoConnect = True
Connected = False
FileName = 'data.xml' FileName = 'data.xml'
left = 136 left = 136
top = 202 top = 202
end end
object XMLPropStorage1: TXMLPropStorage
StoredValues = <>
left = 222
top = 118
end
end end

1
components/tvplanit/examples/datastores/xml/unit1.pas
View File

@@ -36,7 +36,6 @@ type
VpTaskList1: TVpTaskList; VpTaskList1: TVpTaskList;
VpWeekView1: TVpWeekView; VpWeekView1: TVpWeekView;
VpXmlDatastore1: TVpXmlDatastore; VpXmlDatastore1: TVpXmlDatastore;
XMLPropStorage1: TXMLPropStorage;
procedure BtnNewResClick(Sender: TObject); procedure BtnNewResClick(Sender: TObject);
procedure BtnEditResClick(Sender: TObject); procedure BtnEditResClick(Sender: TObject);
procedure FormCreate(Sender: TObject); procedure FormCreate(Sender: TObject);

1
components/tvplanit/examples/datastores/zteos/unit1.lfm
View File

@@ -280,7 +280,6 @@ object Form1: TForm1
PlayEventSounds = True PlayEventSounds = True
AutoConnect = False AutoConnect = False
AutoCreate = False AutoCreate = False
Connected = False
left = 136 left = 136
top = 200 top = 200
end end

6
components/tvplanit/source/addons/zeos/vpzeosds.pas
View File

@@ -44,9 +44,9 @@ type
property Connection: TZConnection read FConnection write SetConnection; property Connection: TZConnection read FConnection write SetConnection;
// inherited // inherited
property AutoConnect; property AutoConnect default false;
property AutoCreate; property AutoCreate default false;
property Connected; property Daybuffer;
end; end;

1
components/tvplanit/source/vpbufds.pas
View File

@@ -55,6 +55,7 @@ type
published published
property AutoConnect; property AutoConnect;
property AutoCreate; property AutoCreate;
property DayBuffer;
property Directory: String read FDirectory write SetDirectory; property Directory: String read FDirectory write SetDirectory;
property Persistent: Boolean read FPersistent write SetPersistent default true; property Persistent: Boolean read FPersistent write SetPersistent default true;
property UseAutoIncFields: Boolean read FUseAutoInc write SetUseAutoInc default true; property UseAutoIncFields: Boolean read FUseAutoInc write SetUseAutoInc default true;

1
components/tvplanit/source/vpinids.pas
View File

@@ -79,6 +79,7 @@ begin
FFormatSettings.LongTimeFormat := 'hh:nn:ss'; FFormatSettings.LongTimeFormat := 'hh:nn:ss';
FFormatSettings.DateSeparator := '/'; FFormatSettings.DateSeparator := '/';
FFormatSettings.TimeSeparator := ':'; FFormatSettings.TimeSeparator := ':';
FDayBuffer := 1000*365; // 1000 years, i.e. deactivate daybuffer mechanism
end; end;
destructor TVpIniDatastore.Destroy; destructor TVpIniDatastore.Destroy;

2
components/tvplanit/source/vpsqlite3ds.pas
View File

@@ -50,7 +50,7 @@ type
// inherited // inherited
property AutoConnect; property AutoConnect;
property AutoCreate; property AutoCreate;
property Connected; property DayBuffer;
end; end;
var var

2
components/tvplanit/source/vpxmlds.pas
View File

@@ -64,7 +64,6 @@ type
published published
property AutoConnect default false; property AutoConnect default false;
property Connected;
property FileName: String read FFileName write SetFileName; property FileName: String read FFileName write SetFileName;
property ParentNode: String read FParentNode write SetParentNode; property ParentNode: String read FParentNode write SetParentNode;
@@ -209,6 +208,7 @@ begin
FXmlSettings.LongTimeFormat := 'hh:nn:ss'; FXmlSettings.LongTimeFormat := 'hh:nn:ss';
FXmlSettings.DateSeparator := '/'; FXmlSettings.DateSeparator := '/';
FXmlSettings.TimeSeparator := ':'; FXmlSettings.TimeSeparator := ':';
FDayBuffer := 1000*365; // 1000 years, i.e. deactivate daybuffer mechanism
end; end;
destructor TVpXmlDatastore.Destroy; destructor TVpXmlDatastore.Destroy;