Changeset 8 for trunk/Forms/UFormBrowse.pas

Timestamp:

May 18, 2015, 12:15:30 AM (10 years ago)

Author:

chronos

Message:

• Added: Checkout form and ability to checkout new working copy.

File:

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

trunk/Forms/UFormBrowse.pas

@@ -33 +33 @@
     procedure ADeleteExecute(Sender: TObject);
     procedure AOpenExecute(Sender: TObject);
+    procedure FormCreate(Sender: TObject);
+    procedure FormDestroy(Sender: TObject);
     procedure ListView1Data(Sender: TObject; Item: TListItem);
     procedure ListView1DblClick(Sender: TObject);
@@ -83 +85 @@
 end;
 
+procedure TFormBrowse.FormCreate(Sender: TObject);
+begin
+  FileList := TStringList.Create;
+end;
+
+procedure TFormBrowse.FormDestroy(Sender: TObject);
+begin
+  FileList.Free;
+end;
+
 procedure TFormBrowse.ReloadList;
 var
   FindFile: TFindFile;
+  FoundFileList: TStrings;
   I: Integer;
 begin
-  FindFile := TFindFile.Create(nil);
-  FindFile.Path := Directory;
-  FindFile.FileMask := AllFilesMask;
-  FindFile.InSubFolders := False;
-  FileList := FindFile.SearchForFiles;
-  for I := FileList.Count - 1 downto 0 do
-    if ExtractFileName(FileList[I]) = '.' then FileList.Delete(I);
-  FileList.Sort;
-  ListView1.Items.Count := FileList.Count;
+  if DirectoryExistsUTF8(Directory) then begin
+    FindFile := TFindFile.Create(nil);
+    try
+      FindFile.Path := Directory;
+      FindFile.FileMask := AllFilesMask;
+      FindFile.InSubFolders := False;
+      FoundFileList := FindFile.SearchForFiles;
+      FileList.Assign(FoundFileList);
+      for I := FileList.Count - 1 downto 0 do
+        if ExtractFileName(FileList[I]) = '.' then FileList.Delete(I);
+      FileList.Sort;
+      ListView1.Items.Count := FileList.Count;
+    finally
+      FindFile.Free;
+    end;
+  end else ListView1.Items.Count := 0;
   ListView1.Refresh;
 end;