TFrame의 캔버스에 액세스하는 방법?

Question

사용 : Delphi XE2, VCL 32 비트 응용 프로그램, Windows 8

내 프레임의 배경을 (OnPaint 이벤트를 노출하므로 TJvPanel을 사용하고 있습니다.) 패널에 페인트하려고합니다. 프레임의 자식 제어.

this post을 읽고 필드로 캔버스를 추가 한 후에도 나는 아직 성공적이지 않습니다.

ShowAddReceiptPanel을 호출하면 ProEffectImage 메서드로 처리 한 후 그레이 스케일링 된 전경 패널에 이미있는 모든 컨트롤 (격자 및 페이지 컨트롤 포함)이있는 프레임의 (TfrmMyFrame) 창 내용을 그릴 수 있지만 대신 불투명 한 흰색 배경을 보여줍니다. 내가 놓친 게 있니? 당신이 당신의 캔버스 핸들에 할당

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

직류는 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

TFrame에 Canvas에 접근하는 쉬운 방법은 Align := alClient하고 Canvas 속성을 사용하여 그것의 위에 TPaintBox을 추가하는 것입니다 : 다음과 같이

그런 다음 의사 코드가 될 것이다.

이 방법은 앞으로도 모든 버전의 Delphi에서 작동하므로 PaintWindow 메서드 대신이 메서드를 사용하면 문제가 발생할 것으로 예상됩니다.