Show 16 instead of only 8 items in drop down menus of grids. Closes #90

This commit is contained in:
Ansgar Becker
2018-02-18 12:05:24 +01:00
parent 93bb6c6051
commit 4bde1c213e

View File

@ -837,6 +837,8 @@ begin
FCombo.Parent := FParentForm;
FCombo.OnKeyDown := DoKeyDown;
FCombo.OnExit := DoEndEdit;
// Show some more than the default 8 items
FCombo.DropDownCount := 16;
ValueList := TStringList.Create;
DisplayList := TStringList.Create;
FMainControl := FCombo;