Программирование для Android и работа с датчиками в среде Delphi 11 - страница 28

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]));