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

lcl: clean up

Browse Source 
git-svn-id: trunk@53332 -
This commit is contained in:
mattias 2016-11-10 08:45:31 +00:00
parent 79db8762f5
commit 43fe142cde
1 changed files with 0 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lcl/include/treeview.inc
View File

@ -15,9 +15,6 @@
Abstract:
TTreeView for LCL
ToDo:
- Columns
}
@ -29,9 +26,6 @@ const
TVAutoHeightString = 'ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789jgpq|\()^';
MinNodeCapacity = 10;
// maximum scroll range
//MAX_SCROLL = 32767;
function CompareExpandedNodes(Data1, Data2: Pointer): integer;
var
Node1: TTreeNodeExpandedState;
@ -1045,7 +1039,6 @@ begin
Result := GetLastChild;
if Assigned(Result) and not Result.Visible then begin
Result := Result.GetPrevVisible;
// ToDo: implement this better. Now it works only when Self is visible.
if Result = Self then begin // No visible nodes found.
Assert(Visible, 'TTreeNode.GetLastVisibleChild: Node is not Visible');
Result := Nil;