Delphi VCL В каком модуле находится TImageCollection_ComEditor попап меню IDE

Мне хотелось бы унаследоватся от редактора попап меню TImageCollection но я не могу его найти. Или как самостоятельно вызвать редактор коллекции картинок в режиме разработки?

uses DesignEditors;

    TImageCollection_ComEditor=class(TDefaultEditor ??)
      public
        function GetVerbCount:integer; override;
        function GetVerb(Index:integer):string; override;
        procedure ExecuteVerb(Index: Integer); override;
        procedure Edit; override;
    end;

ico

получилось узнать имя класса но сам модуль не могу найти где этот класс

procedure TAmImageCollection_ComEditor.ExecuteVerb(Index: Integer);
var P: TAmImageCollection;
    N: TImageCollection;
    C:IComponentEditor;
  s:string;
  I:Integer;
begin
  inherited;

    case Index of
         0:begin
             P:= TAmImageCollection(self.Component);

             N:= TImageCollection.Create(P);
           //  N.Assign(P);
             C:= GetComponentEditor(N,Designer);
             s:= (C as TComponentEditor).UnitName+' '+(C as TComponentEditor).ClassName ;
            
            // TImageCollectionEditor
             InputQuery('','',s); //>>  s = WinXReg TImageCollectionEditor
             
             //а запустить можно так 
            // есть ли вариант по лучше 
             N:= TImageCollection.Create(P);
             try
               N.Assign(P);
               try
               C:= GetComponentEditor(N,Designer);
               C.ExecuteVerb(0);
               finally
                 P.Assign(N);
               end;
             finally
               N.Free;
             end;

             exit;
....

Ответы (0 шт):