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

*Remove workaround to LCL bug 11187

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@442 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
blikblum
2008-04-27 02:44:46 +00:00
parent 7730bf1d0b
commit d8013165ac
1 changed files with 1 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -117,7 +117,7 @@ interface
{$define Gtk} {$define Gtk}
{$endif} {$endif}
{$if defined(Gtk) or defined(LCLQt)} {$if defined(Gtk)}
{$define ManualClipNeeded} {$define ManualClipNeeded}
{$endif} {$endif}
@ -27006,13 +27006,6 @@ begin
end; end;
Logger.SendIf([lcPaintDetails],'YCorrect ' + IntToStr(YCorrect), YCorrect > 0); Logger.SendIf([lcPaintDetails],'YCorrect ' + IntToStr(YCorrect), YCorrect > 0);
{$endif} {$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. // Put the constructed node image onto the target canvas.
with TargetRect, NodeBitmap do with TargetRect, NodeBitmap do
BitBlt(TargetCanvas.Handle, Left, BitBlt(TargetCanvas.Handle, Left,