Программирование для Android и работа с датчиками в среде Delphi 11. Виталий Иванович Донцов

число, а Float дробное.

      Для строки Таблицы используется номер сессии: NumberBox1.Value, причем, так как NumberBox1.Value имеет размерность Double, а для таблицы нужно целое число, можно NumberBox1.Value округлить: Round ().

      В конечном итоге для 3-х сессий получим следующий код:

      procedure TForm1.PaintBox1Paint (Sender: TObject; Canvas: TCanvas);

      var

      i: Integer;

      begin

      Sender:=PaintBox1;

      with Canvas do

      if (Path.Count> 0) and (BeginScene) then

      try

      Stroke.Kind:=TBrushKind.Solid;

      if NumberBox1.Value = 1 then //Если первая сессия

      begin //Начальные установки – черный цвет на блом фоне

      Stroke.Color:= TAlphaColors. Black;

      Stroke.Thickness:= 2;

      DrawPath (Path,1);

      end;

      if NumberBox1.Value = 2 then

      begin

      Stroke.Color:= TAlphaColors. Black;//Сессия 1

      Stroke.Thickness:= 2;

      DrawPath (Path,1);

      Stroke.Thickness:= StrToInt (StringGrid1.Cells [0, 2]); //Сессия 1

      Stroke.Color:= Round (StrToFloat (StringGrid1.Cells [1, 2]));