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

* Fix position of drag image. Issue21945

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2435 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
blikblum
2012-05-16 01:58:24 +00:00
parent 1149c237b0
commit be57e227e9
1 changed files with 4 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -28840,6 +28840,9 @@ begin
with TreeRect do with TreeRect do
begin begin
PaintRect := TreeRect; PaintRect := TreeRect;
//lclheader
if hoVisible in FHeader.Options then
OffsetRect(PaintRect, 0, -FHeader.Height);
if Left < 0 then if Left < 0 then
begin begin
PaintTarget.X := -Left; PaintTarget.X := -Left;
@ -28849,7 +28852,7 @@ begin
PaintTarget.X := 0; PaintTarget.X := 0;
if Top < 0 then if Top < 0 then
begin begin
PaintTarget.Y := -Top; PaintTarget.Y := -PaintRect.Top;
PaintRect.Top := 0; PaintRect.Top := 0;
end end
else else