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

lacontrols: clean up

Browse Source 
git-svn-id: trunk@34284 -
This commit is contained in:
mattias 2011-12-19 17:15:07 +00:00
parent 7316f8ba34
commit 00b915367e
2 changed files with 2 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/lazcontrols/listfilteredit.pas
View File

@ -135,7 +135,7 @@ procedure TListFilterEdit.SortAndFilter;
var
Origi, i: Integer;
s: string;
Pass, Done, Checked: Boolean;
Pass, Done: Boolean;
begin
Done:=False;
fSortedData.Clear;

6
components/lazcontrols/treefilteredit.pas
View File

@ -338,10 +338,7 @@ end;
procedure TTreeFilterEdit.ApplyFilterCore;
var
TVNode: TTreeNode;
i: Integer;
FileN, s: string;
ena: Boolean;
begin
fFilteredTreeview.BeginUpdate;
if Assigned(fBranches) then begin // Filter the brances
@ -358,8 +355,7 @@ end;
procedure TTreeFilterEdit.SortAndFilter;
// Copy data from fOriginalData to fSortedData in sorted order
var
Origi, i: Integer;
FileN: string;
i: Integer;
begin
if Assigned(fBranches) then begin // Filter the brances
for i:=0 to fBranches.Count-1 do