Changeset 6 for trunk/Forms/UFormBrowse.pas

Timestamp:

May 6, 2015, 11:19:49 AM (10 years ago)

Author:

chronos

Message:

• Added: Now opened projects are remembered between application restarts.
• Added: Show basic list of files in selected project.
• Added: Packages Common and TemplateGenerics.

File:

• trunk/Forms/UFormBrowse.pas (modified) (3 diffs)

trunk/Forms/UFormBrowse.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls,
-  ExtCtrls;
+  ExtCtrls, UFindFile;
 
 type
@@ -17 +17 @@
     Splitter1: TSplitter;
     TreeView1: TTreeView;
+    procedure ListView1Data(Sender: TObject; Item: TListItem);
   private
-    { private declarations }
+    FileList: TStringList;
   public
+    Directory: string;
     procedure ReloadList;
   end;
@@ -32 +34 @@
 { TFormBrowse }
 
+procedure TFormBrowse.ListView1Data(Sender: TObject; Item: TListItem);
+begin
+  if (Item.Index >= 0) and (Item.Index < FileList.Count) then begin
+    Item.Caption := ExtractFileName(FileList[Item.Index]);
+  end;
+end;
+
 procedure TFormBrowse.ReloadList;
+var
+  FindFile: TFindFile;
+  I: Integer;
 begin
-
+  FindFile := TFindFile.Create(nil);
+  FindFile.Path := Directory;
+  FindFile.FileMask := '*.*';
+  FindFile.InSubFolders := False;
+  FileList := FindFile.SearchForFiles;
+  for I := FileList.Count - 1 downto 0 do
+    if ExtractFileName(FileList[I]) = '.' then FileList.Delete(I);
+  ListView1.Items.Count := FileList.Count;
+  ListView1.Refresh;
 end;