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