сохранение records почти доделал вкладку команды, осталось лишь групповые ответы добавить

2025-08-07 18:14:03 +03:00
parent dacd2e6050
commit b62450b6ec
12 changed files with 1082 additions and 679 deletions
@@ -1,19 +1,20 @@
 object frCommands: TfrCommands
-  Size.Width = 1052.000000000000000000
-  Size.Height = 719.000000000000000000
+  Size.Width = 973.000000000000000000
+  Size.Height = 705.000000000000000000
  Size.PlatformDefault = False
  object sgCommands: TStringGrid
    CanFocus = True
    ClipChildren = True
    Position.X = 5.000000000000000000
    Position.Y = 8.000000000000000000
-    Size.Width = 606.000000000000000000
+    Size.Width = 540.000000000000000000
    Size.Height = 193.000000000000000000
    Size.PlatformDefault = False
    TabOrder = 5
    RowCount = 0
    Options = [ColumnResize, ColumnMove, ColLines, RowLines, Tabs, Header, HeaderClick, AutoDisplacement]
-    Viewport.Width = 602.000000000000000000
+    OnCellClick = sgCommandsCellClick
+    Viewport.Width = 536.000000000000000000
    Viewport.Height = 168.000000000000000000
    object scCommand: TStringColumn
      Header = #1050#1086#1084#1072#1085#1076#1072
@@ -23,7 +24,7 @@ object frCommands: TfrCommands
    object scResponse: TStringColumn
      Header = #1054#1090#1074#1077#1090
      HeaderSettings.TextSettings.WordWrap = False
-      Size.Width = 446.000000000000000000
+      Size.Width = 380.000000000000000000
    end
  end
  object GroupBox1: TGroupBox
@@ -31,168 +32,60 @@ object frCommands: TfrCommands
    Padding.Top = 20.000000000000000000
    Padding.Right = 5.000000000000000000
    Padding.Bottom = 5.000000000000000000
-    Position.X = 619.000000000000000000
+    Position.X = 544.000000000000000000
    Position.Y = 8.000000000000000000
-    Size.Width = 395.000000000000000000
+    Size.Width = 410.000000000000000000
    Size.Height = 442.000000000000000000
    Size.PlatformDefault = False
    Text = #1050#1086#1085#1089#1090#1088#1091#1082#1090#1086#1088' '#1086#1090#1074#1077#1090#1072
    TabOrder = 0
-    object Label12: TLabel
-      Position.X = 9.000000000000000000
-      Position.Y = 24.000000000000000000
-      TextSettings.Trimming = None
-      Text = #1050#1086#1084#1072#1085#1076#1072
-      TabOrder = 38
-    end
-    object edtCommand: TEdit
-      Touch.InteractiveGestures = [LongTap, DoubleTap]
-      TabOrder = 39
-      Position.X = 9.000000000000000000
-      Position.Y = 49.000000000000000000
-      Size.Width = 208.000000000000000000
-      Size.Height = 22.000000000000000000
+    inline frContruct1: TfrContruct
+      Align = Client
+      Size.Width = 400.000000000000000000
+      Size.Height = 417.000000000000000000
      Size.PlatformDefault = False
-    end
-    object mResponse: TMemo
-      Touch.InteractiveGestures = [Pan, LongTap, DoubleTap]
-      DataDetectorTypes = []
-      TextSettings.WordWrap = True
-      Position.X = 9.000000000000000000
-      Position.Y = 104.000000000000000000
-      Size.Width = 376.000000000000000000
-      Size.Height = 177.000000000000000000
-      Size.PlatformDefault = False
-      TabOrder = 40
-      Viewport.Width = 372.000000000000000000
-      Viewport.Height = 173.000000000000000000
-    end
-    object Label14: TLabel
-      Position.X = 9.000000000000000000
-      Position.Y = 79.000000000000000000
-      TextSettings.Trimming = None
-      Text = #1054#1090#1074#1077#1090
-      TabOrder = 41
-    end
-    object GroupBox7: TGroupBox
-      Padding.Left = 5.000000000000000000
-      Padding.Top = 20.000000000000000000
-      Padding.Right = 5.000000000000000000
-      Padding.Bottom = 5.000000000000000000
-      Position.X = 9.000000000000000000
-      Position.Y = 283.000000000000000000
-      Size.Width = 376.000000000000000000
-      Size.Height = 120.000000000000000000
-      Size.PlatformDefault = False
-      Text = #1042#1089#1090#1072#1074#1082#1080
-      TabOrder = 42
-      object btnAddUserName: TButton
-        Position.X = 9.000000000000000000
-        Position.Y = 24.000000000000000000
-        Size.Width = 94.000000000000000000
-        Size.Height = 22.000000000000000000
-        Size.PlatformDefault = False
-        TabOrder = 38
-        Text = #1054#1073#1088#1072#1097#1077#1085#1080#1077
-        TextSettings.Trimming = None
+      inherited mResponse: TMemo
+        Viewport.Width = 388.000000000000000000
+        Viewport.Height = 157.000000000000000000
      end
