From cfa7c95bbf64ce0a61390b226cc28cf30102d9ad Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.burg@gmx.com>
Date: Thu, 31 Jul 2014 09:37:32 +0200
Subject: [PATCH] hidden props related to TComponent

---
 src/ce_projconf.pas | 13 +++++++++++++
 1 file changed, 13 insertions(+)

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);