добавил навыки и привязал к ним донаты и баллы канала

forms/uCreateChat.fmx

@@ -25,7 +25,7 @@ object fCreateChat: TfCreateChat
       Size.Height = 251.000000000000000000
       Size.PlatformDefault = False
       inherited ccbStyleBorderColor: TColorComboBox
-        TabOrder = 30
+        TabOrder = 29
       end
       inherited Label40: TLabel
         TabOrder = 8
@@ -70,6 +70,9 @@ object fCreateChat: TfCreateChat
       Size.Width = 240.000000000000000000
       Size.Height = 125.000000000000000000
       Size.PlatformDefault = False
+      inherited Label41: TLabel
+        TabOrder = 5
+      end
       inherited ccbFontColor: TColorComboBox
         TabOrder = 36
       end

forms/uCreateChat.pas

@@ -137,12 +137,10 @@ procedure TfCreateChat.FormCreate(Sender: TObject);
   procedure LoadFontList;
   var
     SearchRec: TSearchRec;
-    n: integer;
   begin
     if not DirectoryExists(myConst.fontsPath) then
       CreateDir(myConst.fontsPath);
 
-    n := 1;
     if FindFirst(IncludeTrailingPathDelimiter(myConst.fontsPath) + '*.*',
       faArchive, SearchRec) = 0 then
       try
@@ -151,7 +149,6 @@ procedure TfCreateChat.FormCreate(Sender: TObject);
           begin
             fCreateChat.frFontSettings1.cbFontStyleDefault.Items.Add
               (SearchRec.Name);
-            Inc(n);
           end;
         until FindNext(SearchRec) <> 0;
       finally

forms/uGeneral.fmx

@@ -18,7 +18,7 @@ object TTW_Bot: TTTW_Bot
     Size.Width = 970.000000000000000000
     Size.Height = 744.000000000000000000
     Size.PlatformDefault = False
