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

* Disable SetMapMode in Gtk (due bug in LCL)

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1102 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
blikblum
2009-12-31 11:07:40 +00:00
parent 3c4e5cee0e
commit 2350cbe7ab
1 changed files with 4 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
components/virtualtreeview-new/trunk/VirtualTrees.pas
View File

@ -28293,7 +28293,9 @@ begin
Logger.Send([lcPaintDetails],'Setting the Node Height');
Height := PaintInfo.Node.NodeHeight;
// Make sure the buffer bitmap and target bitmap use the same transformation mode.
{$ifndef Gtk}
SetMapMode(Canvas.Handle, GetMapMode(TargetCanvas.Handle));
{$endif}
//Workaround to LCL bug 8626
SetWindowOrgEx(Canvas.Handle, {$ifdef Gtk}-{$endif}Window.Left, 0, nil);
R.Bottom := PaintInfo.Node.NodeHeight;
@ -28601,7 +28603,9 @@ begin
NodeBitmap.Width := TargetRect.Right - TargetRect.Left;
NodeBitmap.Height := TargetRect.Bottom - TargetRect.Top;
// Make sure the buffer bitmap and target bitmap use the same transformation mode.
{$ifndef Gtk}
SetMapMode(NodeBitmap.Canvas.Handle, GetMapMode(TargetCanvas.Handle));
{$endif}
Logger.Send([lcPaintDetails],'NodeBitmap.Handle after changing height to background',NodeBitmap.Handle);
Logger.Send([lcPaintDetails],'TargetRect',TargetRect);
Logger.Send([lcPaintDetails],'NodeBitmap Width: %d Height: %d',[NodeBitmap.Width,NodeBitmap.Height]);