pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

* Manual clip nodes with negative target coordinates under Qt. Workaround to LCL bug 11187

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@437 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
blikblum
2008-04-23 02:07:10 +00:00
parent 783f9c197f
commit 3527b17383
1 changed files with 15 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
components/virtualtreeview-unstable/VirtualTrees.pas
View File

@ -113,10 +113,14 @@ interface
{$warn UNSAFE_CODE off}
{$endif COMPILER_7_UP}
{$if defined (LCLGtk) or defined(LCLGtk2)}
{$if defined(LCLGtk) or defined(LCLGtk2)}
{$define Gtk}
{$endif}
{$if defined(Gtk) or defined(LCLQt)}
{$define ManualClipNeeded}
{$endif}
uses
{$ifdef LCLWin32}
Windows,
@ -26580,7 +26584,7 @@ var
ShowCheckImages,
UseColumns,
IsMainColumn: Boolean;
{$ifdef Gtk}
{$ifdef ManualClipNeeded}
YCorrect,
{$endif}
VAlign,
@ -27002,11 +27006,18 @@ begin
end;
Logger.SendIf([lcPaintDetails],'YCorrect ' + IntToStr(YCorrect), YCorrect > 0);
{$endif}
{$ifdef LCLQt}
//Workaround to LCL bug 11187
//Qt scales the bitmap when blitting out of control bounds
YCorrect := 0;
if TargetRect.Top < 0 then
YCorrect := -TargetRect.Top;
{$endif}
// Put the constructed node image onto the target canvas.
with TargetRect, NodeBitmap do
BitBlt(TargetCanvas.Handle, Left,
Top {$ifdef Gtk} + YCorrect{$endif}, Width, Height, Canvas.Handle, Window.Left,
{$ifdef Gtk}YCorrect{$else}0{$endif}, SRCCOPY);
Top {$ifdef ManualClipNeeded} + YCorrect{$endif}, Width, Height, Canvas.Handle, Window.Left,
{$ifdef ManualClipNeeded}YCorrect{$else}0{$endif}, SRCCOPY);
end;
end;