Changeset 22 for trunk/Forms/UFormMain.pas

Timestamp:

Mar 25, 2013, 11:47:38 PM (11 years ago)

Author:

chronos

Message:

• Upraveno: Příprava pro zobrazování seznamu operací.

File:

• trunk/Forms/UFormMain.pas (modified) (4 diffs)

trunk/Forms/UFormMain.pas

@@ -38 +38 @@
     Label7: TLabel;
     LabelBalance: TLabel;
-    ListView1: TListView;
+    ListViewOperation: TListView;
     SpinEditYear: TSpinEdit;
     SpinEditId: TSpinEdit;
@@ -55 +55 @@
     procedure FormCreate(Sender: TObject);
     procedure FormShow(Sender: TObject);
+    procedure ListViewOperationData(Sender: TObject; Item: TListItem);
   private
     { private declarations }
   public
+    procedure ReloadList;
     procedure LoadInterface;
     procedure SaveInterface;
@@ -114 +116 @@
     Core.LoadAccount(Core.CurrentAccount);
     LoadInterface;
+    ReloadList;
   end;
 end;
@@ -137 +140 @@
   LoadInterface;
   Core.CoolTranslator1.Translate;
+end;
+
+procedure TFormMain.ListViewOperationData(Sender: TObject; Item: TListItem);
+begin
+  if Assigned(Core.CurrentAccount) then
+  with Core.CurrentAccount do begin
+  if (Item.Index >= 0) and (Item.Index < Operations.Count) then
+  with TAccountOperation(Operations[Item.Index]) do begin
+    Item.Caption := IntToStr(Item.Index + 1);
+    Item.Data := Operations[Item.Index];
+    Item.SubItems.Add(DateToStr(Time));
+    Item.SubItems.Add(Account);
+    Item.SubItems.Add(FloatToStr(Value));
+    Item.SubItems.Add(VarSym);
+    Item.SubItems.Add(SpecSym);
+    Item.SubItems.Add(ConstSym);
+  end;
+  end;
+end;
+
+procedure TFormMain.ReloadList;
+begin
+  if Assigned(Core.CurrentAccount) then
+    ListViewOperation.Items.Count := Core.CurrentAccount.Operations.Count
+    else ListViewOperation.Items.Count;
+  ListViewOperation.Refresh;
 end;