IMetabaseCustomExtender.SetObjectSmallImages

Синтаксис

SetObjectSmallImages(ImageList: Object; ARRAYID: Array);

Параметры

ImageList. Ссылка на компонент, в который будут загружены изменяемые пиктограммы 16x16 пикселей. В качестве значения укажите существующий компонент ImageList или GlobalImageList.

ARRAYID. Массив классов, для которых заменяются пиктограммы.

Описание

Метод SetObjectSmallImages определяет копию коллекции с изображениями 16x16 пикселей для массива классов.

Комментарии

Индексы пиктограмм в ImageList соответствуют индексам элементов массива.

Системные пиктограммы, одинаковые для нескольких объектов (например, стандартный куб и куб ADOMD) по отдельности не заменяются.

Пиктограммы заменяются для всех приложений (studio.exe, adm.exe итд).

Заданные пиктограммы могут переноситься с помощью обновления репозитория вместе со специальным объектом «Пользовательские метаданные».

Пример

Для выполнения примера создайте форму и разместите на ней кнопку и компонент ImageList с тремя картинками.

Добавьте ссылки на системные сборки: Drawing, Metabase.

Sub SetSmallImages(imglist: IImageList);
Var
    extender: IMetabaseCustomExtender;
    mb: IMetabase;
    arr: array Of variant;
Begin
    mb := MetabaseClass.Active;
    arr := New Variant[3];
    arr[0] := MetabaseObjectClass.KE_CLASS_FOLDER;
    arr[1] := MetabaseObjectClass.KE_CLASS_FORM;
    arr[2] := MetabaseObjectClass.KE_CLASS_PROCEDURALREPORT;
    extender := (mb.SpecialObject(MetabaseSpecialObject.CustomExtender)).Edit As IMetabaseCustomExtender;
    extender.SetObjectSmallImages(imglist, arr);
    (extender As IMetabaseObject).Save;
End Sub SetSmallImages;

Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Begin
    SetSmallImages(ImageList1);
End Sub Button1OnClick;

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

См. также:

IMetabaseCustomExtender