[fpc-pascal] Directory Tree

[James Richters]

I fixed the time totals to show days correctly with this:
 
procedure TTreeData.SetdValue( _dValue: TDateTime);
begin
   FdValue:= _dValue;
   FValue:='';
   If FdValue>=2 Then
      FValue:= Format ('%d Days ',[Trunc(FdValue)])
   Else
      If FdValue>=1 Then
         FValue:= Format ('%d Day ',[Trunc(FdValue)]);
   If (FValue<>'') OR (HourOf(FdValue)>0) Then
      FValue:=FValue+Format ('%.1d:',[HourOf(FdValue)]);
   If (FValue='') Then
      FValue:=Format ('%.1d:',[MinuteOf(FdValue)])
   Else
      FValue:=FValue+Format ('%.2d:',[MinuteOf(FdValue)]);
   FValue:=FValue+Format ('%.2d',[SeconDof(FdValue)]);
end;
 
I made a pull request to your repository on Github with it
 
James
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.freepascal.org/pipermail/fpc-pascal/attachments/20210425/7ba515cc/attachment-0001.htm>