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

win32: remove last constraint code for csSimple combobox

Browse Source 
git-svn-id: trunk@14243 -
This commit is contained in:
paul 2008-02-25 08:53:42 +00:00
parent 3d629400eb
commit 19820828de
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lcl/interfaces/win32/win32wsstdctrls.pp
View File

@ -785,9 +785,12 @@ var
StringList: TWin32ComboBoxStringList;
begin
WinHandle := AWinControl.Handle;
StringList := TWin32ComboBoxStringList(GetWindowInfo(WinHandle)^.List);
if StringList <> nil then
Height := StringList.ComboHeight;
if TCustomComboBox(AWinControl).Style <> csSimple then
begin
StringList := TWin32ComboBoxStringList(GetWindowInfo(WinHandle)^.List);
if StringList <> nil then
Height := StringList.ComboHeight;
end;
end;
class procedure TWin32WSCustomComboBox.GetPreferredSize(