Changeset 198 for trunk/Forms/UFormCheck.lfm

Timestamp:

Aug 23, 2018, 3:38:32 PM (6 years ago)

Author:

chronos

Message:

• Added: Configurable case sensitivity for comparison in Document check.
• Modified: Show Document check report as ListView. Show message type in separate column.

File:

• trunk/Forms/UFormCheck.lfm (modified) (5 diffs)

trunk/Forms/UFormCheck.lfm

@@ -34 +34 @@
     object GroupBox1: TGroupBox
       Left = 11
-      Height = 284
+      Height = 217
       Top = 199
       Width = 206
       Anchors = [akTop, akLeft, akRight]
       Caption = 'Summary section'
-      ClientHeight = 259
+      ClientHeight = 192
       ClientWidth = 202
       TabOrder = 1
@@ -128 +128 @@
       OnClick = ButtonLoadFromFileClick
       TabOrder = 3
+    end
+    object CheckBoxCaseSensitive: TCheckBox
+      Left = 11
+      Height = 24
+      Top = 424
+      Width = 197
+      Caption = 'Case sensitive comparison'
+      TabOrder = 4
     end
   end
@@ -151 +159 @@
       Top = 8
       Width = 645
-      ActivePage = TabSheetSource
+      ActivePage = TabSheetReport
       Align = alClient
       BorderSpacing.Around = 8
-      TabIndex = 0
+      TabIndex = 1
       TabOrder = 0
       object TabSheetSource: TTabSheet
@@ -175 +183 @@
         ClientHeight = 586
         ClientWidth = 637
-        object MemoReport: TMemo
-          Left = 8
-          Height = 568
-          Top = 8
-          Width = 620
+        object ListViewReport: TListView
+          Left = 7
+          Height = 564
+          Top = 13
+          Width = 625
           Anchors = [akTop, akLeft, akRight, akBottom]
+          Columns = <          
+            item
+              Caption = 'Position'
+              Width = 80
+            end          
+            item
+              Caption = 'Type'
+              Width = 100
+            end          
+            item
+              Caption = 'Message'
+              Width = 800
+            end>
+          OwnerData = True
+          PopupMenu = PopupMenuReport
           ReadOnly = True
-          ScrollBars = ssAutoBoth
+          RowSelect = True
           TabOrder = 0
+          ViewStyle = vsReport
+          OnData = ListViewReportData
         end
       end
@@ -194 +219 @@
     top = 493
   end
+  object PopupMenuReport: TPopupMenu
+    left = 378
+    top = 202
+    object MenuItemGoTo: TMenuItem
+      Caption = 'Go to location'
+      OnClick = MenuItemGoToClick
+    end
+  end
 end