親バインドされた矩形のより効率的なコピー

Question

できるだけ効率的にTRectangleの背後のビットマップ領域をコピーしたいとします。これは、親コントロール内の赤い四角形からの境界線です。

bmp.CopyFromBitmap(FParentBitmap, BoundsRect, 0, 0); 

：私が欲しいの長方形をコピーするために、後に続い

(Parent as TControl).PaintTo(FParentBitmap.Canvas, 
      RectF(0, 0, ParentWidth, ParentHeight)); 

と：一時親TBitmapのに全体の親表面を取得

：

私は私のDelphi FireMonkeyのアプリでこれを持っています

もちろんこれは効率的ではありません。私は1パスで矩形をコピーしたい、あるいは少なくとも親全体をtemp TBitmapにペイントしたくない。

効率的な方法をご存知ですか？伝えてください。

TFrostGlassコンポーネントを作成しましたが、その中に完全なソースがあります。 https://github.com/Spelt/Frost-Glass

コピービットマップコードはである：FrostGlass.pas残念ながら

Answer 1

、PaintToはコントロールの一部だけを描くことはできません。あなたはそれがこっちにダウンロード/参照することができます。しかし、@ Rob Kennedyが述べたように、オフセットを変更することで、ターゲットBitmapのどこでコンテンツが終了するかを制御することができます。

さらに、PaintToを呼び出す前にBeginSceneを呼び出すと、ClipRectsパラメータを設定できます。つまり、キャンバスのこの部分だけが更新されます。これは、ターゲットビットマップがBoundsRectより大きい場合に必要です。そうしないと、周囲の領域もペイントされるためです。

procedure PaintPartToBitmap(Control: TControl; SourceRect, TargetRect: TRect; Bitmap: TBitmap); 
    var ClipRects: TClipRects; 
     X, Y: Single; 
begin 
    ClipRects := [TRectF.Create(TargetRect)]; 
    if (Bitmap.Canvas.BeginScene(@ClipRects)) then 
    try 
     X := TargetRect.Left - SourceRect.Left; 
     Y := TargetRect.Top - SourceRect.Top; 
     Control.PaintTo(Bitmap.Canvas, RectF(X, Y, X + Control.Width, Y + Control.Height)); 
    finally 
     Bitmap.Canvas.EndScene; 
    end; 
end;