opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2025-08-06 18:24:26 +08:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
Ansgar Becker
2018-02-18 12:05:24 +01:00
parent 93bb6c6051
commit 4bde1c213e
1 changed files with 2 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
source/grideditlinks.pas
View File

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