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

tvplanit: More efficient handling of holidays in fulldemo.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8389 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2022-08-13 16:09:29 +00:00
parent a2d1123b51
commit a33255b5eb
3 changed files with 97 additions and 61 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -263,6 +263,7 @@ type
procedure SetEventTimerEnabled(Value: Boolean);
procedure SetDayBuffer(Value: Integer);
procedure SetRange(StartTime, EndTime: TDateTime);
procedure SetOnDateChanged(Value: TVpDateChangedEvent);
procedure Notification(AComponent: TComponent; Operation: TOperation); override;
procedure NotifyLinked;
@ -352,7 +353,7 @@ type
property OnConnect: TNotifyEvent
read FOnConnect write FOnConnect;
property OnDateChanged: TVpDateChangedEvent
read FOnDateChanged write FOnDateChanged;
read FOnDateChanged write SetOnDateChanged;
property OnDisconnect: TNotifyEvent
read FOnDisconnect write FOnDisconnect;
property OnResourceChange: TVpResourceEvent
@ -482,7 +483,6 @@ begin
Color := clGray;
end;
FActiveDate := Now;
FDayBuffer := 31; // One full month before and after the current date.
FTimeRange.StartTime := Now - FDayBuffer;
FTimeRange.EndTime := Now + FDayBuffer;
@ -507,6 +507,8 @@ begin
{ enable the event timer }
if not (csDesigning in ComponentState) then
dsAlertTimer.Enabled := true;
SetActiveDate(Now);
end;
{=====}
@ -1025,7 +1027,13 @@ begin
FTimeRange.EndTime := trunc(EndTime) + 1;
end;
end;
{=====}
procedure TVpCustomDatastore.SetOnDateChanged(Value: TVpDateChangedEvent);
begin
FOnDateChanged := Value;
if Assigned(FOnDateChanged) then
FOnDateChanged(Self, FActiveDate);
end;
procedure TVpCustomDatastore.PlaySound(const AWavFile: String;
APlaySoundMode: TVpPlaySoundMode);