Re: [fpc-pascal] Directory Tree

[James Richters via fpc-pascal]

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

_______________________________________________
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
https://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal