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

fix range check error (0010888)

Browse Source 
git-svn-id: trunk@14252 -
This commit is contained in:
paul 2008-02-26 04:22:19 +00:00
parent 7b7eafc985
commit 3cbd0f604b
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/customcombobox.inc
View File

@ -945,7 +945,7 @@ begin
else
AHeight := ItemHeight;
if FStyle = csOwnerDrawVariable then
MeasureItem(ItemId, AHeight);
MeasureItem(Integer(ItemId), AHeight);
if AHeight > 0 then
ItemHeight := AHeight;
end;