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

* Offset header height only when resizing header. fixes onheaderclick

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2558 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
blikblum
2012-10-14 22:46:25 +00:00
parent d1f7228ff3
commit 7db931d3fc
1 changed files with 5 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -9708,8 +9708,7 @@ begin
Result := False; Result := False;
with Message do with Message do
begin begin
//lclheader P := Point(XPos, YPos);
P := Point(XPos, YPos - Treeview.FHeader.Height);
if hsColumnWidthTrackPending in FStates then if hsColumnWidthTrackPending in FStates then
begin begin
FStates := FStates - [hsColumnWidthTrackPending] + [hsColumnWidthTracking]; FStates := FStates - [hsColumnWidthTrackPending] + [hsColumnWidthTracking];
@ -9735,6 +9734,9 @@ begin
end end
else if hsHeightTracking in FStates then else if hsHeightTracking in FStates then
begin begin
//lclheader
//fixes setting height
Dec(P.Y, FHeight);
if DoHeightTracking(P, GetShiftState) then if DoHeightTracking(P, GetShiftState) then
SetHeight(Integer(FHeight) + P.Y); SetHeight(Integer(FHeight) + P.Y);
HandleHeaderMouseMove := True; HandleHeaderMouseMove := True;
@ -9769,7 +9771,7 @@ begin
else else
if hsDragging in FStates then if hsDragging in FStates then
begin begin
DragTo(Treeview.ClientToScreen(Point(XPos, YPos))); DragTo(Treeview.ClientToScreen(P));
HandleHeaderMouseMove := True; HandleHeaderMouseMove := True;
Result := 0; Result := 0;
end; end;