paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-21 23:19:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: TListBox.ScrollWidth is used when defined by user. Resolves issue #19079

Browse Source 
git-svn-id: trunk@65169 -
This commit is contained in:
michl 2021-06-03 18:40:17 +00:00
parent 561099dc46
commit 8a96677e5d
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/include/customlistbox.inc
View File

@ -267,10 +267,10 @@ end;
function TCustomListBox.GetScrollWidth: Integer;
begin
Result := FScrollWidth;
if (Result > 0) or (csDesigning in ComponentState) then Exit;
if HandleAllocated then
Result := TWSCustomListBoxClass(WidgetSetClass).GetScrollWidth(Self)
else
Result := FScrollWidth;
Result := TWSCustomListBoxClass(WidgetSetClass).GetScrollWidth(Self);
end;
{------------------------------------------------------------------------------