From dd2088dc974c64d969fa11d7c06165b81383d910 Mon Sep 17 00:00:00 2001 From: Joachim Marder Date: Sun, 7 Apr 2024 20:06:16 +0200 Subject: [PATCH] Fixed issue #1248 by removing own WMPrintClient() method. --- Source/VirtualTrees.BaseTree.pas | 33 -------------------------------- 1 file changed, 33 deletions(-) diff --git a/Source/VirtualTrees.BaseTree.pas b/Source/VirtualTrees.BaseTree.pas index 26c54988..12293f36 100644 --- a/Source/VirtualTrees.BaseTree.pas +++ b/Source/VirtualTrees.BaseTree.pas @@ -879,7 +879,6 @@ TBaseVirtualTree = class abstract(TVTBaseAncestor) procedure WMPaint(var Message: TWMPaint); message WM_PAINT; procedure WMPaste(var Message: TWMPaste); message WM_PASTE; procedure WMPrint(var Message: TWMPrint); message WM_PRINT; - procedure WMPrintClient(var Message: TWMPrintClient); message WM_PRINTCLIENT; procedure WMRButtonDblClk(var Message: TWMRButtonDblClk); message WM_RBUTTONDBLCLK; procedure WMRButtonDown(var Message: TWMRButtonDown); message WM_RBUTTONDOWN; procedure WMRButtonUp(var Message: TWMRButtonUp); message WM_RBUTTONUP; @@ -7686,38 +7685,6 @@ procedure TBaseVirtualTree.WMPrint(var Message: TWMPrint); //---------------------------------------------------------------------------------------------------------------------- -procedure TBaseVirtualTree.WMPrintClient(var Message: TWMPrintClient); - -var - Window: TRect; - Target: TPoint; - Canvas: TCanvas; - -begin - // Draw only if the window is visible or visibility is not required. - if ((Message.Flags and PRF_CHECKVISIBLE) = 0) or IsWindowVisible(Handle) then - begin - // Determine area of the entire tree to be displayed in the control. - Window := ClientRect; - Target := Window.TopLeft; - - // The Window rectangle is given in client coordinates. We have to convert it into - // a sliding window of the tree image. - OffsetRect(Window, FEffectiveOffsetX, -FOffsetY); - - Canvas := TCanvas.Create; - try - Canvas.Handle := Message.DC; - PaintTree(Canvas, Window, Target, [poBackground, poDrawFocusRect, poDrawDropMark, poDrawSelection, poGridLines]); - finally - Canvas.Handle := 0; - Canvas.Free; - end; - end; -end; - -//---------------------------------------------------------------------------------------------------------------------- - procedure TBaseVirtualTree.WMRButtonDblClk(var Message: TWMRButtonDblClk); var