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

* Fix scrolling position when navigating with the arrow keys

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@413 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
blikblum
2008-04-10 04:15:34 +00:00
parent 40fa686aa4
commit 881de4fd3a
1 changed files with 6 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -24080,11 +24080,10 @@ begin
end;
end;
//lclheader
//todo: add a parameter to decide if the result must be returned as
//a tree offset or a control offset
if hoVisible in FHeader.FOptions then
begin
inc(Result.Top, FHeader.Height);
inc(Result.Bottom, FHeader.Height);
end;
OffsetRect(Result, 0, FHeader.Height);
//Logger.Send([lcPaintHeader],'DisplayRect for Node '+IntToStr(Node^.Index),Result);
//Logger.ExitMethod([lcPaintHeader],'GetDisplayRect');
end;
@ -27654,6 +27653,7 @@ var
NewOffset: Integer;
begin
//todo: minimize calls to ClientHeight and ClientWidth
Result := False;
if Assigned(Node) and (Node <> FRoot) then
begin
@ -27675,7 +27675,8 @@ begin
// 1) scroll vertically
//lclheader
if hoVisible in FHeader.FOptions then
Dec(R.Top,FHeader.Height);
OffsetRect(R, 0, -FHeader.Height);
if R.Top < 0 then
begin
if Center then