-      object btnGetDateFollow: TButton
-        Position.X = 111.000000000000000000
-        Position.Y = 24.000000000000000000
-        TabOrder = 39
-        Text = 'Follow'
-        TextSettings.Trimming = None
+      inherited GroupBox7: TGroupBox
+        inherited btnAddUserName: TButton
+          TabOrder = 38
+        end
+        inherited btnGetDateFollow: TButton
+          TabOrder = 39
+        end
+        inherited btnGetAgeAccaunt: TButton
+          TabOrder = 40
+        end
+        inherited btnCounterAddtoText: TButton
+          TabOrder = 41
+        end
+        inherited cbCounterName: TComboBox
+          TabOrder = 42
+        end
+        inherited btnGPT: TButton
+          TabOrder = 43
+        end
+        inherited btnRandomUserName: TButton
+          TabOrder = 44
+        end
+        inherited btnGetChannelStat: TButton
+          TabOrder = 45
+        end
+        inherited btnAIPic: TButton
+          TabOrder = 46
+        end
      end
-      object btnGetAgeAccaunt: TButton
-        Position.X = 199.000000000000000000
-        Position.Y = 24.000000000000000000
-        TabOrder = 40
-        Text = 'Age'
-        TextSettings.Trimming = None
+      inherited btnAddCommand: TButton
+        OnClick = frContruct1btnAddCommandClick
      end
-      object btnCounterAddtoText: TButton
-        Position.X = 9.000000000000000000
-        Position.Y = 54.000000000000000000
-        Size.Width = 94.000000000000000000
-        Size.Height = 22.000000000000000000
-        Size.PlatformDefault = False
-        TabOrder = 41
-        Text = #1057#1095#1077#1090#1095#1080#1082
-        TextSettings.Trimming = None
+      inherited btnEditCommand: TButton
+        OnClick = frContruct1btnEditCommandClick
      end
-      object cbCounterName: TComboBox
-        Position.X = 111.000000000000000000
-        Position.Y = 54.000000000000000000
-        Size.Width = 168.000000000000000000
-        Size.Height = 22.000000000000000000
-        Size.PlatformDefault = False
-        TabOrder = 42
+      inherited btnRmCommand: TButton
+        OnClick = frContruct1btnRmCommandClick
      end
-      object btnGPT: TButton
-        Position.X = 287.000000000000000000
-        Position.Y = 24.000000000000000000
-        TabOrder = 43
-        Text = #1053#1077#1081#1088#1086#1085#1082#1072
-        TextSettings.Trimming = None
-      end
-      object btnRandomUserName: TButton
-        Position.X = 9.000000000000000000
-        Position.Y = 84.000000000000000000
-        Size.Width = 168.000000000000000000
-        Size.Height = 22.000000000000000000
-        Size.PlatformDefault = False
-        TabOrder = 44
-        Text = #1056#1072#1085#1076#1086#1084#1085#1099#1081' '#1087#1086#1083#1100#1079#1086#1074#1072#1090#1077#1083#1100
-        TextSettings.Trimming = None
-      end
-      object btnGetChannelStat: TButton
-        Position.X = 185.000000000000000000
-        Position.Y = 84.000000000000000000
-        Size.Width = 122.000000000000000000
-        Size.Height = 22.000000000000000000
-        Size.PlatformDefault = False
-        TabOrder = 45
-        Text = #1057#1090#1072#1090#1080#1089#1090#1080#1082#1072' '#1082#1072#1085#1072#1083#1072
-        TextSettings.Trimming = None
-      end
-      object btnAIPic: TButton
-        Position.X = 287.000000000000000000
-        Position.Y = 54.000000000000000000
-        TabOrder = 46
-        Text = #1050#1072#1088#1090#1080#1085#1082#1072
-        TextSettings.Trimming = None
-      end
-    end
-    object btnAddCommand: TButton
-      Position.X = 9.000000000000000000
-      Position.Y = 411.000000000000000000
-      TabOrder = 43
-      Text = #1044#1086#1073#1072#1074#1080#1090#1100
-      TextSettings.Trimming = None
-    end
-    object btnEditCommand: TButton
-      Position.X = 97.000000000000000000
-      Position.Y = 411.000000000000000000
-      TabOrder = 44
-      Text = #1048#1079#1084#1077#1085#1080#1090#1100
-      TextSettings.Trimming = None
-    end
-    object btnRmCommand: TButton
-      Position.X = 185.000000000000000000
-      Position.Y = 411.000000000000000000
-      TabOrder = 45
-      Text = #1059#1076#1072#1083#1080#1090#1100
-      TextSettings.Trimming = None
-    end
-    object cbTextToSpeech: TCheckBox
-      Position.X = 168.000000000000000000
-      Position.Y = 16.000000000000000000
-      Size.Width = 217.000000000000000000
-      Size.Height = 19.000000000000000000
-      Size.PlatformDefault = False
-      TabOrder = 46
-      Text = #1054#1079#1074#1091#1095#1080#1074#1072#1090#1100' '#1089#1086#1086#1073#1097#1077#1085#1080#1103' '#1087#1086#1089#1083#1077' "!!!"'
-      Visible = False
    end
  end
  object GroupBox9: TGroupBox
