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

tvplanit: Cosmetic changes

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6513 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2018-06-20 05:28:45 +00:00
parent e90700a648
commit da23bd4405
3 changed files with 14 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
components/tvplanit/examples/datastores/bufdataset/project1.lpi
View File

@ -1,7 +1,7 @@
<?xml version="1.0" encoding="UTF-8"?> <?xml version="1.0" encoding="UTF-8"?>
<CONFIG> <CONFIG>
<ProjectOptions> <ProjectOptions>
<Version Value="10"/> <Version Value="11"/>
<PathDelim Value="\"/> <PathDelim Value="\"/>
<General> <General>
<SessionStorage Value="InProjectDir"/> <SessionStorage Value="InProjectDir"/>
@ -17,9 +17,10 @@
<Version Value="2"/> <Version Value="2"/>
</PublishOptions> </PublishOptions>
<RunParams> <RunParams>
<local> <FormatVersion Value="2"/>
<FormatVersion Value="1"/> <Modes Count="1">
</local> <Mode0 Name="default"/>
</Modes>
</RunParams> </RunParams>
<RequiredPackages Count="2"> <RequiredPackages Count="2">
<Item1> <Item1>

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

@ -657,12 +657,12 @@ begin
DecodeDate(OldDate, oy, om, Day); DecodeDate(OldDate, oy, om, Day);
DecodeDate(FActiveDate, ny, nm, Day); DecodeDate(FActiveDate, ny, nm, Day);
{ If the date has reached the end of the data buffer } { If the date has reached the end of the data buffer ... }
if (FActiveDate >= FTimeRange.EndTime) if (FActiveDate >= FTimeRange.EndTime) or (FActiveDate <= FTimeRange.StartTime)
or (FActiveDate <= FTimeRange.StartTime) { ... or the month or year has changed ... }
{ or the month or year has changed... } or (nm <> om) or (ny <> oy) then
or (nm <> om) or (ny <> oy) then begin begin
{ then load the data that falls into the current time range } { ... then load the data that falls into the current time range }
SetRange(FActiveDate - FDayBuffer, FActiveDate + FDayBuffer); SetRange(FActiveDate - FDayBuffer, FActiveDate + FDayBuffer);
RefreshEvents; RefreshEvents;
end; end;

6
components/tvplanit/source/vpmonthview.pas
View File

@ -1021,15 +1021,15 @@ procedure TVpMonthView.WMLButtonDown(var Msg: TLMLButtonDown);
begin begin
inherited; inherited;
// if the mouse was pressed down in the client area, then select the cell. // if the mouse was pressed down in the client area, then select the cell.
if not focused then SetFocus; if not Focused then SetFocus;
if (Msg.YPos > mvDayHeadHeight) then if (Msg.YPos > mvDayHeadHeight) then
begin begin
{ The mouse click landed inside the client area } { The mouse click landed inside the client area }
MvSetDateByCoord(Point(Msg.XPos, Msg.YPos)); MvSetDateByCoord(Point(Msg.XPos, Msg.YPos));
{ Did the mouse click land on an event? } { Did the mouse click land on an event? }
if SelectEventAtCoord(Point(Msg.XPos, Msg.YPos)) if SelectEventAtCoord(Point(Msg.XPos, Msg.YPos)) then
and (Assigned(FOnEventClick)) then if (Assigned(FOnEventClick)) then
FOnEventClick(self, mvActiveEvent); FOnEventClick(self, mvActiveEvent);
end; end;
end; end;