исправил оповещения, теперь работают четко

2025-08-16 22:42:29 +03:00
parent 2386d14b86
commit fd1c6b6bb8
17 changed files with 968 additions and 928 deletions
@@ -3,7 +3,7 @@ object TTW_Bot: TTTW_Bot
  Top = 0
  Caption = 'TTW_Bot'
  ClientHeight = 886
-  ClientWidth = 970
+  ClientWidth = 1003
  Position = Designed
  FormFactor.Width = 320
  FormFactor.Height = 480
@@ -15,30 +15,30 @@ object TTW_Bot: TTTW_Bot
  object V: TTabControl
    Align = Client
    Images = ImageList1
-    Size.Width = 970.000000000000000000
+    Size.Width = 1003.000000000000000000
    Size.Height = 744.000000000000000000
    Size.PlatformDefault = False
-    TabIndex = 5
+    TabIndex = 3
    TabOrder = 0
    TabPosition = PlatformDefault
    Sizes = (
-      970s
+      1003s
      718s
-      970s
+      1003s
      718s
-      970s
+      1003s
      718s
-      970s
+      1003s
      718s
-      970s
+      1003s
      718s
-      970s
+      1003s
      718s
-      970s
+      1003s
      718s
-      970s
+      1003s
      718s
-      970s
+      1003s
      718s)
    object TabItem1: TTabItem
      CustomIcon = <
@@ -57,7 +57,7 @@ object TTW_Bot: TTTW_Bot
      ExplicitSize.cy = 26.000000000000000000
      inline frSettings1: TfrSettings
        Align = Client
-        Size.Width = 970.000000000000000000
+        Size.Width = 1003.000000000000000000
        Size.Height = 718.000000000000000000
        Size.PlatformDefault = False
        inherited GroupBox3: TGroupBox
@@ -92,35 +92,35 @@ object TTW_Bot: TTTW_Bot
            TabOrder = 34
          end
          inherited Label63: TLabel
-            TabOrder = 30
+            TabOrder = 29
          end
          inherited edtDAClientID: TEdit
-            TabOrder = 32
-          end
-          inherited Label64: TLabel
            TabOrder = 31
          end
-          inherited edtDAClientSecret: TEdit
-            TabOrder = 33
+          inherited Label64: TLabel
+            TabOrder = 30
+          end
+          inherited Label65: TLabel
+            TabOrder = 32
          end
          inherited edtDARedirectURL: TEdit
-            TabOrder = 40
+            TabOrder = 37
          end
          inherited edtDACode: TEdit
-            TabOrder = 36
+            TabOrder = 35
          end
          inherited Label66: TLabel
-            TabOrder = 37
+            TabOrder = 36
          end
          inherited btnDAStart: TButton
            Images = ImageList1
            ImageIndex = 18
-            TabOrder = 39
+            TabOrder = 38
            OnClick = frSettings1btnDAStartClick
          end
          inherited btnGetDADef: TButton
            Images = ImageList1
-            TabOrder = 43
+            TabOrder = 40
          end
        end
        inherited btnOpenRomaning: TButton
@@ -168,7 +168,7 @@ object TTW_Bot: TTTW_Bot
      ExplicitSize.cy = 26.000000000000000000
      inline frAI1: TfrAI
        Align = Client
-        Size.Width = 970.000000000000000000
+        Size.Width = 1003.000000000000000000
        Size.Height = 718.000000000000000000
        Size.PlatformDefault = False
        inherited btnGetAIDef: TButton
@@ -201,7 +201,7 @@ object TTW_Bot: TTTW_Bot
      ExplicitSize.cy = 26.000000000000000000
      inline frCommands1: TfrCommands
        Align = Client
-        Size.Width = 970.000000000000000000
+        Size.Width = 1003.000000000000000000
        Size.Height = 718.000000000000000000
        Size.PlatformDefault = False
        inherited sgCommands: TStringGrid
@@ -269,6 +269,15 @@ object TTW_Bot: TTTW_Bot
              Images = ImageList1
              ImageIndex = 12
            end
