paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Workaround to LCL bug 8626

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@147 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
blikblum 2007-04-21 21:08:37 +00:00
parent a7da3fa782
commit 04b3d1fb7a
1 changed files with 3 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -27612,7 +27612,8 @@ begin
// Avoid that the VCL copies the bitmap while changing its height.
Height := 0;
Height := PaintInfo.Node.NodeHeight;
SetWindowOrgEx(Canvas.Handle, Window.Left, 0, nil);
//Workaround to LCL bug 8626
SetWindowOrgEx(Canvas.Handle, {$ifndef Windows}-{$endif}Window.Left, 0, nil);
R.Bottom := PaintInfo.Node.NodeHeight;
end;
// Set the origin of the canvas' brush. This depends on the node heights.
@ -27628,13 +27629,8 @@ begin
PaintInfo.PaintOptions := PaintOptions;
Logger.Watch([lcPaintDetails],'Brush.Color',PaintInfo.Canvas.Brush.Color);
// The node background can contain a single color, a bitmap or can be drawn by the application.
{$ifdef Windows}
ClearNodeBackground(PaintInfo, UseBackground, True, Rect(Window.Left, TargetRect.Top, Window.Right,
TargetRect.Bottom));
{$else}
ClearNodeBackground(PaintInfo, UseBackground, True, Rect(0, TargetRect.Top, Window.Right - Window.Left,
TargetRect.Bottom));
{$endif}
Logger.SendBitmap([lcPaintBitmap],'After Clear BackGround',NodeBitmap);
Logger.Watch([lcPaintDetails],'Brush.Color',PaintInfo.Canvas.Brush.Color);
// Prepare column, position and node clipping rectangle.
@ -27865,7 +27861,7 @@ begin
+' '+Logger.PointToStr(Target),TargetRect.Top < Target.Y);
// Put the constructed node image onto the target canvas.
with TargetRect, NodeBitmap do
BitBlt(TargetCanvas.Handle, Left, Top, Width, Height, Canvas.Handle,{$ifdef Windows} Window.Left {$else} 0{$endif}, 0, SRCCOPY);
BitBlt(TargetCanvas.Handle, Left, Top, Width, Height, Canvas.Handle, Window.Left, 0, SRCCOPY);
end;
end;