добавил групповые ответы

2025-08-07 19:04:26 +03:00
parent b62450b6ec
commit a4cbf1c709
8 changed files with 273 additions and 161 deletions
@@ -100,106 +100,29 @@ object frCommands: TfrCommands
    Size.PlatformDefault = False
    Text = #1056#1072#1085#1076#1086#1084#1085#1099#1077' '#1075#1088#1091#1087#1087#1099' '#1086#1090#1074#1077#1090#1086#1074
    TabOrder = 3
-    object lbRandomGroup: TListBox
-      Position.X = 9.000000000000000000
-      Position.Y = 49.000000000000000000
-      Size.Width = 121.000000000000000000
-      Size.Height = 120.000000000000000000
+    inline frGroupsRequest1: TfrGroupsRequest
+      Align = Client
+      Size.Width = 344.000000000000000000
+      Size.Height = 216.000000000000000000
      Size.PlatformDefault = False
-      TabOrder = 11
-      DisableFocusEffect = True
-      ItemHeight = 13.000000000000000000
-      DefaultItemStyles.ItemStyle = ''
-      DefaultItemStyles.GroupHeaderStyle = ''
-      DefaultItemStyles.GroupFooterStyle = ''
-      Left = 208
-      Top = 315
-      Viewport.Width = 117.000000000000000000
-      Viewport.Height = 116.000000000000000000
-    end
-    object lbRandomRespons: TListBox
-      Position.X = 127.000000000000000000
-      Position.Y = 49.000000000000000000
-      Size.Width = 218.000000000000000000
-      Size.Height = 120.000000000000000000
-      Size.PlatformDefault = False
-      TabOrder = 13
-      DisableFocusEffect = True
-      ItemHeight = 13.000000000000000000
-      DefaultItemStyles.ItemStyle = ''
-      DefaultItemStyles.GroupHeaderStyle = ''
-      DefaultItemStyles.GroupFooterStyle = ''
-      Left = 335
-      Top = 315
-      Viewport.Width = 214.000000000000000000
-      Viewport.Height = 116.000000000000000000
-    end
-    object edtRandomGroup: TEdit
-      Touch.InteractiveGestures = [LongTap, DoubleTap]
-      TabOrder = 12
-      Text = 'GRP1'
-      Position.X = 9.000000000000000000
-      Position.Y = 177.000000000000000000
-      Size.Width = 121.000000000000000000
-      Size.Height = 21.000000000000000000
-      Size.PlatformDefault = False
-      Left = 208
-      Top = 514
-    end
-    object edtRandomRespons: TEdit
-      Touch.InteractiveGestures = [LongTap, DoubleTap]
-      TabOrder = 14
-      Position.X = 127.000000000000000000
-      Position.Y = 177.000000000000000000
-      Size.Width = 218.000000000000000000
-      Size.Height = 21.000000000000000000
-      Size.PlatformDefault = False
-      Left = 335
-      Top = 514
-    end
-    object btnRandomAdd: TButton
-      Position.X = 8.000000000000000000
-      Position.Y = 206.000000000000000000
-      TabOrder = 38
-      Text = #1044#1086#1073#1072#1074#1080#1090#1100
-      TextSettings.Trimming = None
-    end
-    object btnRandomDel: TButton
-      Position.X = 97.000000000000000000
-      Position.Y = 206.000000000000000000
-      Size.Width = 70.000000000000000000
-      Size.Height = 22.000000000000000000
-      Size.PlatformDefault = False
-      TabOrder = 39
-      Text = #1059#1076#1072#1083#1080#1090#1100
-      TextSettings.Trimming = None
-    end
-    object btnRmGroup: TButton
-      Position.X = 207.000000000000000000
-      Position.Y = 206.000000000000000000
-      Size.Width = 138.000000000000000000
-      Size.Height = 22.000000000000000000
-      Size.PlatformDefault = False
-      TabOrder = 40
-      Text = #1059#1076#1072#1083#1080#1090#1100' '#1074#1089#1102' '#1075#1088#1091#1087#1087#1091
-      TextSettings.Trimming = None
-    end
-    object Label4: TLabel
-      Position.X = 9.000000000000000000
-      Position.Y = 24.000000000000000000
-      Size.Width = 110.000000000000000000
-      Size.Height = 17.000000000000000000
-      Size.PlatformDefault = False
-      TextSettings.Trimming = None
-      Text = #1043#1088#1091#1087#1087#1072
-      TabOrder = 41
-    end
-    object Label5: TLabel
-      Position.X = 127.000000000000000000
-      Position.Y = 24.000000000000000000
-      TextSettings.Trimming = None
-      Text = #1042#1072#1088#1080#1072#1085#1090#1099' '#1086#1090#1074#1077#1090#1072
-      TabOrder = 44
+      inherited lbRandomGroup: TListBox
+        OnDblClick = frGroupsRequest1lbRandomGroupDblClick
+        Viewport.Width = 117.000000000000000000
+        Viewport.Height = 116.000000000000000000
+      end
+      inherited lbRandomRespons: TListBox
+        Viewport.Width = 207.000000000000000000
+        Viewport.Height = 116.000000000000000000
+      end
+      inherited btnRandomAdd: TButton
+        TabOrder = 37
+      end
+      inherited btnRandomDel: TButton
+        TabOrder = 38
+      end
+      inherited btnRmGroup: TButton
+        TabOrder = 39
+      end
    end
  end
  object GroupBox8: TGroupBox