Changeset 199 for trunk/Forms/UFormCheck.lfm

Timestamp:

Aug 27, 2018, 8:33:25 AM (6 years ago)

Author:

chronos

Message:

• Added: Save to CSV action for document check report.

File:

• trunk/Forms/UFormCheck.lfm (modified) (1 diff)

trunk/Forms/UFormCheck.lfm

@@ -216 +216 @@
     DefaultExt = '.txt'
     Filter = 'Text files (.txt)|*.txt|Any file|*.*'
-    left = 116
-    top = 493
+    left = 544
+    top = 288
   end
   object PopupMenuReport: TPopupMenu
-    left = 378
+    left = 376
     top = 202
     object MenuItemGoTo: TMenuItem
+      Action = AGoToLocation
+      OnClick = MenuItemGoToClick
+    end
+    object MenuItem1: TMenuItem
+      Action = ASaveToCsv
+    end
+  end
+  object ActionList1: TActionList
+    left = 546
+    top = 203
+    object ASaveToCsv: TAction
+      Caption = 'Save to CSV...'
+      OnExecute = ASaveToCsvExecute
+    end
+    object AGoToLocation: TAction
       Caption = 'Go to location'
-      OnClick = MenuItemGoToClick
-    end
+      OnExecute = AGoToLocationExecute
+    end
+  end
+  object SaveDialog1: TSaveDialog
+    left = 378
+    top = 288
   end
 end