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

win32: use the same approach to set dropdowncount when theme is enabled or not. Fix issue

Browse Source 
git-svn-id: trunk@35189 -
This commit is contained in:
blikblum 2012-02-06 19:03:27 +00:00
parent e0fb084147
commit c447cf7d03
1 changed files with 3 additions and 10 deletions

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

@ -952,16 +952,9 @@ class procedure TWin32WSCustomComboBox.SetDropDownCount(
var
StringList: TWin32ComboBoxStringList;
begin
if ThemeServices.ThemesEnabled then
// CB_SETMINVISIBLE is available,
// if the application specifies comctl32.dll version 6 in the manifest
SendMessage(ACustomComboBox.Handle, CB_SETMINVISIBLE, NewCount, 0)
else
begin
StringList := GetStringList(ACustomComboBox);
if StringList <> nil then
StringList.DropDownCount := NewCount;
end;
StringList := GetStringList(ACustomComboBox);
if StringList <> nil then
StringList.DropDownCount := NewCount;
end;
class procedure TWin32WSCustomComboBox.SetDroppedDown(