Changeset 43 for trunk/Forms/UFormLoginProfile.pas

Timestamp:

Mar 9, 2012, 1:09:52 PM (12 years ago)

Author:

chronos

Message:

• Fixed: Selection of available protocols in profile manager.
• Modified: Initialization of persistent data structures rewrited to more native structures.

File:

• trunk/Forms/UFormLoginProfile.pas (modified) (11 diffs)

trunk/Forms/UFormLoginProfile.pas

@@ -10 +10 @@
 
 type
-  TConnectProtocol = (cpXMLRPC, cpDirect);
+  TConnectProtocol = (cpXMLRPC, cpDirect, cpMySQL);
 
   { TConnectProfile }
@@ -51 +51 @@
     Label5: TLabel;
     LabelServer: TLabel;
-    ListBox1: TListBox;
+    ListBoxProfiles: TListBox;
     Panel1: TPanel;
     SpinEditPort: TSpinEdit;
@@ -65 +65 @@
     procedure FormDestroy(Sender: TObject);
     procedure FormShow(Sender: TObject);
-    procedure ListBox1SelectionChange(Sender: TObject; User: boolean);
+    procedure ListBoxProfilesSelectionChange(Sender: TObject; User: boolean);
     procedure SpinEditPortChange(Sender: TObject);
   private
@@ -76 +76 @@
   SProfile = 'Profile';
   SProtocolXMLRPC = 'XML-RPC';
+  SProtocolMySQL = 'MySQL';
+  SProtocolDirect = 'Direct';
 
 var
   LoginProfileForm: TLoginProfileForm;
+  ProtocolTypeText: array[TConnectProtocol] of string;
+
+procedure UpdateTranslation;
 
 implementation
@@ -123 +128 @@
 procedure TLoginProfileForm.ComboBoxProtocolChange(Sender: TObject);
 begin
-  if ListBox1.ItemIndex <> - 1 then
-    TConnectProfile(ProfileList[ListBox1.ItemIndex]).Protocol := TConnectProtocol(ComboBoxProtocol.ItemIndex);
+  if ListBoxProfiles.ItemIndex <> - 1 then
+    TConnectProfile(ProfileList[ListBoxProfiles.ItemIndex]).Protocol :=
+      TConnectProtocol(ComboBoxProtocol.Items.Objects[ComboBoxProtocol.ItemIndex]);
 end;
 
 procedure TLoginProfileForm.EditNameChange(Sender: TObject);
 begin
-  if ListBox1.ItemIndex <> - 1 then begin
-    TConnectProfile(ProfileList[ListBox1.ItemIndex]).Name := EditName.Text;
-    ListBox1.Items[ListBox1.ItemIndex] := EditName.Text;
+  if ListBoxProfiles.ItemIndex <> - 1 then begin
+    TConnectProfile(ProfileList[ListBoxProfiles.ItemIndex]).Name := EditName.Text;
+    ListBoxProfiles.Items[ListBoxProfiles.ItemIndex] := EditName.Text;
   end;
 end;
@@ -137 +143 @@
 procedure TLoginProfileForm.EditDatabaseChange(Sender: TObject);
 begin
-  if ListBox1.ItemIndex <> - 1 then
-    TConnectProfile(ProfileList[ListBox1.ItemIndex]).Database := EditDatabase.Text;
+  if ListBoxProfiles.ItemIndex <> - 1 then
+    TConnectProfile(ProfileList[ListBoxProfiles.ItemIndex]).Database := EditDatabase.Text;
 end;
 
 procedure TLoginProfileForm.EditServerChange(Sender: TObject);
 begin
-  if ListBox1.ItemIndex <> - 1 then
-    TConnectProfile(ProfileList[ListBox1.ItemIndex]).HostName := EditServer.Text;
+  if ListBoxProfiles.ItemIndex <> - 1 then
+    TConnectProfile(ProfileList[ListBoxProfiles.ItemIndex]).HostName := EditServer.Text;
 end;
 
