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

TListBox: fix SelCount in case HandleAllocated = False. Issue #40361.

Browse Source 
(cherry picked from commit a4c9080f10)
This commit is contained in:
Bart 2023-07-07 22:42:15 +02:00 committed by Maxim Ganetsky
parent 719d3a2a7c
commit 33d3ac5e05
1 changed files with 13 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lcl/include/customlistbox.inc
View File

@ -450,11 +450,23 @@ end;
{ function TCustomListBox.GetSelCount } { function TCustomListBox.GetSelCount }
{------------------------------------------------------------------------------} {------------------------------------------------------------------------------}
function TCustomListBox.GetSelCount: integer; function TCustomListBox.GetSelCount: integer;
var
i: Integer;
begin begin
if HandleAllocated then if HandleAllocated then
Result := TWSCustomListBoxClass(WidgetSetClass).GetSelCount(Self) Result := TWSCustomListBoxClass(WidgetSetClass).GetSelCount(Self)
else else
Result := 0; begin
if not MultiSelect then
Result := Ord(FItemIndex >- 1) //use FItemIndex since HandleAllocated = False
else
begin
Result := 0;
if FCacheValid then //otherwise GetSelectedCache raises an exception
for i := 0 to Items.Count - 1 do
if GetSelectedCache(i) then Inc(Result);
end;
end;
end; end;
function TCustomListBox.GetItemHeight: Integer; function TCustomListBox.GetItemHeight: Integer;