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

LCL: Set ListFilterEdit.ItemIndex to -1 after adding items. Debug-info.

Browse Source 
git-svn-id: trunk@31885 -
This commit is contained in:
juha 2011-08-06 10:18:39 +00:00
parent 69a63a5af6
commit 9090b206f8
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
components/lazcontrols/listfilteredit.pas
View File

@ -5,8 +5,8 @@ unit ListFilterEdit;
interface interface
uses uses
Classes, SysUtils, Forms, LResources, LCLType, Graphics, Classes, SysUtils, Forms, LResources, Graphics, Controls, StdCtrls, ComCtrls,
Controls, StdCtrls, ComCtrls, EditBtn, FileUtil, AvgLvlTree, ImgList; LCLProc, EditBtn, FileUtil;
type type
@ -102,6 +102,9 @@ begin
fFilteredListbox.Selected[i]:=fSelectedPart=fSortedData.Objects[i]; fFilteredListbox.Selected[i]:=fSelectedPart=fSortedData.Objects[i];
end; end;
fFilteredListbox.Items.EndUpdate; fFilteredListbox.Items.EndUpdate;
DebugLn('TListFilterEdit.ApplyFilterCore 1, ItemIndex = ' + IntToStr(fFilteredListbox.ItemIndex));
fFilteredListbox.ItemIndex:=-1;
DebugLn('TListFilterEdit.ApplyFilterCore 2 after setting "ItemIndex:=-1;", ItemIndex = ' + IntToStr(fFilteredListbox.ItemIndex));
end; end;
function TListFilterEdit.CompareFNs(AFilename1,AFilename2: string): integer; function TListFilterEdit.CompareFNs(AFilename1,AFilename2: string): integer;