-    TabIndex = 0
+    TabIndex = 5
     TabOrder = 0
     TabPosition = PlatformDefault
     Sizes = (
@@ -45,7 +45,7 @@ object TTW_Bot: TTTW_Bot
         item
         end>
       TextSettings.Trimming = None
-      IsSelected = True
+      IsSelected = False
       ImageIndex = 21
       Size.Width = 96.000000000000000000
       Size.Height = 26.000000000000000000
@@ -76,6 +76,7 @@ object TTW_Bot: TTTW_Bot
           inherited btnGetTokenStreamer: TButton
             Images = ImageList1
             ImageIndex = 10
+            TabOrder = 30
           end
           inherited edtBotTokenStreamer: TEdit
             TabOrder = 33
@@ -88,34 +89,38 @@ object TTW_Bot: TTTW_Bot
           inherited btnDAGetCode: TButton
             Images = ImageList1
             ImageIndex = 10
-            TabOrder = 38
+            TabOrder = 34
+          end
+          inherited Label63: TLabel
+            TabOrder = 30
           end
           inherited edtDAClientID: TEdit
-            TabOrder = 33
+            TabOrder = 32
           end
           inherited Label64: TLabel
             TabOrder = 31
           end
           inherited edtDAClientSecret: TEdit
-            TabOrder = 34
-          end
-          inherited Label65: TLabel
-            TabOrder = 35
+            TabOrder = 33
           end
           inherited edtDARedirectURL: TEdit
-            TabOrder = 43
+            TabOrder = 40
           end
           inherited edtDACode: TEdit
             TabOrder = 36
           end
+          inherited Label66: TLabel
+            TabOrder = 37
+          end
           inherited btnDAStart: TButton
             Images = ImageList1
             ImageIndex = 18
+            TabOrder = 39
             OnClick = frSettings1btnDAStartClick
           end
           inherited btnGetDADef: TButton
             Images = ImageList1
-            TabOrder = 44
+            TabOrder = 43
           end
         end
         inherited btnOpenRomaning: TButton
@@ -276,10 +281,18 @@ object TTW_Bot: TTTW_Bot
               Viewport.Width = 207.000000000000000000
               Viewport.Height = 116.000000000000000000
             end
+            inherited btnRandomAdd: TButton
+              Images = ImageList1
+              ImageIndex = 0
+            end
             inherited btnRandomDel: TButton
+              Images = ImageList1
+              ImageIndex = 12
               TabOrder = 31
             end
             inherited btnRmGroup: TButton
+              Images = ImageList1
+              ImageIndex = 4
               TabOrder = 33
             end
             inherited Label4: TLabel
@@ -437,11 +450,65 @@ object TTW_Bot: TTTW_Bot
           Size.Width = 308.000000000000000000
           Size.Height = 203.000000000000000000
           Size.PlatformDefault = False
+          inherited btnUpdateVoices: TButton
+            Images = ImageList1
+            ImageIndex = 10
+          end
           inherited btnSend: TButton
+            Images = ImageList1
+            ImageIndex = 6
             OnClick = frTTS1btnSendClick
           end
         end
       end
+      object GroupBox2: TGroupBox
+        Padding.Left = 10.000000000000000000
+        Padding.Top = 20.000000000000000000
+        Padding.Right = 10.000000000000000000
+        Padding.Bottom = 10.000000000000000000
+        Position.Y = 249.000000000000000000
+        Size.Width = 841.000000000000000000
+        Size.Height = 368.000000000000000000
+        Size.PlatformDefault = False
+        Text = #1057#1086#1073#1099#1090#1080#1103
+        TabOrder = 1
+        inline frEvents1: TfrEvents
+          Align = Client
+          Size.Width = 821.000000000000000000
+          Size.Height = 338.000000000000000000
+          Size.PlatformDefault = False
+          inherited sgEvents: TStringGrid
+            Size.Width = 721.000000000000000000
+            Viewport.Width = 721.000000000000000000
+            Viewport.Height = 211.000000000000000000
+            inherited StringColumn1: TStringColumn
+              Size.Width = 150.000000000000000000
+            end
+            inherited StringColumn2: TStringColumn
+              Size.Width = 150.000000000000000000
+            end
+            inherited StringColumn3: TStringColumn
+              Size.Width = 150.000000000000000000
+            end
+            inherited StringColumn4: TStringColumn
+              Size.Width = 150.000000000000000000
+            end
+          end
+          inherited btnAdd: TButton
+            Images = ImageList1
+            ImageIndex = 0
+            Position.X = 737.000000000000000000
+          end
+          inherited btnDelete: TButton
+            Images = ImageList1
+            ImageIndex = 12
+            Position.X = 737.000000000000000000
+          end
+          inherited pVKGenerate: TPanel
+            Visible = True
+          end
+        end
+      end
     end
     object TabItem4: TTabItem
       CustomIcon = <
@@ -464,84 +531,42 @@ object TTW_Bot: TTTW_Bot
         Size.Height = 345.000000000000000000
         Size.PlatformDefault = False
         inherited sgWebChats: TStringGrid
-          Align = Bottom
-          CanFocus = True
-          ClipChildren = True
-          Position.Y = 63.000000000000000000
           Size.Width = 970.000000000000000000
           Size.Height = 282.000000000000000000
-          Size.PlatformDefault = False
-          TabOrder = 0
-          RowCount = 0
-          Options = [ColumnResize, ColumnMove, ColLines, RowLines, Tabs, Header, HeaderClick, AutoDisplacement]
           Viewport.Width = 970.000000000000000000
           Viewport.Height = 282.000000000000000000
-          inherited IntegerColumn1: TIntegerColumn
-            Header = #1055#1086#1088#1090
-            HeaderSettings.TextSettings.WordWrap = False
-          end
-          inherited StringColumn1: TStringColumn
-            Header = #1058#1080#1087
-            HeaderSettings.TextSettings.WordWrap = False
-          end
           inherited StringColumn2: TStringColumn
-            Header = #1057#1089#1099#1083#1082#1072' '#1076#1083#1103' OBS'
-            HeaderSettings.TextSettings.WordWrap = False
             Size.Width = 200.000000000000000000
           end
         end
         inherited btnCreateOBSChat: TButton
           Images = ImageList1
           ImageIndex = 13
-          Position.X = 8.000000000000000000
-          Position.Y = 8.000000000000000000
           Size.Width = 94.000000000000000000
-          Size.Height = 22.000000000000000000
           Size.PlatformDefault = False
           TabOrder = 2
-          Text = #1057#1086#1079#1076#1072#1090#1100' '#1095#1072#1090
-          TextSettings.Trimming = None
         end
         inherited btnDeleteeChat: TButton
           Anchors = [akTop, akRight]
           Images = ImageList1
           ImageIndex = 4
           Position.X = 882.000000000000000000
-          Position.Y = 8.000000000000000000
           TabOrder = 3
-          Text = #1059#1076#1072#1083#1080#1090#1100
-          TextSettings.Trimming = None
           OnClick = frOBS1btnDeleteeChatClick
         end
         inherited Label1: TLabel
-          Position.X = 8.000000000000000000
-          Position.Y = 38.000000000000000000
-          Text = #1057#1086#1079#1076#1072#1085#1085#1099#1077' '#1095#1072#1090#1099':'
-          TabOrder = 13
+          TabOrder = 12
         end
         inherited btnCreateOBSNotify: TButton
           Images = ImageList1
           ImageIndex = 24
           Position.X = 110.000000000000000000
-          Position.Y = 8.000000000000000000
-          Size.Width = 146.000000000000000000
-          Size.Height = 22.000000000000000000
-          Size.PlatformDefault = False
-          TabOrder = 4
-          Text = #1057#1086#1079#1076#1072#1090#1100' '#1086#1087#1086#1074#1077#1097#1077#1085#1080#1077
-          TextSettings.Trimming = None
         end
         inherited btnCreateOBSKandinsky: TButton
           Images = ImageList1
           ImageIndex = 5
           Position.X = 264.000000000000000000
-          Position.Y = 8.000000000000000000
-          Size.Width = 147.000000000000000000
-          Size.Height = 22.000000000000000000
-          Size.PlatformDefault = False
-          TabOrder = 5
-          Text = #1057#1086#1079#1076#1072#1090#1100' '#1050#1072#1085#1076#1080#1085#1089#1082#1080#1081
-          TextSettings.Trimming = None
+          TabOrder = 8
         end
         object btnCreateChat: TButton
           Images = ImageList1
@@ -578,7 +603,7 @@ object TTW_Bot: TTTW_Bot
         item
         end>
       TextSettings.Trimming = None
-      IsSelected = False
+      IsSelected = True
       ImageIndex = 24
       Size.Width = 110.000000000000000000
       Size.Height = 26.000000000000000000

forms/uGeneral.pas

@@ -1,15 +1,29 @@
-unit uGeneral;
+{
+получение доната
+procedure TfrSettings.HandleWSDonate(aNick, aMessage, aSum: string);
+
+получение сообщения
+procedure TTTW_Bot.ttwIRCOnMessageRecord(aRecord: TTwitchChatMessage);
+
+получение событий
+ttw_ES.OnFollow := frOBS1.toEventWebServer;
+ttw_ES.OnSub := frOBS1.toEventWebServer;
+ttw_ES.OnGift := frOBS1.toEventWebServer;
+ttw_ES.OnRaid := frOBS1.toEventWebServer;
+}
+
+unit uGeneral;
 
 interface
 
 uses
   System.SysUtils, System.Types, System.UITypes, System.Classes, DateUtils,
-  System.Variants, uTTWIRC, uTTWEventSub, uTTWAPI, uSoundManager,
+  System.Variants, uTTWIRC, uTTWEventSub, uTTWAPI, uSoundManager, uKeyEvent,
   FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.TabControl,
   FMX.Controls.Presentation, FMX.StdCtrls, System.ImageList, FMX.ImgList,
   FMX.Styles, ShellAPI, StrUtils, IdComponent, uRegExpr, uCustomEmoties,
-  fSettings, fAI, fNotify, fAutoActions, FMX.ListBox, fLog, uMyTimer, uRecords,
-  System.Generics.Collections, utts, uGigaChat, uChatAPI,
+  fSettings, fAI, fNotify, fAutoActions, FMX.ListBox, fLog, fEvents,
+  System.Generics.Collections, utts, uGigaChat, uChatAPI, uMyTimer, uRecords,
   System.IOUtils, fCommands, uDataBase, FMX.Edit, FMX.Colors, FMX.SpinBox,
   windows, System.Skia, FMX.Skia, uCreateChat, uCreateNotify, fOBS, fTTS,
   fPlayerWeb, uWebServerKandinsky, FMX.Memo.Types, FMX.ScrollBox, FMX.Memo;
@@ -57,6 +71,8 @@ type
     frTTS1: TfrTTS;
     GroupBox1: TGroupBox;
     frPlayerWeb1: TfrPlayerWeb;
+    frEvents1: TfrEvents;
+    GroupBox2: TGroupBox;
     procedure cbThemeChange(Sender: TObject);
     procedure FormCreate(Sender: TObject);
     procedure SpeedButton1Click(Sender: TObject);
@@ -118,6 +134,7 @@ var
   ttw_API: TTTW_API;
   userlist: TList<TUser>;
   Kandinsky: TKandinsky_Web;
+  kePoints:TKE;
 
 implementation
 
@@ -245,14 +262,14 @@ begin
     // Назначение обработчиков событий
     // ttw_ES.OnMessage := fRewards.ESOnMessage;
     ttw_ES.OnError := ESError;
-    // ttw_ES.OnGetCustomReward := fRewards.ESOnGetCustomReward;
+     ttw_ES.OnGetCustomReward := frEvents1.ESOnGetCustomReward;
     ttw_ES.OnStatus := ESStatus;
     // ttw_ES.OnRAW := fRewards.ESOnRAW;
     // ttw_ES.OnSubOk := fRewards.ESOnSubOk;
-     ttw_ES.OnFollow := frOBS1.toEventWebServer;
-     ttw_ES.OnSub := frOBS1.toEventWebServer;
-     ttw_ES.OnGift := frOBS1.toEventWebServer;
-     ttw_ES.OnRaid := frOBS1.toEventWebServer;
+    ttw_ES.OnFollow := frOBS1.toEventWebServer;
+    ttw_ES.OnSub := frOBS1.toEventWebServer;
+    ttw_ES.OnGift := frOBS1.toEventWebServer;
+    ttw_ES.OnRaid := frOBS1.toEventWebServer;
     toLog('uGeneral', 'ConnectProcedure.ttw_ES', 'Создан', 0);
     ttw_ES.Connect;
   except
@@ -493,11 +510,12 @@ end;
 
 procedure TTTW_Bot.FormDestroy(Sender: TObject);
 begin
-frOBS1.ChatBadges.Free;
-frOBS1.ChatEmotes.Free;
-frOBS1.ChatWebServers.Free;
-frOBS1.EventWebServers.Free;
-
+  frOBS1.ChatBadges.Free;
+  frOBS1.ChatEmotes.Free;
+  frOBS1.ChatWebServers.Free;
+  frOBS1.EventWebServers.Free;
+ frEvents1.CustomRewards.Free;
+kePoints.Free;
   DisconnectProcedure;
   if Assigned(ttw_IRS) then
     ttw_IRS.Free;
@@ -1064,7 +1082,7 @@ procedure TTTW_Bot.ReadDB;
 
     db.LoadRecordArray<TOBSNotify>('listNotify', frOBS1.listNotify);
     frOBS1.EventWebServers := TList<TEventWebServers>.Create;
-     for I := 0 to High(frOBS1.listNotify) do
+    for I := 0 to High(frOBS1.listNotify) do
     begin
       frOBS1.CreateWebEvents(frOBS1.listNotify[I]);
     end;
@@ -1072,7 +1090,24 @@ procedure TTTW_Bot.ReadDB;
     frOBS1.UpdateGridFromArray;
   end;
 
+// Загрузка навыков
+  procedure LoadSkills;
+  begin
+    db.LoadRecordArray<TEventGlobal>('ListEvents', frEvents1.ListEvents);
+    frEvents1.UpdateGrid;
+
+    frEvents1.CustomRewards := Tlist<TCustomRevards>.Create;
+  //  frEvents1.LoadCustomRevards();
+    frEvents1.CustomRewardEvents := Tlist<TCustomRewardEvent>.Create;
+    kePoints:=TKE.Create(frEvents1.edtParams, frEvents1.cbKey1,frEvents1.cbKey2,frEvents1.cbKey3);
+    frTTS1.btnUpdateVoicesClick(Self);
+    frTTS1.cbVoices.ItemIndex := strtoint(db.ReadSetting('cbVoices', '0'));
+    frTTS1.cbOutput.ItemIndex := strtoint(db.ReadSetting('cbOutput', '0'));
+
+  end;
+
 begin
+LoadSkills;
   LoadSettingsComponents;
   LoadGridsData;
   LoadGroupNames;