IMetabaseCustomExtender.ResetObjectImages

Синтаксис Fore

ResetObjectImages();

Описание

Метод ResetObjectImages устанавливает системные пиктограммы для классов.

Примеры Fore

Для выполнения примера добавьте ссылку на системную сборку «Metabase». Создайте форму и разместите на ней кнопку. Пример является обработчиком событий для кнопки:

Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Var
    MB: IMetabase;
    Extender: IMetabaseCustomExtender;
Begin
    MB := MetabaseClass.Active;
    Extender := MB.SpecialObject(MetabaseSpecialObject.CustomExtender).Edit As IMetabaseCustomExtender;
    Extender.ResetObjectImages;
    (Extender As IMetabaseObject).Save;
End Sub Button1OnClick;

После выполнения примера для классов буду использованы системные пиктограммы.

См. также:

IMetabaseCustomExtender