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

* Fixed paint glitch when resizing

Browse Source 
* fixed images demo compilation

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@185 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
blikblum
2007-06-21 21:43:03 +00:00
parent 1143b36810
commit 1eda83ee33
8 changed files with 442 additions and 442 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -27790,11 +27790,11 @@ begin
NodeBitmap.PixelFormat := pf32Bit;
NodeBitmap.Width := TargetRect.Right - TargetRect.Left;
NodeBitmap.Height := TargetRect.Bottom - TargetRect.Top;
Logger.Send([lcPaintDetails],'NodeBitmap.Handle',NodeBitmap.Handle);
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]);
// Call back application/descendants whether they want to erase this area.
SetWindowOrgEx(NodeBitmap.Canvas.Handle, Target.X, 0, nil);
SetWindowOrgEx(NodeBitmap.Canvas.Handle,{$ifndef Windows}-{$endif}Target.X, 0, nil);
if not DoPaintBackground(NodeBitmap.Canvas, TargetRect) then
begin
if UseBackground then