TAChart: Allow design-time tools editing

git-svn-id: trunk@24326 -

components/tachart/taserieseditor.pas

@@ -35,7 +35,7 @@ resourcestring
 implementation
 
 uses
-  Classes, ComponentEditors, Forms,Menus, PropEdits, SysUtils,
+  Classes, ComponentEditors, Forms, Menus, PropEdits, SysUtils,
   TAGraph, TASubcomponentsEditor;
 
 type

components/tachart/tasubcomponentseditor.pas

@@ -70,17 +70,17 @@ type
     FPropertyEditor: TComponentListPropertyEditor;
     function FindChild(ACandidate: TPersistent; out AIndex: Integer): Boolean;
     procedure OnComponentRenamed(AComponent: TComponent);
-    procedure OnPersistentDeleting(APersistent: TPersistent);
     procedure OnGetSelection(const ASelection: TPersistentSelectionList);
-    procedure OnSetSelection(const ASelection: TPersistentSelectionList);
     procedure OnPersistentAdded(APersistent: TPersistent; ASelect: Boolean);
+    procedure OnPersistentDeleting(APersistent: TPersistent);
+    procedure OnSetSelection(const ASelection: TPersistentSelectionList);
     procedure SelectionChanged;
   protected
-    procedure AddSubcomponentClass(const ACaption: String; ATag: Integer);
     procedure AddSubcomponent(AParent, AChild: TComponent); virtual; abstract;
+    procedure AddSubcomponentClass(const ACaption: String; ATag: Integer);
     procedure BuildCaption; virtual; abstract;
-    procedure EnumerateSubcomponentClasses; virtual; abstract;
     function ChildClass: TComponentClass; virtual; abstract;
+    procedure EnumerateSubcomponentClasses; virtual; abstract;
     function MakeSubcomponent(
       AOwner: TComponent; ATag: Integer): TComponent; virtual; abstract;
     procedure RefreshList; virtual; abstract;

components/tachart/tatools.pas

@@ -110,11 +110,46 @@ type
   procedure RegisterChartToolClass(
     AToolClass: TChartToolClass; const ACaption: String);
 
+resourcestring
+  tasToolsEditorTitle = 'Edit tools';
+
 implementation
 
 uses
-  GraphMath, Math, Types,
+  ComponentEditors, Forms, GraphMath, Math, PropEdits, Types,
-  TAChartUtils;
+  TAChartUtils, TASubcomponentsEditor;
+
+type
+  { TToolsComponentEditor }
+
+  TToolsComponentEditor = class(TSubComponentListEditor)
+  protected
+    function MakeEditorForm: TForm; override;
+  public
+    function GetVerbCount: Integer; override;
+    function GetVerb(Index: Integer): string; override;
+  end;
+
+  { TToolsPropertyEditor }
+
+  TToolsPropertyEditor = class(TComponentListPropertyEditor)
+  protected
+    function MakeEditorForm: TForm; override;
+    function GetChildrenCount: Integer; override;
+  end;
+
+  { TToolsEditorForm }
+
+  TToolsEditorForm = class(TComponentListEditorForm)
+  protected
+    procedure AddSubcomponent(AParent, AChild: TComponent); override;
+    procedure BuildCaption; override;
+    function ChildClass: TComponentClass; override;
+    procedure EnumerateSubcomponentClasses; override;
+    function MakeSubcomponent(
+      AOwner: TComponent; ATag: Integer): TComponent; override;
+    procedure RefreshList; override;
+  end;
 
 var
   ToolsClassRegistry: TStringList;
@@ -135,14 +170,95 @@ end;
 procedure Register;
 begin
   RegisterComponents(CHART_COMPONENT_IDE_PAGE, [TChartToolset]);
+  RegisterPropertyEditor(
+    TypeInfo(TChartTools), TChartToolset, 'Tools', TToolsPropertyEditor);
+  RegisterComponentEditor(TChartToolset, TToolsComponentEditor);
 end;
 
 procedure RegisterChartToolClass(
   AToolClass: TChartToolClass; const ACaption: String);
 begin
   ToolsClassRegistry.AddObject(ACaption, TObject(AToolClass));
+  RegisterClass(AToolClass);
+  RegisterNoIcon([AToolClass]);
 end;
 
+{ TToolsComponentEditor }
+
+function TToolsComponentEditor.GetVerb(Index: Integer): string;
+begin
+  if Index = 0 then
+    Result := tasToolsEditorTitle
+  else
+    Result := '';
+end;
+
+function TToolsComponentEditor.GetVerbCount: Integer;
+begin
+  Result := 1;
+end;
+
+function TToolsComponentEditor.MakeEditorForm: TForm;
+begin
+  Result := TToolsEditorForm.Create(Application, GetComponent, Self, nil);
+end;
+
+{ TToolsPropertyEditor }
+
+function TToolsPropertyEditor.GetChildrenCount: Integer;
+begin
+  Result := (GetObjectValue as TChartTools).Count;
+end;
+
+function TToolsPropertyEditor.MakeEditorForm: TForm;
+begin
+  with TToolsEditorForm do
+    Result := Create(Application, GetComponent(0) as TComponent, nil, Self);
+end;
+
+{ TToolsEditorForm }
+
+procedure TToolsEditorForm.AddSubcomponent(AParent, AChild: TComponent);
+begin
+  (AChild as TChartTool).Toolset := (AParent as TChartToolset);
+end;
+
+procedure TToolsEditorForm.BuildCaption;
+begin
+  Caption := tasToolsEditorTitle + ' - ' + Parent.Name;
+end;
+
+function TToolsEditorForm.ChildClass: TComponentClass;
+begin
+  Result := TChartTool;
+end;
+
+procedure TToolsEditorForm.EnumerateSubcomponentClasses;
+var
+  i: Integer;
+begin
+  for i := 0 to ToolsClassRegistry.Count - 1 do
+    AddSubcomponentClass(ToolsClassRegistry[i], i);
+end;
+
+function TToolsEditorForm.MakeSubcomponent(
+  AOwner: TComponent; ATag: Integer): TComponent;
+begin
+  Result := TChartToolClass(ToolsClassRegistry.Objects[ATag]).Create(AOwner);
+end;
+
+procedure TToolsEditorForm.RefreshList;
+var
+  i: Integer;
+begin
+  ChildrenListBox.Clear;
+  with Parent as TChartToolset do
+    for i := 0 to Tools.Count - 1 do
+      ChildrenListBox.Items.AddObject(Item[i].Name, Item[i]);
+end;
+
+{ TChartTool }
+
 procedure TChartTool.Assign(Source: TPersistent);
 begin
   if Source is TChartTool then
@@ -154,8 +270,6 @@ begin
     inherited Assign(Source);
 end;
 
-{ TChartTool }
-
 constructor TChartTool.Create(AOwner: TComponent);
 begin
   inherited Create(AOwner);