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

lcl: fix TCustomListBox.GetItemHeight (#0012527, #0012441 by Zeljan)

Browse Source 
git-svn-id: trunk@17163 -
This commit is contained in:
paul 2008-10-31 08:42:23 +00:00
parent ae817f22ad
commit a8e65749a5
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/include/customlistbox.inc
View File

@ -389,7 +389,7 @@ end;
function TCustomListBox.GetItemHeight: Integer; function TCustomListBox.GetItemHeight: Integer;
begin begin
if HandleAllocated and (Style <> lbOwnerDrawVariable) then if HandleAllocated and (Style = lbStandard) then
begin begin
with ItemRect(TopIndex) do with ItemRect(TopIndex) do
Result := Bottom - Top; Result := Bottom - Top;