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

lcl: win32: ComboBox ItemWidth support. Issue #29149, patch by Simon Ameis/Janusz Tomczak

Browse Source 
git-svn-id: trunk@51094 -
This commit is contained in:
ondrej 2015-12-31 10:06:02 +00:00
parent 0246f8c565
commit 9effa4e621
2 changed files with 2 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

@ -250,7 +250,7 @@ procedure TCustomComboBox.AdjustDropDown;
var var
Count, MinItemsWidth, MinItemsHeight: Integer; Count, MinItemsWidth, MinItemsHeight: Integer;
begin begin
if (not HandleAllocated) or (not DroppedDown) then exit; if (not HandleAllocated) then exit;
Count := Items.Count; Count := Items.Count;
if Count > DropDownCount then Count := DropDownCount; if Count > DropDownCount then Count := DropDownCount;
if Count < 1 then Count := 1; if Count < 1 then Count := 1;

1
lcl/interfaces/win32/win32winapi.inc
View File

@ -2982,6 +2982,7 @@ function TWin32WidgetSet.SetComboMinDropDownSize(Handle: HWND; MinItemsWidth,
begin begin
Result:= ThemeServices.ThemesEnabled and Result:= ThemeServices.ThemesEnabled and
boolean(Windows.SendMessage(Handle, CB_SETMINVISIBLE, MinItemCount, 0)); boolean(Windows.SendMessage(Handle, CB_SETMINVISIBLE, MinItemCount, 0));
Result := Result and boolean(Windows.SendMessage(Handle, CB_SETDROPPEDWIDTH, MinItemsWidth, 0));
end; end;
{------------------------------------------------------------------------------ {------------------------------------------------------------------------------