Links
EControl Form Designer Pro
TDesignerManager.SetActiveDesigner Method

Sets active designer.

procedure SetActiveDesigner(const Value: IDesigner); virtual;

Override this method when you need to switch managers. 

Application: 

There are several groups of designers (edited objects) with own component palette state and design objects. 

Usage: 

For each group there should be created own instance of TDesignManager (derived class). 

Derive new class from TDesignManager and override SetActiveDesigner. 

In SetActiveDesigner you should detect in which group this active designer is included and change DsnManager global variable. 

 

procedure TMyDesignManager.SetActiveDesigner(const Value: IDesigner);
var Mng: TMyDesignManager;
begin
  // GetManagerForDesigner - your function which detects particular group
  Mng := GetManagerForDesigner(Value);
  if Mng <> Self then
    begin
      DsnManager := Mng;
      Mng.SetActiveDesigner(Value);
    end else
      inherited;
end;
Copyright (c) 2004 - 2011 EControl Ltd.. All rights reserved.
What do you think about this topic? Send feedback!