paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-27 20:34:01 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL/ComboBox: Avoid RecreateWnd in r63856 #afa0f73049. Issue #37670, patch by Jamie Philbrook.

Browse Source 
git-svn-id: trunk@64227 -
This commit is contained in:
wp 2020-12-18 17:58:44 +00:00
parent 4618c04983
commit 2f347f2475
1 changed files with 4 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1026,7 +1026,7 @@ begin
end;
// issue #37129: Fix static listbox of style csSimple when height is changed (like in Delphi)
if (CBS_SIMPLE and Params.flags) <> 0 Then
if TCustomComBoBox(AWInControl).Style = csSimple then
begin
Params.Flags := Params.Flags or CBS_NOINTEGRALHEIGHT;
Include(TWinControlAccess(AWinControl).FWinControlFlags, wcfEraseBackground);
@ -1180,20 +1180,9 @@ class procedure TWin32WSCustomComboBox.SetDropDownCount(
var
StringList: TWin32ComboBoxStringList;
begin
if (WindowsVersion >= wvVista) and ThemeServices.ThemesEnabled then
begin
//Use CB_SETMINVISIBLE in vista or above
SendMessage(ACustomComboBox.Handle, CB_SETMINVISIBLE, NewCount, 0);
//Issue #37670: Fix DropDownCount not changing when Style=csDropDownList
if not (ACustomComboBox.Style in [csSimple, csDropDown, csOwnerDrawEditableFixed]) then
RecreateWnd(ACustomCombobox);
end
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(