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

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.