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

* Removed workaround to LCL bug 8626 (fixed in 0.9.29)

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1238 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
blikblum
2010-06-27 18:27:00 +00:00
parent 56f9293128
commit a09e6ab7e0
1 changed files with 2 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
components/virtualtreeview-new/branches/4.8/VirtualTrees.pas
View File

@ -349,9 +349,6 @@ const
{$if defined(Gtk)}
{$define ManualClipNeeded}
{$ifdef lcl_release > 28}
{$define InvertDCOrigin}
{$endif}
{$endif}
VTVersion = '4.8.6';
@ -28190,8 +28187,7 @@ begin
{$ifndef Gtk}
SetMapMode(Canvas.Handle, GetMapMode(TargetCanvas.Handle));
{$endif}
//Workaround to LCL bug 8626
SetWindowOrgEx(Canvas.Handle, {$ifdef InvertDCOrigin}-{$endif}Window.Left, 0, nil);
SetWindowOrgEx(Canvas.Handle, Window.Left, 0, nil);
R.Bottom := PaintInfo.Node.NodeHeight;
end;
// Set the origin of the canvas' brush. This depends on the node heights.
@ -28502,7 +28498,7 @@ begin
{$ifdef DEBUG_VTV}Logger.Send([lcPaintDetails],'TargetRect',TargetRect);{$endif}
{$ifdef DEBUG_VTV}Logger.Send([lcPaintDetails],'NodeBitmap Width: %d Height: %d',[NodeBitmap.Width,NodeBitmap.Height]);{$endif}
// Call back application/descendants whether they want to erase this area.
SetWindowOrgEx(NodeBitmap.Canvas.Handle,{$ifndef Windows}-{$endif}Target.X, 0, nil);
SetWindowOrgEx(NodeBitmap.Canvas.Handle, Target.X, 0, nil);
if not DoPaintBackground(NodeBitmap.Canvas, TargetRect) then
begin
if UseBackground then