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

在FMX (Android)中重绘进度条可以通过以下步骤实现：

创建一个TProgressBar组件，用于显示进度条。设置进度条的属性，如颜色、大小、位置等。
在代码中，使用OnPaint事件来自定义绘制进度条的外观。在OnPaint事件中，可以使用Canvas对象来绘制自定义的进度条。
在OnPaint事件中，可以使用Canvas对象的方法来绘制进度条的背景、进度和边框等。可以根据需要使用不同的颜色、形状和效果来绘制进度条。
在代码中，使用一个变量来表示进度条的当前进度。可以通过修改这个变量的值来更新进度条的显示。
在需要更新进度条时，可以调用Invalidate方法来触发重绘事件，从而更新进度条的显示。

以下是一个示例代码：

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;

这是一个简单的示例，通过修改ProgressBar1的Value属性来更新进度条的显示，并在Button1的点击事件中调用Invalidate方法来触发重绘事件。你可以根据实际需求进行修改和扩展。

腾讯云相关产品和产品介绍链接地址：