私のコンポーネントでPaintToが動作しない

Question

こんにちはすべて TWinControlから派生した新しいコンポーネントを作成しました。 TPanelに貼り付けて、パネルのPaintToという手続きを呼び出そうとしました。その結果、パネルとキャプションが表示され、コンポーネントはキャンバスにまったく塗りつぶされません。これについて何をすべきですか？

ソース（親愛なるダビデは尋ねたとして）の一部：あなたは本当に今までPaintToを呼び出すか、上書きする必要はありません

Procedure TApListBox.Paint; 
var 
    C: TCanvas; 
    B: TBitmap; 
    ItemClient: TPoint; 
Begin 
    Try 
    If (FUpdating > 0) Then 
     Exit; 
    Try 
     BeginUpdate; 
     B := TBitmap.Create; 
     B.Width := Width; 
     B.Height := Height; 
     With B.Canvas Do Begin 
     Lock; 
     // Begin : 
     ItemClient := Point(IVisPanel + 3, 2); 

     // Draw Items 
     PaintItems(B.Canvas, ItemClient); 
     Unlock; 
     End; 

     C := TCanvas.Create; 
     C.Handle := GetWindowDC(Self.Handle); 
     C.Lock; 
     inherited; 
     C.Draw(1, 1, B); 
     If (RenameEdit.Visible) Then 
     RenameEdit.Repaint; 
    Finally 
     C.Unlock; 
     ReleaseDC(0, C.Handle); 
     C.Free; 
     B.Free; 
     Dec(FUpdating); 
    End; 
    Except 
    End; 
End; 

Answer 1

WM_PAINTメッセージを処理するメソッドでは、WM_PAINTがMessage.DCパラメータにGDIハンドル（HDC）を指定するため、Canvasを直接使用することはできません。

は期待通りにそれを扱うは、TGraphicControlから、このコードスニペットで、例えば、見てみましょう：

procedure TGraphicControl.WMPaint(var Message: TWMPaint); 
begin 
    if Message.DC <> 0 then 
    begin 
    Canvas.Lock; 
    try 
     Canvas.Handle := Message.DC; 
     try 
     Paint; // this is where the painting is done, using a "locked" Canvas 
     finally 
     Canvas.Handle := 0; 
     end; 
    finally 
     Canvas.Unlock; 
    end; 
    end; 
end; 

をだからあなたのWM_PAINTの実装方法をチェックして、このコード体系に従ってください。

上記の「ペイント」メソッドの代わりに、キャンバスプロパティを使用して独自の描画コードを配置します。

"PaintTo"メソッドが正常に動作します。

もう1つの可能性は、Message.DCハンドルを使用して直接Windows API図面を使用することです。しかし、上記の方法では、通常のCanvasを使用できるようになりました。 ;）

すべての場合、WM_PAINTは、Delphiコンポーネントがペイントを実装する場所ではなく、オーバーライドされたPaintメソッドのみを実装する場所です。したがって、コンポーネントがTGraphicControlから継承し、すべての描画コードをオーバーライドされたPaintメソッドに入れてください。

Answer 2

。

代わりに、オーバーライドされたPaintメソッドでペイントを100％行う必要があります。ペイントはいつでも実行でき、コンポーネントは必要に応じてペイントできる必要があります。 WindowsがWM_PAINTメッセージを送信すると、VCLはコンポーネントのPaintメソッドの呼び出しに変換されます。

コンポーネントがいつでも必要なものをペイントできることを確認し、はオーバーライドされたペイントメソッドでペイントをすべて行います。

Answer 3

ベースクラスはTCustomControlで、TWinControlではありません。前者はコントロールのキャンバスを設定しますので、Paintをオーバーライドして適切にペイントできます。

あなた自身がwm_Paintを扱うことを強く求めている場合は、WParamパラメータを表示コンテキストとして使用することを忘れないでください。正式には、そのパラメータは使用されていませんが、VCL（およびいくつかの一般的なコントロール）はDCに対してそれを使用します。これにより、wm_PrintClientメッセージの実装が簡単になります。