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

ValEdit: set DropDownCount of associated ComboBox to DropDownRows if ItemProp.EditStyle = esPickList.

Browse Source 
git-svn-id: trunk@40372 -
This commit is contained in:
bart 2013-02-23 14:08:49 +00:00
parent 35b60c2c6c
commit 4952b8047a
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lcl/valedit.pas
View File

@ -967,6 +967,7 @@ begin
esPickList: begin esPickList: begin
result := EditorByStyle(cbsPickList); result := EditorByStyle(cbsPickList);
(result as TCustomComboBox).Items.Assign(ItemProp.PickList); (result as TCustomComboBox).Items.Assign(ItemProp.PickList);
(result as TCustomComboBox).DropDownCount := DropDownRows;
//Style := csDropDown, default = csDropDownList; //Style := csDropDown, default = csDropDownList;
end; end;
end; end;