@@ -156 +162 @@
 begin
   ProfileList.AddNew(TConnectProfile.Create);
-  ListBox1.Items.AddObject(TConnectProfile(ProfileList.Last).Name,
+  ListBoxProfiles.Items.AddObject(TConnectProfile(ProfileList.Last).Name,
     TConnectProfile(ProfileList.Last));
 end;
@@ -162 +168 @@
 procedure TLoginProfileForm.ButtonDeleteClick(Sender: TObject);
 begin
-  if ListBox1.ItemIndex <> - 1 then begin
-    ProfileList.Delete(ListBox1.ItemIndex);
-    ListBox1.Items.Delete(ListBox1.ItemIndex);
+  if ListBoxProfiles.ItemIndex <> - 1 then begin
+    ProfileList.Delete(ListBoxProfiles.ItemIndex);
+    ListBoxProfiles.Items.Delete(ListBoxProfiles.ItemIndex);
   end;
 end;
@@ -178 +184 @@
 begin
   ComboBoxProtocol.Clear;
-  ComboBoxProtocol.Items.Add(SProtocolXMLRPC);
+  for I := 0 to Integer(High(ProtocolTypeText)) do
+    ComboBoxProtocol.Items.AddObject(ProtocolTypeText[TConnectProtocol(I)],
+      Pointer(I));
 
   MainForm.PersistentForm.Load(Self);
   ProfileList.Assign(Core.Profiles);
-  ProfileList.FillStrings(ListBox1.Items);
-  if Core.LastProfile < ListBox1.Count then
-    ListBox1.ItemIndex := Core.LastProfile;
-  if (ListBox1.Items.Count > 0) and
-    (ListBox1.ItemIndex = -1) then ListBox1.ItemIndex := 0;
-end;
-
-procedure TLoginProfileForm.ListBox1SelectionChange(Sender: TObject;
+  ProfileList.FillStrings(ListBoxProfiles.Items);
+  if Core.LastProfile < ListBoxProfiles.Count then
+    ListBoxProfiles.ItemIndex := Core.LastProfile;
+  if (ListBoxProfiles.Items.Count > 0) and
+    (ListBoxProfiles.ItemIndex = -1) then ListBoxProfiles.ItemIndex := 0;
+end;
+
+procedure TLoginProfileForm.ListBoxProfilesSelectionChange(Sender: TObject;
   User: boolean);
 begin
-  if ListBox1.ItemIndex <> -1 then
-  with TConnectProfile(ProfileList[ListBox1.ItemIndex]) do begin
+  if ListBoxProfiles.ItemIndex <> -1 then
+  with TConnectProfile(ProfileList[ListBoxProfiles.ItemIndex]) do begin
     EditServer.Text := HostName;
     EditDatabase.Text := Database;
-    ComboBoxProtocol.ItemIndex := Integer(Protocol);
+    ComboBoxProtocol.ItemIndex := ComboBoxProtocol.Items.IndexOfObject(Pointer(Protocol));
     SpinEditPort.Value := Port;
     EditName.Text := Name;
@@ -204 +212 @@
 procedure TLoginProfileForm.SpinEditPortChange(Sender: TObject);
 begin
-  if ListBox1.ItemIndex <> - 1 then
-    TConnectProfile(ProfileList[ListBox1.ItemIndex]).Port := SpinEditPort.Value;
+  if ListBoxProfiles.ItemIndex <> - 1 then
+    TConnectProfile(ProfileList[ListBoxProfiles.ItemIndex]).Port := SpinEditPort.Value;
 end;
 
@@ -281 +289 @@
 end;
 
+procedure UpdateTranslation;
+begin
+  ProtocolTypeText[cpXMLRPC] := SProtocolXMLRPC;
+  ProtocolTypeText[cpMySQL] := SProtocolMySQL;
+  ProtocolTypeText[cpDirect] := SProtocolDirect;
+end;
+
 end.