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

lcl: TCustomList.ItemHeight must return correct value if our ListBox has non-variable item heights

Browse Source 
git-svn-id: trunk@16978 -
This commit is contained in:
paul 2008-10-13 03:32:17 +00:00
parent 294989aa80
commit cd1987af7a
1 changed files with 14 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
lcl/include/customlistbox.inc
View File

@ -389,7 +389,13 @@ end;
function TCustomListBox.GetItemHeight: Integer;
begin
Result := FItemHeight;
if HandleAllocated and (Style <> lbOwnerDrawVariable) then
begin
with ItemRect(TopIndex) do
Result := Bottom - Top;
end
else
Result := FItemHeight;
end;
procedure TCustomListBox.SetItemHeight(Value: Integer);
@ -696,17 +702,16 @@ end;
------------------------------------------------------------------------------}
function TCustomListBox.ItemRect(Index: Integer): TRect;
begin
if (Index>=0) and (Index<Items.Count) then
begin
TWSCustomListBoxClass(WidgetSetClass).GetItemRect(Self, Index, Result);
end else
FillChar(Result, SizeOf(Result), 0);
if not HandleAllocated then
Exit;
if (Index >= 0) and (Index < Items.Count) then
TWSCustomListBoxClass(WidgetSetClass).GetItemRect(Self, Index, Result)
else
if (Index=Items.Count) and (Index>0) then
begin
TWSCustomListBoxClass(WidgetSetClass).GetItemRect(Self, Index - 1, Result);
OffsetRect(Result,0,Result.Bottom-Result.Top);
end else
begin
FillChar(Result,SizeOf(Result),0);
OffsetRect(Result, 0, Result.Bottom - Result.Top);
end;
end;