Question

使用：Delphi XE2，VCL 32位应用程序，Windows 8

我正在尝试将我的帧的背景绘制到一个面板上（我正在使用TJvPanel，因为它暴露了OnPaint事件），这是该帧的子控件。

在阅读this post并将画布添加为字段后，我仍然没有成功。

在调用ShowAddReceiptPanel之后，它应该绘制框架的（TfrmMyFrame）窗口内容，其中包含前面板上的所有控件（包括网格和页面控件），在被ProEffectImage方法处理后灰度化，但是它显示了不透明的白色背景。我错过了什么吗？

这是我的代码：

type
  TfrmMyFrame = class(TFrame)
    pnlHdr: TPanel;
    pnlAddNewBG: TJvPanel;
    procedure pnlAddNewBGPaint(Sender: TObject);
  private
    { Private declarations }
    FBGImg: TProEffectImage;
    Fcnvs: TCanvas;

    procedure PaintWindow(DC: HDC); override;
    procedure ShowAddReceiptPanel;
    procedure HideAddReceiptPanel;
    procedure ResizePanel_pnlAddNewBG;

  public
    { Public declarations }
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
  end;

constructor TfrmMyFrame.Create(AOwner: TComponent);
begin
  inherited;

  FBGImg := TProEffectImage.Create(nil);
  Fcnvs := TCanvas.Create;

end;

destructor TfrmMyFrame.Destroy;
begin
  if Assigned(FBGImg) then
    FBGImg.Free;

  if Assigned(Fcnvs) then
    Fcnvs.Free;

  inherited;
end;

procedure TfrmMyFrame.ShowAddReceiptPanel;
begin
  ResizePanel_pnlAddNewBG;
  pnlAddNewBG.Visible := True;
end;

procedure TfrmMyFrame.PaintWindow(DC: HDC);
begin
  inherited;

  Fcnvs.Handle := DC;
end;

procedure TfrmMyFrame.pnlAddNewBGPaint(Sender: TObject);
var
  l, t, w, h: Integer;
  srct, drct: TRect;
begin

  // Copy Frame canvas to BGImg bitmap
  l := 0;
  t := pnlHdr.Height;
  w := ClientWidth;
  h := ClientHeight - t;

  srct := TRect.Create(l, t, w, h);
  FBGImg.Width := w;
  FBGImg.Height := h;
  drct := TRect.Create(l, t, w, h);
  FBGImg.Canvas.CopyMode := cmSrcCopy;
  FBGImg.Canvas.CopyRect(drct, Fcnvs, srct);
//  FBGImg.Picture.SaveToFile('c:\tmp\a.bmp');

  FBGImg.Effect_AntiAlias;
  FBGImg.Effect_GrayScale;

  // Draw BGImg onto Option panel
  TJvPanel(Sender).Canvas.CopyMode := cmSrcCopy;
  TJvPanel(Sender).Canvas.Draw(0, 0, FBGImg.Picture.Graphic);
end;

procedure TfrmMyFrame.ResizePanel_pnlAddNewBG;
var
  x1, y1, x2, y2: Integer;
  bmp: TBitmap;
begin
  x1 := 0;
  y1 := pnlHdr.Height;
  x2 := ClientWidth;
  y2 := ClientHeight - y1;

  pnlAddNewBG.SetBounds(x1, y1, x2, y2);
end;

Answer 1

分配给画布句柄的DC仅在PaintWindow调用期间有效。当它无效时，您可以在该函数之外使用它，因此也就是您观察到的行为。

我认为您应该可以通过调用PaintTo方法来解决您的问题。创建正确大小的位图并将其画布传递给PaintTo。

Answer 2

TFrame没有画布。您可以创建/添加一个，如TCustomControl所做，但您不必这样做。画布只是Windows设备上下文的一个方便的包装器。每当必须（部分）重绘帧时，都会调用PaintWindow例程。参数显示DC，或者您可以使用GetDC获得一个。

然后伪代码如下：

procedure TfrmMyFrame.PaintWindow(DC: HDC);
begin
  - Resize BG image and hide it (otherwise image itself will be copied too)
  - Paint the frame's contents to the image with:
    Self.PaintTo(FBGImg.Canvas.Handle, 0, 0)
  - Process the special effects on FBGImg
  - Paint the image onto DC with:
    BitBlt(DC, 0, 0, ClientWidth, ClientHeight, FBGImage.Canvas.Handle, 0, 0, SRCCOPY);
end;

Answer 3

在Canvas上访问TFrame的简便方法是在TPaintBox上添加Align := alClient并使用Canvas PaintWindow属性。

我希望这个方法可以在将来的任何版本的Delphi中使用，因此使用它而不是{{1}}方法，这似乎很棘手。

如何访问TFrame的画布？

3 个答案: