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

LCL: Trying to fix issue #19882: Invalid type cast error... Now there are AVs elsewhere

Browse Source 
git-svn-id: trunk@31890 -
This commit is contained in:
juha 2011-08-06 12:48:49 +00:00
parent 22cd2415cb
commit dd75c9b748
1 changed files with 12 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
lcl/include/customlistbox.inc
View File

@ -107,17 +107,20 @@ end;
procedure TCustomListBox.InitializeWnd;
var
NewStrings: TStrings;
OldItems: TStrings; // TExtendedStringList or TGtkListStoreStringList or something else
i, cnt: integer;
OldItems: TExtendedStringList;
begin
LockSelectionChange;
inherited InitializeWnd;
// fetch the interface item list
NewStrings := TWSCustomListBoxClass(WidgetSetClass).GetStrings(Self);
// copy the items (text+objects)
OldItems := FItems as TExtendedStringList;
OldItems.Sorted := False;// make sure the items are not reordered (needed for ItemIndex and attributes)
NewStrings.Assign(Items);
OldItems := FItems;
// make sure the items are not reordered (needed for ItemIndex and attributes)
// Note: TGtkListStoreStringList and other also have "Sorted" but it does not inherit from TStrings.
if FItems is TExtendedStringList then
(OldItems as TExtendedStringList).Sorted := False;
NewStrings.Assign(FItems);
// new item list is the interface item list
FItems := NewStrings;
@ -129,10 +132,11 @@ begin
SendItemIndex;
// copy items attributes
cnt := OldItems.Count;
for i := 0 to cnt - 1 do
AssignCacheToItemData(i, OldItems.Records[i]);
if FItems is TExtendedStringList then begin
cnt := OldItems.Count;
for i := 0 to cnt - 1 do
AssignCacheToItemData(i, (OldItems as TExtendedStringList).Records[i]);
end;
// free old items
OldItems.Free;
TWSCustomListBoxClass(WidgetSetClass).SetSorted(Self, FItems, FSorted);