Changeset 12 for trunk/Forms/UFormSettings.pas

Timestamp:

Mar 15, 2013, 11:42:38 PM (11 years ago)

Author:

chronos

Message:

• Přidáno: Podpora pro více účtů.

File:

• trunk/Forms/UFormSettings.pas (modified) (3 diffs)

trunk/Forms/UFormSettings.pas

@@ -19 +19 @@
     ComboBox1: TComboBox;
     Label1: TLabel;
-    LabeledEditToken: TLabeledEdit;
     LabeledEditFolder: TLabeledEdit;
     procedure Button1Click(Sender: TObject);
@@ -67 +66 @@
 procedure TFormSettings.Load;
 begin
-  LabeledEditToken.Text := Core.Token;
   ComboBox1.ItemIndex := Integer(Core.DataFormat);
   LabeledEditFolder.Text := Core.TargetDirectory;
@@ -74 +72 @@
 procedure TFormSettings.Save;
 begin
-  Core.Token := LabeledEditToken.Text;
   Core.DataFormat := TFioDataFormat(ComboBox1.ItemIndex);
   Core.TargetDirectory := LabeledEditFolder.Text;