Articles   Members Online:
-Article/Tip Search
-News Group Search over 21 Million news group articles.
-Delphi/Pascal
-CBuilder/C++
-C#Builder/C#
-JBuilder/Java
-Kylix
Member Area
-Home
-Account Center
-Top 10 NEW!!
-Submit Article/Tip
-Forums Upgraded!!
-My Articles
-Edit Information
-Login/Logout
-Become a Member
-Why sign up!
-Newsletter
-Chat Online!
-Indexes NEW!!
Employment
-Build your resume
-Find a job
-Post a job
-Resume Search
Contacts
-Contacts
-Feedbacks
-Link to us
-Privacy/Disclaimer
Embarcadero
Visit Embarcadero
Embarcadero Community
JEDI
Links
ow to Fill a TListView with all files of a given directory along with the system Turn on/off line numbers in source code. Switch to Orginial background IDE or DSP color Comment or reply to this aritlce/tip for discussion. Bookmark this article to my favorite article(s). Print this article
31-Oct-02
Category
VCL-General
Language
Delphi 2.x
Views
111
User Rating
No Votes
# Votes
0
Replies
0
Publisher:
DSP, Administrator
Reference URL:
DKB
			Author: Tomas Rutkauskas

How to fill a TListView with all files of a given directory along with the system 
icons

Answer:

Here's some code from a recent project. FileList is a TListView. ScanDir() is a 
function from our product - it's basically a procedure that fills a TStrings object 
with a list of files matching a mask. You can ignore the TDirInfo(Node.Data) stuff 
- it's a small class that holds info on each folder as displayed in a 
TTreeView.TTreeNode.

This routine builds a TListView that's pretty much like the right pane in Windows 
Explorer, in that it supports both the list and report view, and displays the file 
type, size, and modified date in columns in report view.

1   {Gets files in a folder and displays them in the ListView}
2   
3   procedure TExplorer.GetFilesInFolder(Node: TTreeNode);
4   var
5     SL: TStringList;
6     i: Integer;
7     Dat: TDirInfo;
8     AllSel: Boolean;
9     NewItem: TListItem;
10    FI: TSHFileInfo;
11    Dt: TDateTime;
12    TypeDesc: string;
13  begin
14    if not Assigned(Node) then
15      Exit;
16    SL := TStringList.Create;
17    if Screen.Cursor <> crHourglass then
18      Screen.Cursor := crHourglass;
19    try
20      {Need easier access to Node.Data than TDirInfo(Node.Data) typecasts}
21  		{Grab a local reference to the pointer}
22  		Dat := TDirInfo(Node.Data);
23      {Get files in this folder, but don't include subfolder files}
24      ScanDir(Dat.FullPath, '*.*', SL, False);
25      SL.Sorted := True;
26      {See if this folder has already been fully selected. 
27  		If so, we don't need to add it to the Folders list or increment selection count
28  		or bytes}
29      AllSel := (Folders.IndexOf(Dat.FullPath) > -1) or (Dat.Status = dsFull);
30      {Remove stuff that was previously displayed}
31      FileList.Items.BeginUpdate;
32      FileList.Items.Clear;
33      {Is this an empty folder?}
34      if SL.Count = 0 then
35      begin
36        FileList.SmallImages := StateImages;
37        NewItem := FileList.Items.Add;
38        NewItem.Caption := ' No files ';
39        NewItem.ImageIndex := NoFilesIndex;
40        FileList.Enabled := False;
41        Exit;
42      end;
43      FileList.SmallImages := SysImages;
44      {We have files. Add each one to the ListView}
45      for i := 0 to SL.Count - 1 do
46      begin
47        {Create a new TListItem}
48        NewItem := FileList.Items.Add;
49        {Assign the filename portion}
50        NewItem.Caption := ExtractFileName(SL[i]);
51        FillChar(FI, SizeOf(TSHFileInfo), #0);
52        {Get the icon for display, as well as the file type, with one function call. 	
53  			Note the flags:
54        SHGFI_SMALLICON - we want the small icon
55        SHGFI_SYSICONINDEX - we want the index into the system imagelist
56        SHGFI_TYPENAME - we want the file type description if there is one}
57        SHGetFileInfo(PChar(SL[i]), 0, FI, SizeOf(FI), SHGFI_ICON or SHGFI_SMALLICON
58          or SHGFI_SYSICONINDEX or SHGFI_TYPENAME);
59        {The subitems are only displayed in the 'detail' view, but they have
60  		  to be there all the time. See if Windows knows what type file this is}
61        TypeDesc := FI.szTypeName;
62        if TypeDesc = '' then
63          {Windows doesn't know - handle like Explorer does}
64          TypeDesc := Upper(ExtractFileExt(SL[i])) + ' file';
65        {Delete the period if we need to}
66        if Length(TypeDesc) > 1 then
67        begin
68          if TypeDesc[1] = '.' then
69            Delete(TypeDesc, 1, 1);
70        end;
71        {Display the file type description}
72        NewItem.SubItems.Add(TypeDesc);
73        {Here's the 'Size' column ...}
74        NewItem.SubItems.Add(Comma([GetFileSize(SL[i])], False));
75        {Assign the system imagelist index to this item}
76        NewItem.ImageIndex := FI.iIcon;
77        {Grab the file's time and date stamp and convert to Delphi TDateTime}
78        Dt := FileDateToDateTime(FileAge(SL[i]));
79        {Add the date column}
80        NewItem.SubItems.Add(DateToStr(Dt));
81        {Add the time column}
82        NewItem.SubItems.Add(FormatDateTime('hh:nn:ss ampm', Dt));
83        {If folder was fully selected, or this file was selected in a 
84  			previous visit to this folder, check it}
85        if AllSel or (Files.IndexOf(SL[i]) > -1) then
86          NewItem.Checked := True;
87      end;
88      FileList.Enabled := True;
89    finally
90      SL.Free;
91      FileList.Items.EndUpdate;
92      if Screen.Cursor <> crDefault then
93        Screen.Cursor := crDefault;
94    end;
95  end;


			
Vote: How useful do you find this Article/Tip?
Bad Excellent
1 2 3 4 5 6 7 8 9 10

 

Advertisement
Share this page
Advertisement
Download from Google

Copyright © Mendozi Enterprises LLC