@@ -202,7 +95,7 @@ object frCommands: TfrCommands
    Padding.Bottom = 5.000000000000000000
    Position.X = 191.000000000000000000
    Position.Y = 209.000000000000000000
-    Size.Width = 412.000000000000000000
+    Size.Width = 354.000000000000000000
    Size.Height = 241.000000000000000000
    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
@@ -227,7 +120,7 @@ object frCommands: TfrCommands
    object lbRandomRespons: TListBox
      Position.X = 127.000000000000000000
      Position.Y = 49.000000000000000000
-      Size.Width = 274.000000000000000000
+      Size.Width = 218.000000000000000000
      Size.Height = 120.000000000000000000
      Size.PlatformDefault = False
      TabOrder = 13
@@ -238,7 +131,7 @@ object frCommands: TfrCommands
      DefaultItemStyles.GroupFooterStyle = ''
      Left = 335
      Top = 315
-      Viewport.Width = 270.000000000000000000
+      Viewport.Width = 214.000000000000000000
      Viewport.Height = 116.000000000000000000
    end
    object edtRandomGroup: TEdit
@@ -258,7 +151,7 @@ object frCommands: TfrCommands
      TabOrder = 14
      Position.X = 127.000000000000000000
      Position.Y = 177.000000000000000000
-      Size.Width = 274.000000000000000000
+      Size.Width = 218.000000000000000000
      Size.Height = 21.000000000000000000
      Size.PlatformDefault = False
      Left = 335
@@ -282,7 +175,7 @@ object frCommands: TfrCommands
      TextSettings.Trimming = None
    end
    object btnRmGroup: TButton
-      Position.X = 263.000000000000000000
+      Position.X = 207.000000000000000000
      Position.Y = 206.000000000000000000
      Size.Width = 138.000000000000000000
      Size.Height = 22.000000000000000000
@@ -306,7 +199,7 @@ object frCommands: TfrCommands
      Position.Y = 24.000000000000000000
      TextSettings.Trimming = None
      Text = #1042#1072#1088#1080#1072#1085#1090#1099' '#1086#1090#1074#1077#1090#1072
-      TabOrder = 43
+      TabOrder = 44
    end
  end
  object GroupBox8: TGroupBox
@@ -360,7 +253,7 @@ object frCommands: TfrCommands
    object btnRandAdd: TButton
      Position.X = 9.000000000000000000
      Position.Y = 205.000000000000000000
-      TabOrder = 33
+      TabOrder = 32
      Text = #1044#1086#1073#1072#1074#1080#1090#1100
      TextSettings.Trimming = None
      OnClick = btnRandAddClick
@@ -371,7 +264,7 @@ object frCommands: TfrCommands
      Size.Width = 70.000000000000000000
      Size.Height = 22.000000000000000000
      Size.PlatformDefault = False
-      TabOrder = 34
+      TabOrder = 33
      Text = #1059#1076#1072#1083#1080#1090#1100
      TextSettings.Trimming = None
      OnClick = btnRandDelClick
@@ -387,6 +280,7 @@ object frCommands: TfrCommands
      TabOrder = 36
      RowCount = 0
      Options = [ColumnResize, ColumnMove, ColLines, RowLines, Tabs, Header, HeaderClick, AutoDisplacement]