+            object cbHelloTTS: TCheckBox
+              Position.X = 240.000000000000000000
+              Position.Y = 35.000000000000000000
+              Size.Width = 152.000000000000000000
+              Size.Height = 19.000000000000000000
+              Size.PlatformDefault = False
+              TabOrder = 48
+              Text = #1055#1088#1080#1074#1077#1090#1089#1090#1074#1086#1074#1072#1090#1100' '#1085#1086#1074#1099#1093
+            end
          end
        end
        inherited GroupBox9: TGroupBox
@@ -423,7 +432,7 @@ object TTW_Bot: TTTW_Bot
        item
        end>
      TextSettings.Trimming = None
-      IsSelected = False
+      IsSelected = True
      ImageIndex = 20
      Size.Width = 79.000000000000000000
      Size.Height = 26.000000000000000000
@@ -466,7 +475,8 @@ object TTW_Bot: TTTW_Bot
        Padding.Top = 20.000000000000000000
        Padding.Right = 10.000000000000000000
        Padding.Bottom = 10.000000000000000000
-        Position.Y = 249.000000000000000000
+        Position.X = 1.000000000000000000
+        Position.Y = 342.000000000000000000
        Size.Width = 841.000000000000000000
        Size.Height = 368.000000000000000000
        Size.PlatformDefault = False
@@ -509,6 +519,52 @@ object TTW_Bot: TTTW_Bot
          end
        end
      end
+      object GroupBox3: TGroupBox
+        Padding.Left = 10.000000000000000000
+        Padding.Top = 20.000000000000000000
+        Padding.Right = 10.000000000000000000
+        Padding.Bottom = 10.000000000000000000
+        Position.X = 337.000000000000000000
+        Position.Y = 8.000000000000000000
+        Size.Width = 625.000000000000000000
+        Size.Height = 326.000000000000000000
+        Size.PlatformDefault = False
+        Text = #1053#1072#1075#1088#1072#1076#1099
+        TabOrder = 2
+        inline frRevards1: TfrRevards
+          Align = Client
+          Size.Width = 605.000000000000000000
+          Size.Height = 296.000000000000000000
+          Size.PlatformDefault = False
+          inherited StringGrid1: TStringGrid
+            Size.Width = 605.000000000000000000
+            Size.Height = 153.000000000000000000
+            Viewport.Width = 605.000000000000000000
+            Viewport.Height = 153.000000000000000000
+            inherited StringColumn1: TStringColumn
+              Size.Width = 241.000000000000000000
+            end
+            inherited StringColumn2: TStringColumn
+              Size.Width = 140.000000000000000000
+            end
+          end
+          inherited Label34: TLabel
+            TabOrder = 2
+          end
+          inherited nbCustomRevardCost: TNumberBox
+            TabOrder = 5
+          end
+          inherited Label35: TLabel
+            TabOrder = 3
+          end
+          inherited Label2: TLabel
+            TabOrder = 9
+          end
+          inherited btnDelCustomRewards: TButton
+            TabOrder = 16
+          end
+        end
+      end
    end
    object TabItem4: TTabItem
      CustomIcon = <
@@ -527,13 +583,13 @@ object TTW_Bot: TTTW_Bot
      ExplicitSize.cy = 26.000000000000000000
      inline frOBS1: TfrOBS
        Align = Top
-        Size.Width = 970.000000000000000000
+        Size.Width = 1003.000000000000000000
        Size.Height = 345.000000000000000000
        Size.PlatformDefault = False
        inherited sgWebChats: TStringGrid
-          Size.Width = 970.000000000000000000
+          Size.Width = 1003.000000000000000000
          Size.Height = 282.000000000000000000
-          Viewport.Width = 970.000000000000000000
+          Viewport.Width = 1003.000000000000000000
          Viewport.Height = 282.000000000000000000
          inherited StringColumn2: TStringColumn
            Size.Width = 200.000000000000000000
@@ -550,7 +606,7 @@ object TTW_Bot: TTTW_Bot
          Anchors = [akTop, akRight]
          Images = ImageList1
          ImageIndex = 4
-          Position.X = 882.000000000000000000
+          Position.X = 915.000000000000000000
          TabOrder = 3
          OnClick = frOBS1btnDeleteeChatClick
        end
@@ -566,7 +622,7 @@ object TTW_Bot: TTTW_Bot
          Images = ImageList1
          ImageIndex = 5
          Position.X = 264.000000000000000000
