tvplanit: Some refactoring of task list (flat display style, cosmetic changes).

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4818 8e941d3f-bd1b-0410-a28a-d453659cc2b4

components/tvplanit/source/vpmisc.pas

@@ -127,6 +127,8 @@ function GetLineDuration(Granularity: TVpGranularity): Double;
 
 function GetLabelWidth(ALabel: TLabel): Integer;
 
+function SameDate(dt1, dt2: TDateTime): Boolean;
+
 implementation
 
 uses
@@ -605,4 +607,9 @@ begin
   canvas.Free;
 end;
 
+function SameDate(dt1, dt2: TDateTime): Boolean;
+begin
+  Result := trunc(dt1) = trunc(dt2);
+end;
+
 end.