Changeset 20 for trunk/Forms/UFormAccounts.pas

Timestamp:

Mar 25, 2013, 10:58:03 PM (11 years ago)

Author:

chronos

Message:

• Upraveno: Celé číslo účtu rozděleno do samostatných částí jako samotné číslo a kód banky.

File:

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

trunk/Forms/UFormAccounts.pas

@@ -7 +7 @@
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ComCtrls,
-  StdCtrls, ExtCtrls, SpecializedList;
+  StdCtrls, ExtCtrls, ActnList, Menus, SpecializedList;
 
 type
@@ -14 +14 @@
 
   TFormAccounts = class(TForm)
+    AAdd: TAction;
+    ARemove: TAction;
+    ActionList1: TActionList;
     ButtonAdd: TButton;
     ButtonRemove: TButton;
@@ -21 +24 @@
     LabeledEditName: TLabeledEdit;
     ListView1: TListView;
-    procedure ButtonAddClick(Sender: TObject);
-    procedure ButtonRemoveClick(Sender: TObject);
+    MenuItem1: TMenuItem;
+    MenuItem2: TMenuItem;
+    PopupMenu1: TPopupMenu;
+    procedure AAddExecute(Sender: TObject);
+    procedure ARemoveExecute(Sender: TObject);
     procedure FormCreate(Sender: TObject);
     procedure FormDestroy(Sender: TObject);
@@ -57 +63 @@
     Item.Data := Accounts[Item.Index];
     Item.SubItems.Add(Number);
+    Item.SubItems.Add(BankCode);
     Item.SubItems.Add(FloatToStr(Balance));
     Item.SubItems.Add(DateToStr(Time));
@@ -97 +104 @@
 end;
 
-procedure TFormAccounts.ButtonAddClick(Sender: TObject);
+procedure TFormAccounts.ARemoveExecute(Sender: TObject);
+begin
+  if Assigned(ListView1.Selected) then begin
+    Accounts.Delete(Accounts.IndexOf(ListView1.Selected.Data));
+    Reload;
+  end;
+end;
+
+procedure TFormAccounts.AAddExecute(Sender: TObject);
 begin
   with Accounts.AddNew(TAccount.Create) do begin
   end;
-  Reload;
-end;
-
-procedure TFormAccounts.ButtonRemoveClick(Sender: TObject);
-begin
-  Accounts.Delete(Accounts.IndexOf(ListView1.Selected.Data));
   Reload;
 end;
@@ -124 +133 @@
 procedure TFormAccounts.UpdateInterface;
 begin
-  ButtonRemove.Enabled := Assigned(ListView1.Selected);
+  ARemove.Enabled := Assigned(ListView1.Selected);
   LabeledEditToken.Enabled := Assigned(ListView1.Selected);
   LabeledEditName.Enabled := Assigned(ListView1.Selected);