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;
получилось узнать имя класса но сам модуль не могу найти где этот класс
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;
....
