如何在FMX (Android)中重绘进度条

procedure TForm1.ProgressBar1Paint(Sender: TObject; Canvas: TCanvas;
  const ARect: TRectF);
var
  ProgressRect: TRectF;
begin
  // 绘制进度条的背景
  Canvas.Fill.Color := TAlphaColorRec.Lightgray;
  Canvas.FillRect(ARect, 0, 0, AllCorners, 1);

  // 计算进度条的显示区域
  ProgressRect := ARect;
  ProgressRect.Right := ProgressRect.Left + (ProgressRect.Width * ProgressBar1.Value) / ProgressBar1.Max;

  // 绘制进度条的进度
  Canvas.Fill.Color := TAlphaColorRec.Green;
  Canvas.FillRect(ProgressRect, 0, 0, AllCorners, 1);

  // 绘制进度条的边框
  Canvas.Stroke.Color := TAlphaColorRec.Black;
  Canvas.DrawRect(ARect, 0, 0, AllCorners, 1);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  // 更新进度条的值
  ProgressBar1.Value := ProgressBar1.Value + 10;
  // 触发重绘事件
  ProgressBar1.Invalidate;
end;