From 55605a80092452ce593cb05df12a404ad47aa808 Mon Sep 17 00:00:00 2001 From: Tomas Bzatek Date: Sun, 14 Feb 2010 08:58:52 +0100 Subject: Don't show negative free space --- UEngines.pas | 4 ++-- UMain.pas | 3 +++ 2 files changed, 5 insertions(+), 2 deletions(-) diff --git a/UEngines.pas b/UEngines.pas index 66dd9ea..3db0c25 100644 --- a/UEngines.pas +++ b/UEngines.pas @@ -718,8 +718,8 @@ var Stat: Pstatfs64; FoundLength: integer; Buffer: array[0..31] of char; begin - FSSize := 0; - FSFree := 0; + FSSize := -1; + FSFree := -1; FSName := ''; try Stat := malloc(sizeof(Tstatfs64)); diff --git a/UMain.pas b/UMain.pas index 9e04293..56198fc 100644 --- a/UMain.pas +++ b/UMain.pas @@ -1950,6 +1950,9 @@ begin else s := RightPathLabel.Caption; CommandLineLabel.Caption := Format('%s@%s:%s>', [GetUserName, GetHostName, s]); LeftPanelEngine.GetFileSystemInfo(LeftPanelEngine.Path, FSSize, FSFree, FSName); + // *TODO: hide numbers if filesystem info cannot be determined + if FSSize < 0 then FSSize := 0; + if FSFree < 0 then FSFree := 0; if FSName <> '' then LeftDiskInfoLabel.Caption := Format(LANGDiskStatVolNameFmt, [FSName, FormatSize(FSFree, 1024), -- cgit v1.2.3