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

IDE: OI: use new csOwnerDrawEditableFixed and csOwnerDrawEditableVariable styles for combo boxes. Issue #31891

Browse Source 
git-svn-id: trunk@55248 -
This commit is contained in:
ondrej 2017-06-05 19:48:29 +00:00
parent 7f020e1b29
commit 6578db1024
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
components/ideintf/objectinspector.pp
View File

@ -1858,12 +1858,15 @@ begin
else if paValueList in EditorAttributes then else if paValueList in EditorAttributes then
begin begin
FCurrentEdit:=ValueComboBox; FCurrentEdit:=ValueComboBox;
if paCustomDrawn in EditorAttributes then if (paCustomDrawn in EditorAttributes) and (paPickList in EditorAttributes) then
ValueComboBox.Style:=csOwnerDrawVariable ValueComboBox.Style:=csOwnerDrawVariable
else if paPickList in EditorAttributes then
ValueComboBox.Style:=csDropDownList // text field should be readonly
else else
ValueComboBox.Style:=csDropDown; if paCustomDrawn in EditorAttributes then
ValueComboBox.Style:=csOwnerDrawEditableVariable
else if paPickList in EditorAttributes then
ValueComboBox.Style:=csOwnerDrawFixed
else
ValueComboBox.Style:=csOwnerDrawEditableFixed;
ValueComboBox.MaxLength:=NewRow.Editor.GetEditLimit; ValueComboBox.MaxLength:=NewRow.Editor.GetEditLimit;
ValueComboBox.Sorted:=paSortList in NewRow.Editor.GetAttributes; ValueComboBox.Sorted:=paSortList in NewRow.Editor.GetAttributes;
ValueComboBox.Enabled:=not NewRow.IsReadOnly; ValueComboBox.Enabled:=not NewRow.IsReadOnly;