forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

options editor, generic editor, spoted bug, props not filtered when that target is a sub-component

This commit is contained in:
Basile Burg 2015-10-17 00:18:19 +02:00
parent e2a763708b
commit 236cd0fac8
2 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/ce_optionseditor.lfm
View File

@ -36,7 +36,7 @@ inherited CEOptionEditorWidget: TCEOptionEditorWidget
Width = 140 Width = 140
Align = alLeft Align = alLeft
AutoExpand = True AutoExpand = True
DefaultItemHeight = 18 DefaultItemHeight = 16
HideSelection = False HideSelection = False
ReadOnly = True ReadOnly = True
ScrollBars = ssAutoBoth ScrollBars = ssAutoBoth

10
src/ce_optionseditor.pas
View File

@ -243,12 +243,18 @@ end;
procedure TCEOptionEditorWidget.inspectorEditorFilter(Sender: TObject;aEditor: procedure TCEOptionEditorWidget.inspectorEditorFilter(Sender: TObject;aEditor:
TPropertyEditor; var aShow: boolean); TPropertyEditor; var aShow: boolean);
var
nme: string;
len: integer;
begin begin
if aEditor.GetComponent(0) is TComponent then if aEditor.GetComponent(0) is TComponent then
begin begin
if aEditor.GetPropInfo^.Name = 'Tag' then nme := aEditor.GetPropInfo^.Name;
len := length(nme);
// TODO-cbugfix: filtering does not work on sub componenets 'e.g D2HL options)
if (len > 2) and (nme[len - 2 .. len] = 'Tag') then
aShow := false aShow := false
else if aEditor.GetPropInfo^.Name = 'Name' then else if (len > 3) and (nme[len - 3 .. len] = 'Name') then
aShow := false aShow := false
else if aEditor.GetPropInfo^.PropType = TypeInfo(TCollection) then else if aEditor.GetPropInfo^.PropType = TypeInfo(TCollection) then
aShow := false; aShow := false;