diff --git a/src/ce_projconf.pas b/src/ce_projconf.pas index 121a84ed..d989cc6a 100644 --- a/src/ce_projconf.pas +++ b/src/ce_projconf.pas @@ -26,6 +26,7 @@ type procedure GridEditorFilter(Sender: TObject; aEditor: TPropertyEditor;var aShow: boolean); procedure selConfChange(Sender: TObject); procedure TreeChange(Sender: TObject; Node: TTreeNode); + procedure GridFilter(Sender: TObject; aEditor: TPropertyEditor;var aShow: boolean); private fProj: TCEProject; function getGridTarget: TPersistent; @@ -46,6 +47,7 @@ constructor TCEProjectConfigurationWidget.create(aOwner: TComponent); begin inherited; Tree.Selected := Tree.Items.GetLastNode; + Grid.OnEditorFilter := @GridFilter; end; procedure TCEProjectConfigurationWidget.projNew(const aProject: TCEProject); @@ -139,6 +141,17 @@ begin endUpdateByEvent; end; +procedure TCEProjectConfigurationWidget.GridFilter(Sender: TObject; aEditor: TPropertyEditor;var aShow: boolean); +begin + if getGridTarget = fProj then + begin + if aEditor.GetName = 'Name' then + aShow := false; + if aEditor.GetName = 'Tag' then + aShow := false; + end; +end; + function TCEProjectConfigurationWidget.getGridTarget: TPersistent; begin if fProj = nil then exit(nil);