Changeset 24 for trunk/Forms/FormBrowse.pas

Timestamp:

Apr 5, 2025, 9:45:07 PM (12 days ago)

Author:

chronos

Message:

• Fixed: Test cases executed with FormTests form from Common package.

File:

• trunk/Forms/FormBrowse.pas (modified) (7 diffs)

trunk/Forms/FormBrowse.pas

@@ -5 +5 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls,
-  ExtCtrls, Menus, ActnList, FindFile, VCS, Generics.Collections, LazFileUtils;
+  ExtCtrls, Menus, ActnList, FindFile, VCS, LazFileUtils;
 
 type
@@ -45 +45 @@
       Selected: Boolean);
   private
-    FileList: TFileStatusList;
+    FileList: TFileStatuses;
   public
     Directory: string;
@@ -118 +118 @@
       ReloadList;
     end else
-    if DirectoryExistsUTF8(Directory + DirectorySeparator + Caption) then begin
+    if DirectoryExists(Directory + DirectorySeparator + Caption) then begin
       Directory := Directory + DirectorySeparator + ListView1.Selected.Caption;
       ReloadList;
@@ -129 +129 @@
   NewName: string;
 begin
+  NewName := '';
   if InputQuery('Rename', 'Enter new name', NewName) then
     Core.Core.Project.WorkingCopy.Move(Directory + DirectorySeparator + ListView1.Selected.Caption, NewName);
@@ -135 +136 @@
 procedure TFormBrowse.FormCreate(Sender: TObject);
 begin
-  FileList := TFileStatusList.Create;
+  FileList := TFileStatuses.Create;
 end;
 
@@ -153 +154 @@
   FoundFileList: TStrings;
   I: Integer;
-  FileStatusList: TFileStatusList;
+  FileStatusList: TFileStatuses;
   NewFileItem: TFileStatus;
   FS: TFileStatus;
@@ -160 +161 @@
   FileList.Clear;
   if Assigned(Core.Core.Project) then begin
-  FileStatusList := TFileStatusList.Create;
+  FileStatusList := TFileStatuses.Create;
   try
   Core.Core.Project.WorkingCopy.GetStatus(Directory, FileStatusList);
 
-  if DirectoryExistsUTF8(Directory) then begin
+  if DirectoryExists(Directory) then begin
     FindFile := TFindFile.Create(nil);
     try