+      OnCellDblClick = sgRandomIntCellDblClick
      Viewport.Width = 153.000000000000000000
      Viewport.Height = 119.000000000000000000
      object scRIntName: TStringColumn
@@ -407,171 +301,74 @@ object frCommands: TfrCommands
    end
  end
  object GroupBox11: TGroupBox
+    Padding.Left = 10.000000000000000000
+    Padding.Top = 20.000000000000000000
+    Padding.Right = 10.000000000000000000
+    Padding.Bottom = 10.000000000000000000
    Position.X = 8.000000000000000000
    Position.Y = 458.000000000000000000
-    Size.Width = 361.000000000000000000
+    Size.Width = 313.000000000000000000
    Size.Height = 240.000000000000000000
    Size.PlatformDefault = False
    Text = #1047#1074#1091#1082
    TabOrder = 4
-    object btnSoundAdd: TButton
-      Position.X = 8.000000000000000000
-      Position.Y = 211.000000000000000000
-      TabOrder = 38
-      Text = #1044#1086#1073#1072#1074#1080#1090#1100
-      TextSettings.Trimming = None
-    end
-    object btnSoundDel: TButton
-      Position.X = 96.000000000000000000
-      Position.Y = 211.000000000000000000
-      Size.Width = 70.000000000000000000
-      Size.Height = 22.000000000000000000
+    inline frsgSounds: TfrSimpleGrid
+      Align = Client
+      Hint = '||'
+      Size.Width = 293.000000000000000000
+      Size.Height = 210.000000000000000000
      Size.PlatformDefault = False
-      TabOrder = 39
-      Text = #1059#1076#1072#1083#1080#1090#1100
-      TextSettings.Trimming = None
-    end
-    object edtSoundName: TEdit
-      Touch.InteractiveGestures = [LongTap, DoubleTap]
-      TabOrder = 40
-      Position.X = 8.000000000000000000
-      Position.Y = 181.000000000000000000
-      Size.Width = 106.000000000000000000
-      Size.Height = 22.000000000000000000
-      Size.PlatformDefault = False
-    end
-    object edtSoundFileName: TEdit
-      Touch.InteractiveGestures = [LongTap, DoubleTap]
-      TabOrder = 41
-      Position.X = 122.000000000000000000
-      Position.Y = 180.000000000000000000
-      Size.Width = 196.000000000000000000
-      Size.Height = 22.000000000000000000
-      Size.PlatformDefault = False
-    end
-    object btnSoundOpen: TButton
-      Position.X = 326.000000000000000000
-      Position.Y = 181.000000000000000000
-      Size.Width = 27.000000000000000000
-      Size.Height = 22.000000000000000000
-      Size.PlatformDefault = False
-      TabOrder = 42
-      Text = '...'
-      TextSettings.Trimming = None
-    end
-    object tbSoundVolume: TTrackBar
-      CanParentFocus = True
-      Orientation = Horizontal
-      Position.X = 174.000000000000000000
-      Position.Y = 211.000000000000000000
-      Size.Width = 91.000000000000000000
-      Size.Height = 19.000000000000000000
-      Size.PlatformDefault = False
-      TabOrder = 43
-      Value = 100.000000000000000000
-    end
-    object btnSoundTest: TButton
-      Position.X = 273.000000000000000000
-      Position.Y = 210.000000000000000000
-      TabOrder = 44
-      Text = #1058#1077#1089#1090
-      TextSettings.Trimming = None
-    end
-    object sgSAFiles: TStringGrid
-      CanFocus = True
-      ClipChildren = True
-      Position.X = 8.000000000000000000
-      Position.Y = 24.000000000000000000
-      Size.Width = 345.000000000000000000
-      Size.Height = 149.000000000000000000
-      Size.PlatformDefault = False
-      TabOrder = 45
-      RowCount = 0
-      Options = [ColumnResize, ColumnMove, ColLines, RowLines, Tabs, Header, HeaderClick, AutoDisplacement]
-      Viewport.Width = 341.000000000000000000
-      Viewport.Height = 124.000000000000000000
-      object sgSAName: TStringColumn
-        Header = #1053#1072#1079#1074#1072#1085#1080#1077
-        HeaderSettings.TextSettings.WordWrap = False
+      inherited sg: TStringGrid
+        Size.Width = 293.000000000000000000
+        TabOrder = 44
+        OnCellDblClick = frsgSoundssgCellDblClick
+        Viewport.Width = 289.000000000000000000
+        Viewport.Height = 124.000000000000000000
+        inherited sgR2: TStringColumn
+          Size.Width = 170.000000000000000000
+        end
      end
