Changeset 20 for trunk/Forms/UFormMain.lfm

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/UFormMain.lfm (modified) (12 diffs)

trunk/Forms/UFormMain.lfm

@@ -1 +1 @@
 object FormMain: TFormMain
-  Left = 364
-  Height = 390
-  Top = 183
-  Width = 519
+  Left = 357
+  Height = 513
+  Top = 122
+  Width = 602
   Caption = 'FioInfo'
-  ClientHeight = 390
-  ClientWidth = 519
+  ClientHeight = 513
+  ClientWidth = 602
   OnClose = FormClose
   OnCreate = FormCreate
@@ -13 +13 @@
   LCLVersion = '1.1'
   object ButtonSettings: TButton
-    Left = 384
+    Left = 454
     Height = 25
-    Top = 358
+    Top = 481
     Width = 112
     Action = Core.ASettings
@@ -24 +24 @@
     Left = 16
     Height = 57
-    Top = 120
-    Width = 498
-    Anchors = [akTop, akLeft, akRight]
+    Top = 250
+    Width = 581
+    Anchors = [akLeft, akRight, akBottom]
     Caption = 'New transaction from last check'
     ClientHeight = 38
-    ClientWidth = 494
+    ClientWidth = 577
     TabOrder = 1
     object ButtonNew: TButton
@@ -40 +40 @@
       TabOrder = 0
     end
+    object Label7: TLabel
+      Left = 6
+      Height = 17
+      Top = 12
+      Width = 47
+      Caption = 'Last id:'
+      ParentColor = False
+    end
+    object SpinEditLastId: TSpinEdit
+      Left = 70
+      Height = 27
+      Top = 7
+      Width = 96
+      MaxValue = 1000000000
+      TabOrder = 1
+    end
   end
   object GroupBox2: TGroupBox
     Left = 17
     Height = 72
-    Top = 184
-    Width = 498
-    Anchors = [akTop, akLeft, akRight]
+    Top = 316
+    Width = 581
+    Anchors = [akLeft, akRight, akBottom]
     Caption = 'Transactions from defined time interval'
     ClientHeight = 53
-    ClientWidth = 494
+    ClientWidth = 577
     TabOrder = 2
     object ButtonInterval: TButton
@@ -112 +128 @@
     Left = 16
     Height = 65
-    Top = 280
-    Width = 499
-    Anchors = [akTop, akLeft, akRight]
+    Top = 412
+    Width = 582
+    Anchors = [akLeft, akRight, akBottom]
     Caption = 'Selected mothly report'
     ClientHeight = 46
-    ClientWidth = 495
+    ClientWidth = 578
     TabOrder = 3
     object ButtonMonthly: TButton
@@ -168 +184 @@
     Left = 16
     Height = 25
-    Top = 358
+    Top = 481
     Width = 112
     Action = Core.AExit
@@ -177 +193 @@
     Left = 136
     Height = 25
-    Top = 358
+    Top = 481
     Width = 112
     Action = Core.AAbout
@@ -195 +211 @@
     Height = 29
     Top = 8
-    Width = 312
+    Width = 395
     Anchors = [akTop, akLeft, akRight]
     ItemHeight = 0
@@ -203 +219 @@
   end
   object ButtonNew1: TButton
-    Left = 416
+    Left = 499
     Height = 25
     Top = 8
@@ -214 +230 @@
   object GroupBox4: TGroupBox
     Left = 16
-    Height = 65
+    Height = 197
     Top = 48
-    Width = 498
-    Anchors = [akTop, akLeft, akRight]
+    Width = 581
+    Anchors = [akTop, akLeft, akRight, akBottom]
     Caption = 'Account state'
-    ClientHeight = 46
-    ClientWidth = 494
+    ClientHeight = 178
+    ClientWidth = 577
     TabOrder = 8
     object Label6: TLabel
@@ -241 +257 @@
       Left = 358
       Height = 25
-      Top = 7
+      Top = -1
       Width = 112
       Caption = 'Get'
@@ -247 +263 @@
       TabOrder = 0
     end
+    object ListView1: TListView
+      Left = 6
+      Height = 144
+      Top = 31
+      Width = 561
+      Anchors = [akTop, akLeft, akRight, akBottom]
+      Columns = <      
+        item
+          Caption = 'Id'
+        end      
+        item
+          Caption = 'Date'
+          Width = 80
+        end      
+        item
+          Caption = 'Account'
+          Width = 80
+        end      
+        item
+          Caption = 'Value'
+          Width = 80
+        end      
+        item
+          Caption = 'Var. sym.'
+          Width = 70
+        end      
+        item
+          Caption = 'Spec. sym.'
+        end      
+        item
+          Caption = 'Const. sym.'
+          Width = 134
+        end>
+      TabOrder = 1
+      ViewStyle = vsReport
+    end
   end
 end