paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-09 04:07:57 +02:00
Code Issues Packages Projects Releases Wiki Activity

Fixes for TShellListView

Browse Source 
git-svn-id: trunk@19773 -
This commit is contained in:
sekelsenmat 2009-05-02 17:58:37 +00:00
parent 7902442395
commit fd610ecf4b
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lcl/shellctrls.pas
View File

@ -553,7 +553,7 @@ var
i: Integer;
Files: TStringList;
NewItem: TListItem;
CurFileName: string;
CurFileName, CurFilePath: string;
CurFileSize: Int64;
begin
// Check inputs
@ -567,16 +567,17 @@ begin
begin
NewItem := Items.Add;
CurFileName := Files.Strings[i];
CurFilePath := IncludeTrailingPathDelimiter(FRoot) + CurFileName;
// First column - Name
NewItem.Caption := CurFileName;
// Second column - Size
CurFileSize := FileSize(FRoot + CurFileName); // in Bytes
CurFileSize := FileSize(CurFilePath); // in Bytes
if CurFileSize < 1024 then
NewItem.SubItems.Add(IntToStr(CurFileSize) + ' bytes')
else if CurFileSize < 1024 * 1024 then
NewItem.SubItems.Add(IntToStr(CurFileSize div 1024) + ' kB')
else
NewItem.SubItems.Add(IntToStr(CurFileSize div 1024) + ' MB');
NewItem.SubItems.Add(IntToStr(CurFileSize div (1024 * 1024)) + ' MB');
// Third column - Type
NewItem.SubItems.Add(ExtractFileExt(CurFileName));
end;