Changeset 23 for trunk/Forms/FormTest.pas

Timestamp:

Apr 4, 2025, 9:22:05 AM (2 weeks ago)

Author:

chronos

Message:

• Modified: All unit renamed to names without U prefix.
• Modified: Removed global form variables.
• Modified: Code cleanup.

File:

• trunk/Forms/FormTest.pas (moved) (moved from trunk/Forms/UFormTest.pas ) (5 diffs)

trunk/Forms/FormTest.pas

@@ -1 @@
-unit UFormTest;
+unit FormTest;
 
 interface
@@ -24 +24 @@
   end;
 
-var
-  FormTest: TFormTest;
-
 
 implementation
@@ -33 +30 @@
 
 uses
-  UCore, UBackend, UProject, UVCS;
+  Core, Backend, Project, VCS;
 
 { TFormTest }
@@ -42 +39 @@
 begin
   ComboBox1.Clear;
-  for I := 0 to Core.Backends.Count - 1 do
-    ComboBox1.AddItem(TBackend(Core.Backends[I]).Name, Core.Backends[I]);
+  for I := 0 to Core.Core.Backends.Count - 1 do
+    ComboBox1.AddItem(Core.Core.Backends[I].Name, Core.Core.Backends[I]);
   if ComboBox1.Items.Count > 0 then
     ComboBox1.ItemIndex := 0;
@@ -71 +68 @@
   ListView1.Items.Clear;
   Project := TProject.Create;
-  Project.Backend := TBackend(Core.Backends[ComboBox1.ItemIndex]);
-  Project.WorkingCopy.UserName := Core.UserName;
-  Project.WorkingCopy.Email := Core.Email;
+  Project.Backend := Core.Core.Backends[ComboBox1.ItemIndex];
+  Project.WorkingCopy.UserName := Core.Core.UserName;
+  Project.WorkingCopy.Email := Core.Core.Email;
   try
     //RemoveDir(TestDir);