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

* Keep the workaround to bug 8626

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1188 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
blikblum
2010-03-26 19:49:52 +00:00
parent d91d84c870
commit b2a2ff709d
1 changed files with 12 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -312,14 +312,6 @@ interface
{$I VTConfig.inc}
{$if defined(LCLGtk) or defined(LCLGtk2)}
{$define Gtk}
{$endif}
{$if defined(Gtk)}
{$define ManualClipNeeded}
{$endif}
uses
{$ifdef Windows}
Windows,
@ -351,6 +343,17 @@ uses
const
{$I lclconstants.inc}
{$if defined(LCLGtk) or defined(LCLGtk2)}
{$define Gtk}
{$endif}
{$if defined(Gtk)}
{$define ManualClipNeeded}
{$ifdef lcl_release > 28}
{$define InvertDCOrigin}
{$endif}
{$endif}
VTVersion = '4.8.6';
VTTreeStreamVersion = 2;
VTHeaderStreamVersion = 6; // The header needs an own stream version to indicate changes only relevant to the header.
@ -28188,7 +28191,7 @@ begin
SetMapMode(Canvas.Handle, GetMapMode(TargetCanvas.Handle));
{$endif}
//Workaround to LCL bug 8626
SetWindowOrgEx(Canvas.Handle, {$ifdef Gtk}-{$endif}Window.Left, 0, nil);
SetWindowOrgEx(Canvas.Handle, {$ifdef InvertDCOrigin}-{$endif}Window.Left, 0, nil);
R.Bottom := PaintInfo.Node.NodeHeight;
end;
// Set the origin of the canvas' brush. This depends on the node heights.