добавил обработку наград

frames/fRevards.fmx

@@ -17,8 +17,10 @@ object frRevards: TfrRevards
     Size.Height = 196.000000000000000000
     Size.PlatformDefault = False
     TabOrder = 1
-    Viewport.Width = 613.000000000000000000
-    Viewport.Height = 196.000000000000000000
+    RowCount = 0
+    OnCellClick = StringGrid1CellClick
+    Viewport.Width = 609.000000000000000000
+    Viewport.Height = 171.000000000000000000
     object StringColumn1: TStringColumn
       Header = #1053#1072#1079#1074#1072#1085#1080#1077
       HeaderSettings.TextSettings.WordWrap = False
@@ -43,11 +45,11 @@ object frRevards: TfrRevards
     Position.Y = 8.000000000000000000
     TextSettings.Trimming = None
     Text = #1053#1072#1079#1074#1072#1085#1080#1077
-    TabOrder = 4
+    TabOrder = 3
   end
   object ceCustomRevardTitle: TComboEdit
     Touch.InteractiveGestures = [LongTap, DoubleTap]
-    TabOrder = 5
+    TabOrder = 4
     ItemHeight = 19.000000000000000000
     ItemIndex = -1
     Position.X = 8.000000000000000000
@@ -58,7 +60,7 @@ object frRevards: TfrRevards
   end
   object edtCustomRevardPrompt: TEdit
     Touch.InteractiveGestures = [LongTap, DoubleTap]
-    TabOrder = 9
+    TabOrder = 8
     Position.X = 198.000000000000000000
     Position.Y = 33.000000000000000000
     Size.Width = 348.000000000000000000
@@ -93,17 +95,28 @@ object frRevards: TfrRevards
     TabOrder = 10
   end
   object btnAddCustomRewards: TButton
-    Position.X = 95.000000000000000000
-    Position.Y = 88.000000000000000000
-    TabOrder = 16
+    Position.X = 262.000000000000000000
+    Position.Y = 63.000000000000000000
+    TabOrder = 15
     Text = #1044#1086#1073#1072#1074#1080#1090#1100
     TextSettings.Trimming = None
+    OnClick = btnAddCustomRewardsClick
   end
   object btnDelCustomRewards: TButton
-    Position.X = 183.000000000000000000
-    Position.Y = 88.000000000000000000
+    Position.X = 262.000000000000000000
+    Position.Y = 93.000000000000000000
     TabOrder = 17
     Text = #1059#1076#1072#1083#1080#1090#1100
     TextSettings.Trimming = None
+    OnClick = btnDelCustomRewardsClick
+  end
+  object cbUserInput: TCheckBox
+    Position.X = 95.000000000000000000
+    Position.Y = 91.000000000000000000
+    Size.Width = 162.000000000000000000
+    Size.Height = 19.000000000000000000
+    Size.PlatformDefault = False
+    TabOrder = 18
+    Text = #1055#1086#1083#1100#1079#1086#1074#1072#1090#1077#1083#1100#1089#1082#1080#1081' '#1074#1074#1086#1076
   end
 end

frames/fRevards.pas

@@ -3,10 +3,14 @@ unit fRevards;
 interface
 
 uses
-  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, 
+  System.SysUtils, System.Types, System.UITypes, System.Classes,
+  System.Variants,
   FMX.Types, FMX.Graphics, FMX.Controls, FMX.Forms, FMX.Dialogs, FMX.StdCtrls,
-  System.Rtti, FMX.Grid.Style, FMX.Grid, FMX.ScrollBox, uRecords, System.Generics.Collections,
-  FMX.Controls.Presentation, FMX.EditBox, FMX.NumberBox, FMX.Edit, FMX.ComboEdit;
+  StrUtils,
+  System.Rtti, FMX.Grid.Style, FMX.Grid, FMX.ScrollBox, uRecords,
+  System.Generics.Collections,
+  FMX.Controls.Presentation, FMX.EditBox, FMX.NumberBox, FMX.Edit,
+  FMX.ComboEdit;
 
 type
   TfrRevards = class(TFrame)
