Changeset 14 for trunk/Forms/UFormAccounts.pas

Timestamp:

Mar 19, 2013, 8:38:28 PM (11 years ago)

Author:

chronos

Message:

• Přidáno: Možnost nastavit si formát jména výstupního souboru.
• Opraveno: Omezení nastavení časového intervalu na povolené hodnoty.

File:

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

trunk/Forms/UFormAccounts.pas

@@ -31 +31 @@
       Selected: Boolean);
   private
-    { private declarations }
+    DisableEditUpdate: Boolean;
   public
     Accounts: TListObject;
@@ -66 +66 @@
   Selected: Boolean);
 begin
+  if Assigned(ListView1.Selected) then begin
+    DisableEditUpdate := True;
+    LabeledEditToken.Text := TAccount(ListView1.Selected.Data).Token;
+    LabeledEditName.Text := TAccount(ListView1.Selected.Data).Name;
+    DisableEditUpdate := False;
+  end;
   UpdateInterface;
 end;
@@ -77 +83 @@
 procedure TFormAccounts.LabeledEditTokenChange(Sender: TObject);
 begin
-  if Assigned(ListView1.Selected) then begin
-    TAccount(ListView1.Selected.Data).Token := LabeledEditToken.Text;
-    TAccount(ListView1.Selected.Data).Name := LabeledEditName.Text;
+  if not DisableEditUpdate then begin
+    if Assigned(ListView1.Selected) then begin
+      TAccount(ListView1.Selected.Data).Token := LabeledEditToken.Text;
+      TAccount(ListView1.Selected.Data).Name := LabeledEditName.Text;
+    end;
+    Reload;
   end;
-  Reload;
 end;
 
@@ -111 +119 @@
   ListView1.Items.Count := Accounts.Count;
   ListView1.Refresh;
+  UpdateInterface;
 end;
 
@@ -116 +125 @@
 begin
   ButtonRemove.Enabled := Assigned(ListView1.Selected);
-  if Assigned(ListView1.Selected) then begin
-    LabeledEditToken.Text := TAccount(ListView1.Selected.Data).Token;
-    LabeledEditName.Text := TAccount(ListView1.Selected.Data).Name;
-  end;
+  LabeledEditToken.Enabled := Assigned(ListView1.Selected);
+  LabeledEditName.Enabled := Assigned(ListView1.Selected);
 end;