Changeset 23 for trunk/Forms/FormCheckout.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/FormCheckout.pas (moved) (moved from trunk/Forms/UFormCheckout.pas ) (4 diffs)

trunk/Forms/FormCheckout.pas

@@ -1 @@
-unit UFormCheckout;
+unit FormCheckout;
 
 interface
@@ -28 +28 @@
   end;
 
-var
-  FormCheckout: TFormCheckout;
-
 
 implementation
@@ -37 +34 @@
 
 uses
-  UCore, UBackend;
+  Core, Backend;
 
 { TFormCheckout }
@@ -54 +51 @@
 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;