@@ -24,13 +28,17 @@ type
     Label2: TLabel;
     btnDelCustomRewards: TButton;
     btnAddCustomRewards: TButton;
+    cbUserInput: TCheckBox;
+    procedure StringGrid1CellClick(const Column: TColumn; const Row: Integer);
+    procedure btnDelCustomRewardsClick(Sender: TObject);
+    procedure btnAddCustomRewardsClick(Sender: TObject);
   private
     { Private declarations }
   public
     { Public declarations }
 
     CustomRewards: TList<TCustomRevards>;
-    listRevards:tarray<TReward>;
+    listRevards: tarray<TReward>;
     procedure LoadCustomRevards;
     procedure UpdateGrid;
   end;
@@ -41,26 +49,81 @@ implementation
 
 uses ugeneral;
 
+procedure TfrRevards.btnAddCustomRewardsClick(Sender: TObject);
+var
+  cr: TCustomRevards;
+begin
+  cr := ttw_API.createCustomReward(ceCustomRevardTitle.Text,
+    inttostr(round(nbCustomRevardCost.Value)), edtCustomRevardPrompt.Text,
+    cbUserInput.IsChecked);
+  CustomRewards.Add(cr);
+  UpdateGrid;
+end;
+
+procedure TfrRevards.btnDelCustomRewardsClick(Sender: TObject);
+var
+  cr: TCustomRevards;
+  RowIndex: Integer;
+begin
+  RowIndex := StringGrid1.Row;
+  if (RowIndex < 0) or (RowIndex >= CustomRewards.Count) then
+    Exit;
+
+  for cr in CustomRewards do
+  begin
+    if cr.title = StringGrid1.Cells[0, RowIndex] then
+    begin
+      ttw_API.deleteCustomReward(cr.id);
+      CustomRewards.Delete(RowIndex);
+      Break;
+    end;
+  end;
+  UpdateGrid;
+end;
+
 procedure TfrRevards.LoadCustomRevards;
 var
   cr: TCustomRevards;
 begin
   CustomRewards.Clear;
   TTW_Bot.frEvents1.cbRevards.Items.Clear;
-  ceCustomRevardTitle.items.Clear;
+  ceCustomRevardTitle.Items.Clear;
   TTW_Bot.toLog('fRevards', 'LoadCustomRevards', 'Çàïðîñ íàãðàä ñ ñåðâåðà', 3);
   ttw_API.getCustomReward(CustomRewards);
 
   for cr in CustomRewards do
   begin
-    TTW_Bot.frEvents1.cbRevards.Items.Add(cr.Title);
-    ceCustomRevardTitle.Items.Add(cr.Title);
+    TTW_Bot.frEvents1.cbRevards.Items.Add(cr.title);
+    ceCustomRevardTitle.Items.Add(cr.title);
   end;
+  UpdateGrid;
+end;
+
+procedure TfrRevards.StringGrid1CellClick(const Column: TColumn;
+  const Row: Integer);
+begin
+  ceCustomRevardTitle.ItemIndex := ceCustomRevardTitle.Items.IndexOf
+    (StringGrid1.Cells[0, Row]);
+  edtCustomRevardPrompt.Text := StringGrid1.Cells[2, Row];
+  cbUserInput.IsChecked := StringGrid1.Cells[1, Row] = 'Äà';
+  nbCustomRevardCost.Value := strtoint(StringGrid1.Cells[3, Row]);
 end;
 
 procedure TfrRevards.UpdateGrid;
+var
+  cr: TCustomRevards;
+  i: Integer;
 begin
-
+  StringGrid1.RowCount := 0;
+  for cr in CustomRewards do
+  begin
+    StringGrid1.RowCount := StringGrid1.RowCount + 1;
+    StringGrid1.Cells[0, StringGrid1.RowCount - 1] := cr.title;
+    StringGrid1.Cells[1, StringGrid1.RowCount - 1] :=
+      ifthen(cr.is_user_input_required, 'Äà', 'Íåò');
+    StringGrid1.Cells[2, StringGrid1.RowCount - 1] := cr.promt;
+    StringGrid1.Cells[3, StringGrid1.RowCount - 1] := inttostr(cr.cost);
+  end;
 end;
 
 end.