FIX: Bug - Drive_Size shown instead of free space on drive

This commit is contained in:
Alexander Koblov 2018-12-05 17:17:15 +00:00
commit 7746b26047

View file

@ -5927,7 +5927,7 @@ begin
end;
lblDriveInfo.Hint := Format(rsFreeMsg, [cnvFormatFileSize(FreeSize, uoscHeaderFooter), cnvFormatFileSize(TotalSize, uoscHeaderFooter)]); //It's not an "operation" but most probably the closest wanted form.
if gShortFormatDriveInfo then
lblDriveInfo.Caption := Format(rsFreeMsgShort, [cnvFormatFileSize(TotalSize, uoscHeaderFooter)])
lblDriveInfo.Caption := Format(rsFreeMsgShort, [cnvFormatFileSize(FreeSize, uoscHeaderFooter)])
else
lblDriveInfo.Caption := lblDriveInfo.Hint;
sboxDrive.Hint := lblDriveInfo.Hint;