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
AutoConnect = False
AutoCreate = False
Connected = False
left = 136
top = 192
end

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

@ -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

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

@ -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);

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

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

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

@ -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;

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

@ -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;

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

@ -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;

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

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

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

@ -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;