paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 00:29:28 +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 var
Origi, i: Integer; Origi, i: Integer;
s: string; s: string;
Pass, Done, Checked: Boolean; Pass, Done: Boolean;
begin begin
Done:=False; Done:=False;
fSortedData.Clear; fSortedData.Clear;

6
components/lazcontrols/treefilteredit.pas
View File

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