背景
我正在构建自定义FireMonkey GUI控件。我想将控件渲染到后台缓冲区。后台缓冲区将绘制在控件的画布上。
后台缓冲区是Fmx.TBitmap对象。
我使用了后备缓冲区,因为控件呈现代码涉及到一点点,并且不需要在每次重新绘制控件时都调用它。仅当某些控件属性更改时,才会更新后备缓冲区。
问题
BackBuffer.Canvas绘图操作没有可见效果。但是,清除位图或单独设置位图像素的值确实可以按预期工作。
由于某些原因,BackBuffer.Canvas对象将不会在后缓冲区位图上绘制。
我想我已经正确设置了必需的Canvas.Fill属性。
我检查过的所有画布属性似乎都是正确的。 (画布的宽度/高度/等)
如果有一些线索,我已经提取了相关的代码。
TMyControl(TControl)
private
protected
BackBuffer : TBitmap;
procedure Paint; override;
procedure Resize; override;
public
constructor Create(AOwner: TComponent); override;
end;
constructor TMyControl.Create(AOwner: TComponent);
begin
inherited;
BackBuffer := TBitmap.Create(10, 10);
end;
procedure TFxSampleDisplay.Resize;
var
w, h : integer;
begin
inherited;
// Ensure BackBuffer is the same size as the control.
w := round(BoundsRect.Width);
h := round(BoundsRect.Height);
BackBuffer.SetSize(w,h);
end;
procedure TMyControl.Paint;
var
r : TRectF;
begin
inherited;
//******** This has visible results ********
BackBuffer.Clear($1100ff00); // Fill with semi-opaque green background
BackBuffer.Pixels[2,2] := $ffff0000; // Draw a red pixel
//******** This doesn't have visible results ********
r.Left := 0;
r.Top := 0;
r.Right := 50;
r.Bottom := 50;
BackBuffer.Canvas.Fill.Color := $ffff0000; // Set fill to RED.
BackBuffer.Canvas.Fill.Kind := TBrushKind.bkSolid;
BackBuffer.Canvas.FillRect(r, 10,10, AllCorners, 1);
//******** Draw the backbuffer on to the controls canvas ********
Canvas.DrawBitmap(BackBuffer, BoundsRect, BoundsRect, 1);
end;
最佳答案
尝试用以下方式围绕图形:
BackBuffer.Canvas.BeginScene;
..
..
BackBuffer.Canvas.EndScene;
BackBuffer.BitmapChanged;
附言我是FireMonkey风格的新手,所以请尝试一下并写下是否可行!