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

Win32: update combobox dropdownlist (nr. of items displayed) when using AddStrings. Issue #0025556.

Browse Source 
git-svn-id: trunk@43771 -
This commit is contained in:
bart 2014-01-19 13:56:44 +00:00
parent 059f3dcb43
commit 85d0817718
2 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lcl/interfaces/win32/win32listsl.inc
View File

@ -373,7 +373,6 @@ begin
inherited Assign(Source);
// restore text in edit box
UpdateComboHeight;
TWin32WSWinControl.SetText(FSender, EditText);
if EditText = '' then
lItemIndex := -1
@ -420,6 +419,14 @@ begin
SetWindowPos(FSender.Handle, 0, 0, 0, Width, Height, SWP_NOZORDER or SWP_NOACTIVATE or SWP_NOMOVE);
end;
procedure TWin32ComboBoxStringList.AddStrings(TheStrings: TStrings);
begin
inherited AddStrings(TheStrings);
// Make sure dropdown etc is set correctly
UpdateComboHeight;
end;
procedure TWin32ComboBoxStringList.Clear;
var
SaveText: String;

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

@ -84,6 +84,7 @@ Type
procedure InitFlags; override;
procedure UpdateComboHeight;
public
procedure AddStrings(TheStrings: TStrings); override;
procedure Assign(Source: TPersistent); override;
procedure Clear; override;
procedure Delete(Index: integer); override;