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

Merged revision(s) 43771 #85d0817718 from trunk:

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

git-svn-id: branches/fixes_1_2@43799 -
This commit is contained in:
maxim 2014-01-25 17:05:19 +00:00
parent b8aa409611
commit 5b581f0c65
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;