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

TvPlanIt: Declare some datastore properties with "default" attribute.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8362 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2022-07-22 15:49:07 +00:00
parent c5ac251a79
commit d53bd0e500
1 changed files with 7 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
components/tvplanit/source/vpbaseds.pas
View File

@ -268,8 +268,8 @@ type
procedure LinkToControls(AOwner: TComponent);
procedure UnlinkFromControls(AOwner: TComponent);
property AutoConnect: Boolean read FAutoConnect write SetAutoConnect;
property AutoCreate: Boolean read FAutoCreate write FAutoCreate;
property AutoConnect: Boolean read FAutoConnect write SetAutoConnect default false;
property AutoCreate: Boolean read FAutoCreate write FAutoCreate default true;
public
constructor Create(AOwner: TComponent); override;
@ -315,9 +315,9 @@ type
property Connected : boolean read FConnected write SetConnected;
property Loading : Boolean read FLoading write FLoading;
property Resource: TVpResource read FResource write SetResource;
property ResourceID: Integer read FResourceID write SetResourceID;
property ResourceID: Integer read FResourceID write SetResourceID default 0;
property Resources: TVpResources read FResources;
property DayBuffer: Integer read FDayBuffer write SetDayBuffer;
property DayBuffer: Integer read FDayBuffer write SetDayBuffer default 31;
property Date: TDateTime read FActiveDate write SetActiveDate;
property TimeRange: TVpTimeRange read FTimeRange;
@ -337,9 +337,9 @@ type
property DefaultEventSound: string
read FDefaultEventSound write FDefaultEventSound;
property EnableEventTimer: Boolean
read FEventTimerEnabled write SetEventTimerEnabled;
read FEventTimerEnabled write SetEventTimerEnabled default true;
property PlayEventSounds: Boolean
read FPlayEventSounds write FPlayEventSounds;
read FPlayEventSounds write FPlayEventSounds default true;
property MediaFolder: String
read FMediaFolder write FMediaFolder stored IsStoredMediaFolder;
{events}
@ -479,7 +479,7 @@ begin
end;
FActiveDate := Now;
FDayBuffer := 31; {One full month before and after the current date. }
FDayBuffer := 31; // One full month before and after the current date.
FTimeRange.StartTime := Now - FDayBuffer;
FTimeRange.EndTime := Now + FDayBuffer;