Changeset 9 for trunk/Forms/UFormCheckout.pas

Timestamp:

May 18, 2015, 11:49:39 PM (10 years ago)

Author:

chronos

Message:

• Added: Simple Bazaar backend.\n* Added: Support for backends dynamic registration.\n* Added: Backend selection in checkout form.

File:

• trunk/Forms/UFormCheckout.pas (modified) (5 diffs)

trunk/Forms/UFormCheckout.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls;
+  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
+  Menus, ExtCtrls;
 
 type
@@ -16 +17 @@
     ButtonCancel: TButton;
     ButtonOk: TButton;
+    ComboBox1: TComboBox;
     EditURL: TEdit;
     EditDir: TEdit;
@@ -22 +24 @@
     Label1: TLabel;
     Label2: TLabel;
+    Label3: TLabel;
+    Panel1: TPanel;
     procedure Button1Click(Sender: TObject);
+    procedure FormShow(Sender: TObject);
   private
     { private declarations }
@@ -36 +41 @@
 {$R *.lfm}
 
+uses
+  UCore, UBackend;
+
 { TFormCheckout }
 
@@ -46 +54 @@
 end;
 
+procedure TFormCheckout.FormShow(Sender: TObject);
+var
+  I: Integer;
+begin
+  ComboBox1.Clear;
+  for I := 0 to Core.Backends.Count - 1 do
+    ComboBox1.AddItem(TBackend(Core.Backends[I]).Name, Core.Backends[I]);
+  if ComboBox1.Items.Count > 0 then
+    ComboBox1.ItemIndex := 0;
+end;
+
 end.