paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-09 20:28:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

use position in message, GetScrollInfo not yet up to date

Browse Source 
git-svn-id: trunk@6495 -
This commit is contained in:
micha 2005-01-07 14:06:27 +00:00
parent 68ed2f8fe4
commit 23511e1f13
1 changed files with 2 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
lcl/include/treeview.inc
View File

@ -4478,8 +4478,6 @@ begin
end;}
procedure TCustomTreeView.WMVScroll(var Msg: TLMScroll);
var
ScrollInfo: TScrollInfo;
begin
case Msg.ScrollCode of
// Scrolls to start / end of the text
@ -4495,21 +4493,13 @@ begin
+ FDefItemHeight;
// Scrolls to the current scroll bar position
SB_THUMBPOSITION,
SB_THUMBTRACK:
begin
FillChar(ScrollInfo,SizeOf(ScrollInfo),0);
ScrollInfo.fMask:=SIF_POS;
GetScrollInfo(Handle,SB_VERT,ScrollInfo);
ScrolledTop := ScrollInfo.nPos;
end;
SB_THUMBTRACK: ScrolledTop := Msg.Pos;
SB_ENDSCROLL: ; // Ends scrolling
end;
end;
procedure TCustomTreeView.WMHScroll(var Msg: TLMScroll);
var
ScrollInfo: TScrollInfo;
begin
case Msg.ScrollCode of
// Scrolls to start / end of the text
@ -4525,12 +4515,7 @@ begin
+ FDefItemHeight;
// Scrolls to the current scroll bar position
SB_THUMBPOSITION,
SB_THUMBTRACK: begin
FillChar(ScrollInfo,SizeOf(ScrollInfo),0);
ScrollInfo.fMask:=SIF_POS;
GetScrollInfo(Handle,SB_HORZ,ScrollInfo);
ScrolledLeft := ScrollInfo.nPos;
end;
SB_THUMBTRACK: ScrolledLeft := Msg.Pos;
SB_ENDSCROLL: ;// Ends scrolling
end;