Changeset 20 for trunk/Forms/UFormAccounts.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/UFormAccounts.lfm (modified) (5 diffs)

trunk/Forms/UFormAccounts.lfm

@@ -28 +28 @@
       end    
       item
+        Caption = 'Bank code'
+      end    
+      item
         Caption = 'Balance'
         Width = 80
@@ -39 +42 @@
       end>
     OwnerData = True
+    PopupMenu = PopupMenu1
     ReadOnly = True
     RowSelect = True
@@ -72 +76 @@
     Top = 308
     Width = 75
+    Action = AAdd
     Anchors = [akLeft, akBottom]
-    Caption = 'Add'
     Color = clScrollBar
-    OnClick = ButtonAddClick
     TabOrder = 3
   end
@@ -83 +86 @@
     Top = 308
     Width = 75
+    Action = ARemove
     Anchors = [akLeft, akBottom]
-    Caption = 'Remove'
     Color = clScrollBar
-    OnClick = ButtonRemoveClick
     TabOrder = 4
   end
@@ -127 +129 @@
     OnChange = LabeledEditTokenChange
   end
+  object ActionList1: TActionList
+    Images = Core.ImageList1
+    left = 200
+    top = 304
+    object AAdd: TAction
+      Caption = 'Add'
+      OnExecute = AAddExecute
+      ShortCut = 45
+    end
+    object ARemove: TAction
+      Caption = 'Remove'
+      OnExecute = ARemoveExecute
+      ShortCut = 46
+    end
+  end
+  object PopupMenu1: TPopupMenu
+    Images = Core.ImageList1
+    left = 280
+    top = 304
+    object MenuItem1: TMenuItem
+      Action = AAdd
+    end
+    object MenuItem2: TMenuItem
+      Action = ARemove
+    end
+  end
 end