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

LCL: Fix inability to resize the height of a TCombobox having style csSimple at designtime in order to show the item listbox. Issue #37679. Patch by mgr.inz.Player.

Browse Source 
git-svn-id: trunk@63857 -
This commit is contained in:
wp 2020-09-01 13:41:11 +00:00
parent afa0f73049
commit b4cc95fc28
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1113,6 +1113,8 @@ end;
class procedure TWin32WSCustomComboBox.SetStyle(const ACustomComboBox: TCustomComboBox; NewStyle: TComboBoxStyle); class procedure TWin32WSCustomComboBox.SetStyle(const ACustomComboBox: TCustomComboBox; NewStyle: TComboBoxStyle);
begin begin
RecreateWnd(ACustomComboBox); RecreateWnd(ACustomComboBox);
if (NewStyle = csSimple) and (csDesigning in ACustomComboBox.ComponentState) then
ACustomComboBox.Constraints.SetInterfaceConstraints(0,0,0,0);
end; end;
class procedure TWin32WSCustomComboBox.SetReadOnly(const ACustomComboBox: TCustomComboBox; class procedure TWin32WSCustomComboBox.SetReadOnly(const ACustomComboBox: TCustomComboBox;