FMX中ClearRect与IntersectClipRect结合使用的问题及解决

我帮你排查了这个Delphi 10.4 FMX里的Canvas问题，根源完全在于画布状态操作的顺序错误，尤其是BeginScene、SaveState和裁剪区域设置的先后关系搞反了，下面给你详细拆解和修复方案：

问题根源分析 #

1. 裁剪区域设置时机错误 #

FMX的TCanvas.BeginScene方法在执行时，会自动重置画布的裁剪区域为整个画布的范围。你原来的Button2代码里，在BeginScene之前就调用了IntersectClipRect，这个裁剪设置会被BeginScene直接覆盖，等于白做了，自然ClearRect不会生效。

2. SaveState/RestoreState的位置错误 #

你在BeginScene之前调用SaveState，保存的是画布未初始化的异常状态；后续在EndScene之外执行RestoreState，会导致画布状态残留错误，这就是为什么Button1在Button2点击后第一次调用无效——此时画布的裁剪状态还是乱的，第二次BeginScene才会重新重置状态恢复正常。

修复方案 #

核心原则：所有画布状态操作（裁剪、SaveState/RestoreState、绘图）必须放在BeginScene和EndScene之间，这是FMX Canvas和VCL Canvas的关键区别，很多开发者都会踩这个坑。

下面是修改后的Button2Click代码，同时也优化了Button1的代码（适配全透明清除的需求）：

修复后的Button2Click代码 #

procedure TForm1.Button2Click(Sender: TObject);
var
  MyRect: TRectF;
  LSave : TCanvasSaveState;
begin
  Draw;
  // 初始化要清除的矩形
  MyRect := TRectF.Create(10, 30, 100, 80);
  
  // 先开启画布场景，所有操作都在BeginScene/EndScene内执行
  if Image1.Bitmap.Canvas.BeginScene then
  begin
    try
      // 在BeginScene之后保存画布状态（此时状态是初始化后的正确状态）
      LSave := Image1.Bitmap.Canvas.SaveState;
      try
        // 设置裁剪区域，此时不会被BeginScene重置
        Image1.Bitmap.Canvas.IntersectClipRect(Image1.Bitmap.Bounds);
        // 清除为全透明，使用TAlphaColorRec.Null
        Image1.Bitmap.Canvas.ClearRect(MyRect, TAlphaColorRec.Null);
      finally
        // 恢复画布状态
        Image1.Bitmap.Canvas.RestoreState(LSave);
      end;
    finally
      // 结束画布场景
      Image1.Bitmap.Canvas.EndScene;
    end;
  end;
end;

优化后的Button1Click代码（适配全透明需求） #

procedure TForm1.Button1Click(Sender: TObject);
var
  MyRect: TRectF;
begin
  Draw;
  MyRect := TRectF.Create(10, 30, 100, 80);
  
  if Image1.Bitmap.Canvas.BeginScene then
  begin
    try
      // 清除为全透明
      Image1.Bitmap.Canvas.ClearRect(MyRect, TAlphaColorRec.Null);
    finally
      Image1.Bitmap.Canvas.EndScene;
    end;
  end;
end;

关键改动说明 #

• 把BeginScene的判断放在最外层，确保所有画布操作都在场景生命周期内执行
• 将SaveState和IntersectClipRect移到BeginScene之后，避免设置被重置
• 使用TAlphaColorRec.Null实现全透明清除，满足你的需求
• RestoreState放在EndScene之前，确保状态正确恢复，不会干扰后续操作

修改后，Button2的ClearRect会正常生效，Button1也不会出现第一次点击无效的问题了。

内容的提问来源于stack exchange，提问作者XylemFlow