-      object sgSAFile: TStringColumn
-        Header = #1060#1072#1081#1083
-        HeaderSettings.TextSettings.WordWrap = False
-        Size.Width = 220.000000000000000000
+      inherited edtFileName: TEdit
+        Size.Width = 128.000000000000000000
+      end
+      inherited btnOpen: TButton
+        Position.X = 258.000000000000000000
      end
    end
  end
  object GroupBox24: TGroupBox
-    Position.X = 377.000000000000000000
+    Padding.Left = 10.000000000000000000
+    Padding.Top = 20.000000000000000000
+    Padding.Right = 10.000000000000000000
+    Padding.Bottom = 10.000000000000000000
+    Position.X = 329.000000000000000000
    Position.Y = 458.000000000000000000
-    Size.Width = 332.000000000000000000
+    Size.Width = 313.000000000000000000
    Size.Height = 241.000000000000000000
    Size.PlatformDefault = False
    Text = #1060#1072#1081#1083#1099
    TabOrder = 2
-    object btnTextAdd: TButton
-      Position.X = 8.000000000000000000
-      Position.Y = 211.000000000000000000
-      TabOrder = 38
-      Text = #1044#1086#1073#1072#1074#1080#1090#1100
-      TextSettings.Trimming = None
-    end
-    object btnTextDel: TButton
-      Position.X = 96.000000000000000000
-      Position.Y = 211.000000000000000000
-      Size.Width = 70.000000000000000000
-      Size.Height = 22.000000000000000000
+    inline frsgFiles: TfrSimpleGrid
+      Align = Client
+      Hint = '|('
+      Size.Width = 293.000000000000000000
+      Size.Height = 211.000000000000000000
      Size.PlatformDefault = False
-      TabOrder = 39
-      Text = #1059#1076#1072#1083#1080#1090#1100
-      TextSettings.Trimming = None
-    end
-    object edtTextName: TEdit
-      Touch.InteractiveGestures = [LongTap, DoubleTap]
-      TabOrder = 40
-      Position.X = 8.000000000000000000
-      Position.Y = 181.000000000000000000
-    end
-    object edtTextFileName: TEdit
-      Touch.InteractiveGestures = [LongTap, DoubleTap]
-      TabOrder = 41
-      Position.X = 116.000000000000000000
-      Position.Y = 181.000000000000000000
-      Size.Width = 141.000000000000000000
-      Size.Height = 22.000000000000000000
-      Size.PlatformDefault = False
-    end
-    object btnTextOpen: TButton
-      Position.X = 265.000000000000000000
-      Position.Y = 181.000000000000000000
-      Size.Width = 34.000000000000000000
-      Size.Height = 22.000000000000000000
-      Size.PlatformDefault = False
-      TabOrder = 42
-      Text = '...'
-      TextSettings.Trimming = None
-    end
-    object sgTFiles: TStringGrid
-      CanFocus = True
-      ClipChildren = True
-      Position.X = 8.000000000000000000
-      Position.Y = 24.000000000000000000
-      Size.Width = 297.000000000000000000
-      Size.Height = 149.000000000000000000
-      Size.PlatformDefault = False
-      TabOrder = 45
-      RowCount = 0
-      Options = [ColumnResize, ColumnMove, ColLines, RowLines, Tabs, Header, HeaderClick, AutoDisplacement]
-      Viewport.Width = 293.000000000000000000
-      Viewport.Height = 124.000000000000000000
-      object scTFileName: TStringColumn
-        Header = #1053#1072#1079#1074#1072#1085#1080#1077
-        HeaderSettings.TextSettings.WordWrap = False
+      inherited sg: TStringGrid
+        Size.Width = 293.000000000000000000
+        TabOrder = 44
+        OnCellDblClick = frsgFilessgCellDblClick
+        Viewport.Width = 289.000000000000000000
+        Viewport.Height = 124.000000000000000000
+        inherited sgR2: TStringColumn
+          Size.Width = 170.000000000000000000
+        end
      end
-      object scTFileFile: TStringColumn
-        Header = #1060#1072#1081#1083
-        HeaderSettings.TextSettings.WordWrap = False
-        Size.Width = 170.000000000000000000
+      inherited edtFileName: TEdit
+        Size.Width = 128.000000000000000000
+      end
+      inherited btnOpen: TButton
+        Position.X = 258.000000000000000000
      end
    end
  end