-          TabOrder = 8
+          TabOrder = 11
        end
        object btnCreateChat: TButton
          Images = ImageList1
@@ -603,7 +659,7 @@ object TTW_Bot: TTTW_Bot
        item
        end>
      TextSettings.Trimming = None
-      IsSelected = True
+      IsSelected = False
      ImageIndex = 24
      Size.Width = 110.000000000000000000
      Size.Height = 26.000000000000000000
@@ -615,7 +671,7 @@ object TTW_Bot: TTTW_Bot
      ExplicitSize.cy = 26.000000000000000000
      inline frNotify1: TfrNotify
        Align = Client
-        Size.Width = 970.000000000000000000
+        Size.Width = 1003.000000000000000000
        Size.Height = 718.000000000000000000
        Size.PlatformDefault = False
        inherited btnNotifyOpen: TButton
@@ -697,7 +753,7 @@ object TTW_Bot: TTTW_Bot
      ExplicitSize.cy = 26.000000000000000000
      inline frAutoActions1: TfrAutoActions
        Align = Client
-        Size.Width = 970.000000000000000000
+        Size.Width = 1003.000000000000000000
        Size.Height = 718.000000000000000000
        Size.PlatformDefault = False
        inherited GroupBox20: TGroupBox
@@ -850,20 +906,20 @@ object TTW_Bot: TTTW_Bot
      ExplicitSize.cy = 26.000000000000000000
      inline frLog1: TfrLog
        Align = Client
-        Size.Width = 970.000000000000000000
+        Size.Width = 1003.000000000000000000
        Size.Height = 718.000000000000000000
        Size.PlatformDefault = False
        inherited Panel1: TPanel
-          Size.Width = 970.000000000000000000
+          Size.Width = 1003.000000000000000000
          inherited btnClear: TButton
            Images = ImageList1
            ImageIndex = 4
          end
        end
        inherited sgLog: TStringGrid
-          Size.Width = 970.000000000000000000
+          Size.Width = 1003.000000000000000000
          Size.Height = 685.000000000000000000
-          Viewport.Width = 970.000000000000000000
+          Viewport.Width = 1003.000000000000000000
          Viewport.Height = 685.000000000000000000
          inherited StringColumn2: TStringColumn
            Size.Width = 170.000000000000000000
@@ -881,7 +937,7 @@ object TTW_Bot: TTTW_Bot
  object Panel1: TPanel
    Align = Bottom
    Position.Y = 744.000000000000000000
-    Size.Width = 970.000000000000000000
+    Size.Width = 1003.000000000000000000
    Size.Height = 142.000000000000000000
    Size.PlatformDefault = False
    TabOrder = 10
@@ -1004,7 +1060,7 @@ object TTW_Bot: TTTW_Bot
    end
    object Label1: TLabel
      Anchors = [akTop, akRight]
-      Position.X = 821.000000000000000000
+      Position.X = 854.000000000000000000
      Position.Y = 8.000000000000000000
      Text = #1054#1090#1076#1077#1083#1100#1085#1086#1077' '#1089#1087#1072#1089#1080#1073#1086':'
      TabOrder = 12
@@ -1041,7 +1097,7 @@ object TTW_Bot: TTTW_Bot
      Anchors = [akTop, akRight]
      Images = ImageList1
      ImageIndex = 11
-      Position.X = 821.000000000000000000
+      Position.X = 854.000000000000000000
      Position.Y = 33.000000000000000000
      Size.Width = 141.000000000000000000
      Size.Height = 22.000000000000000000
@@ -1054,7 +1110,7 @@ object TTW_Bot: TTTW_Bot
      Anchors = [akTop, akRight]
      Images = ImageList1
      ImageIndex = 11
-      Position.X = 821.000000000000000000
+      Position.X = 854.000000000000000000
      Position.Y = 63.000000000000000000
      Size.Width = 141.000000000000000000
      Size.Height = 22.000000000000000000
@@ -1067,7 +1123,7 @@ object TTW_Bot: TTTW_Bot
      Anchors = [akTop, akRight]
      Images = ImageList1
      ImageIndex = 11
-      Position.X = 821.000000000000000000
+      Position.X = 854.000000000000000000
      Position.Y = 93.000000000000000000
      Size.Width = 141.000000000000000000
      Size.Height = 22.000000000000000000