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 LinkToControls(AOwner: TComponent);
procedure UnlinkFromControls(AOwner: TComponent); procedure UnlinkFromControls(AOwner: TComponent);
property AutoConnect: Boolean read FAutoConnect write SetAutoConnect; property AutoConnect: Boolean read FAutoConnect write SetAutoConnect default false;
property AutoCreate: Boolean read FAutoCreate write FAutoCreate; property AutoCreate: Boolean read FAutoCreate write FAutoCreate default true;
public public
constructor Create(AOwner: TComponent); override; constructor Create(AOwner: TComponent); override;
@ -315,9 +315,9 @@ type
property Connected : boolean read FConnected write SetConnected; property Connected : boolean read FConnected write SetConnected;
property Loading : Boolean read FLoading write FLoading; property Loading : Boolean read FLoading write FLoading;
property Resource: TVpResource read FResource write SetResource; 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 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 Date: TDateTime read FActiveDate write SetActiveDate;
property TimeRange: TVpTimeRange read FTimeRange; property TimeRange: TVpTimeRange read FTimeRange;
@ -337,9 +337,9 @@ type
property DefaultEventSound: string property DefaultEventSound: string
read FDefaultEventSound write FDefaultEventSound; read FDefaultEventSound write FDefaultEventSound;
property EnableEventTimer: Boolean property EnableEventTimer: Boolean
read FEventTimerEnabled write SetEventTimerEnabled; read FEventTimerEnabled write SetEventTimerEnabled default true;
property PlayEventSounds: Boolean property PlayEventSounds: Boolean
read FPlayEventSounds write FPlayEventSounds; read FPlayEventSounds write FPlayEventSounds default true;
property MediaFolder: String property MediaFolder: String
read FMediaFolder write FMediaFolder stored IsStoredMediaFolder; read FMediaFolder write FMediaFolder stored IsStoredMediaFolder;
{events} {events}
@ -479,7 +479,7 @@ begin
end; end;
FActiveDate := Now; 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.StartTime := Now - FDayBuffer;
FTimeRange.EndTime := Now + FDayBuffer; FTimeRange.EndTime := Now + FDayBuffer;