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

save TListBox.ItemIndex on destroy handle

Browse Source 
git-svn-id: trunk@6491 -
This commit is contained in:
mattias 2005-01-07 02:23:58 +00:00
parent 36c907fc59
commit 563264d9fa
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lcl/include/customlistbox.inc
View File

@ -100,6 +100,9 @@ var
i, Cnt: integer; i, Cnt: integer;
begin begin
LockSelectionChange; LockSelectionChange;
// save ItemIndex on destroy handle
if ([csDestroying,csLoading]*ComponentState=[]) then
GetItemIndex;
//DebugLn('[TCustomListBox.DestroyHandle] A ',FItems.ClassName); //DebugLn('[TCustomListBox.DestroyHandle] A ',FItems.ClassName);
// create internal item list // create internal item list
NewStrings:= TExtendedStringList.Create(GetCachedDataSize); NewStrings:= TExtendedStringList.Create(GetCachedDataSize);