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

tvplanit: Fix display of end date in an all-day event in GanttView. Less hints and warnings.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8684 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2023-01-16 12:43:17 +00:00
parent 53f1b40d92
commit fe1a95db7c
5 changed files with 5 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
components/tvplanit/source/vpganttview.pas
View File

@@ -1,7 +1,7 @@
unit VpGanttView;
{$mode objfpc}{$H+}
{$WARN 6058 off : Call to subroutine "$1" marked as inline is not inlined}
interface
uses
@@ -498,7 +498,6 @@ begin
begin
dt1 := DatePart(AEvent.StartTime);
dt2 := DatePart(AEvent.EndTime) + 1;
if frac(AEvent.EndTime) = 0 then dt2 := dt2 + 1;
end else
begin
dt1 := AEvent.StartTime;