@@ -580,77 +377,41 @@ object frCommands: TfrCommands
    Top = 392
  end
  object GroupBox2: TGroupBox
-    Position.X = 717.000000000000000000
+    Padding.Left = 10.000000000000000000
+    Padding.Top = 20.000000000000000000
+    Padding.Right = 10.000000000000000000
+    Padding.Bottom = 10.000000000000000000
+    Position.X = 650.000000000000000000
    Position.Y = 458.000000000000000000
-    Size.Width = 324.000000000000000000
+    Size.Width = 313.000000000000000000
    Size.Height = 240.000000000000000000
    Size.PlatformDefault = False
    Text = #1053#1077#1081#1088#1086#1082#1086#1085#1089#1090#1088#1091#1082#1090#1086#1088
    TabOrder = 8
-    object sgAIGen: TStringGrid
-      CanFocus = True
-      ClipChildren = True
-      Position.X = 8.000000000000000000
-      Position.Y = 24.000000000000000000
-      Size.Width = 305.000000000000000000
-      Size.Height = 149.000000000000000000
+    inline frsgNeiro: TfrSimpleGrid
+      Align = Client
+      Hint = '<|'
+      Size.Width = 293.000000000000000000
+      Size.Height = 210.000000000000000000
      Size.PlatformDefault = False
-      TabOrder = 38
-      RowCount = 0
-      Options = [ColumnResize, ColumnMove, ColLines, RowLines, Tabs, Header, HeaderClick, AutoDisplacement]
-      Viewport.Width = 301.000000000000000000
-      Viewport.Height = 124.000000000000000000
-      object StringColumn1: TStringColumn
-        Header = #1053#1072#1079#1074#1072#1085#1080#1077
-        HeaderSettings.TextSettings.WordWrap = False
+      inherited sg: TStringGrid
+        Size.Width = 293.000000000000000000
+        TabOrder = 44
+        OnCellDblClick = frsgNeirosgCellDblClick
+        Viewport.Width = 289.000000000000000000
+        Viewport.Height = 124.000000000000000000
+        inherited sgR2: TStringColumn
+          Header = #1047#1072#1087#1088#1086#1089
+          Size.Width = 170.000000000000000000
+        end
      end
-      object StringColumn2: TStringColumn
-        Header = #1047#1072#1087#1088#1086#1089
-        HeaderSettings.TextSettings.WordWrap = False
-        Size.Width = 180.000000000000000000
+      inherited edtFileName: TEdit
+        Size.Width = 163.000000000000000000
+      end
+      inherited btnOpen: TButton
+        Position.X = 258.000000000000000000
+        Visible = False
      end
-    end
-    object edtAIGenName: TEdit
-      Touch.InteractiveGestures = [LongTap, DoubleTap]
-      TabOrder = 39
-      Position.X = 8.000000000000000000
-      Position.Y = 181.000000000000000000
-      Size.Width = 102.000000000000000000
-      Size.Height = 22.000000000000000000
-      Size.PlatformDefault = False
-    end
-    object edtAIGenRequest: TEdit
-      Touch.InteractiveGestures = [LongTap, DoubleTap]
-      TabOrder = 40
-      Position.X = 118.000000000000000000
-      Position.Y = 181.000000000000000000
-      Size.Width = 195.000000000000000000
-      Size.Height = 22.000000000000000000
-      Size.PlatformDefault = False
-    end
-    object btnAIGenAdd: TButton
-      Position.X = 8.000000000000000000
-      Position.Y = 211.000000000000000000
-      TabOrder = 41
-      Text = #1044#1086#1073#1072#1074#1080#1090#1100
-      TextSettings.Trimming = None
-    end
-    object btnAIGenDel: TButton
-      Position.X = 96.000000000000000000
-      Position.Y = 211.000000000000000000
-      TabOrder = 42
-      Text = #1059#1076#1072#1083#1080#1090#1100
-      TextSettings.Trimming = None
-    end
-    object btnAIGetTextUser: TButton
-      Position.X = 184.000000000000000000
-      Position.Y = 211.000000000000000000
-      Size.Width = 129.000000000000000000
-      Size.Height = 22.000000000000000000
-      Size.PlatformDefault = False
-      TabOrder = 43
-      Text = #1058#1077#1082#1089#1090' '#1087#1086#1083#1100#1079#1086#1074#1072#1090#1077#1083#1103
-      TextSettings.Trimming = None
    end
  end
 end