Changeset 24 for trunk/Forms

Timestamp:

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

Author:

chronos

Message:

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

Location:

trunk/Forms

Files:

• FormBrowse.pas (modified) (7 diffs)
• FormConsole.pas (modified) (1 diff)
• FormLog.pas (modified) (2 diffs)
• FormMain.lfm (modified) (2 diffs)
• FormTest.lfm (deleted)
• FormTest.pas (deleted)

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

trunk/Forms/FormConsole.pas

@@ -88 +88 @@
   Line: string;
   CommandLine: string;
-  I: Integer;
 begin
   Text := '';

trunk/Forms/FormLog.pas

@@ -27 +27 @@
   public
     FileName: string;
-    LogList: TLogList;
+    LogList: TLogItems;
     procedure ReloadList;
     procedure UpdateInterface;
@@ -44 +44 @@
 procedure TFormLog.FormCreate(Sender: TObject);
 begin
-  LogList := TLogList.Create;
+  LogList := TLogItems.Create;
 end;
 

trunk/Forms/FormMain.lfm

@@ -1 +1 @@
 object FormMain: TFormMain
   Left = 687
-  Height = 767
+  Height = 733
   Top = 411
   Width = 1408
   Caption = 'VCSCommander'
-  ClientHeight = 767
+  ClientHeight = 733
   ClientWidth = 1408
   DesignTimePPI = 144
@@ -45 +45 @@
     Left = 0
     Height = 28
-    Top = 739
+    Top = 705
     Width = 1408
     Panels = <>