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

win32: TCustomListBox: don't recreateWnd if we are destroying handle

Browse Source 
git-svn-id: trunk@16410 -
This commit is contained in:
paul 2008-09-04 12:15:08 +00:00
parent 3083aece74
commit 5f76c9b083
2 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/include/customlistbox.inc
View File

@ -139,7 +139,7 @@ begin
GetItemIndex;
//DebugLn('[TCustomListBox.FinalizeWnd] A ',FItems.ClassName);
// create internal item list
if Assigned(FItems) then begin;
if Assigned(FItems) then begin
NewStrings:= TExtendedStringList.Create(GetCachedDataSize);
// copy items (text+objects) from the interface items list

7
lcl/interfaces/win32/win32listsl.inc
View File

@ -93,11 +93,12 @@ End;
------------------------------------------------------------------------------}
procedure TWin32ListStringList.Sort;
Begin
begin
// The win api doesn't allow to change the sort on the fly,
// so is needed to recreate the window
RecreateWnd(FSender);
End;
if not (csDestroyingHandle in FSender.ControlState) then
RecreateWnd(FSender);
end;
{------------------------------------------------------------------------------