|
Вопрос # 473/ вопрос открыт / |
|
Как во время исполнения программы загрузить изображения в ImageList?
 |
Вопрос задал: Иван-488 (статус: Посетитель)
Вопрос отправлен: 11 апреля 2007, 19:41
Состояние вопроса: открыт, ответов: 3.
|
Ответ #1. Отвечает эксперт: Вадим К
add(картинка, маска)
 |
Ответ отправил: Вадим К (статус: Академик)
Время отправки: 11 апреля 2007, 19:55
|
Ответ #2. Отвечает эксперт: Николай Рубан
Например так:
var ico: TIcon;
i:integer;
begin
ico := TIcon.Create;
for i:=1 to 3 do
begin
ico.LoadFromFile(ExtractFilePath(Application.ExeName)+format('ico\%d.ico',[I]));
Imagelist2.AddIcon(ico);
end;
ico.Free;
PageControl1.Images:=ImageList2;
TabSheet1.ImageIndex:=0;
TabSheet2.ImageIndex:=1;
TabSheet3.ImageIndex:=2;
end;
Загоняем в ImageList2 - три иконки (который лежат в том же каталоге что и проект только в подкаталоге \ico), например - и потом привязываем эти иконки к существующим закладкам PageControl1.
GoodLuck!!
 |
Ответ отправил: Николай Рубан (статус: 10-ый класс)
Время отправки: 11 апреля 2007, 20:42
|
Ответ #3. Отвечает эксперт: Роман
Здравствуйте, Иван!Значит так:
1).Add(image,mask:TBitmap):integer -добавляет в список мзображение и маску,возвращает номер изобр. в списке.
2). AddIcon(image:TIcon):integer - добавить *.ico,рисуются прозрачными.
3). AddMasked(image:TBitmap;MaskColor:TColor):integer - аналогичен add но вместо маски задаётся прозрачный цвет
4). FileLoad(ResType:TResType;Name:string;MaskColor:TColor):Boolean - загрузка из файла ресурсов с именем name ,В ResType указывается тип ресурса,MaskColor - прозрачный цвет
5). AddImages(value:TCustomImageList) - копирование всех изображений из другого ImageList
6). Insert(index:integer;image,mask:TBitmap) - добавить в указанную позицию списка
7). InsertIcon(index:integer;image:TIcon) - добавить *.ico в конкретную позицию
8). ResourceLoad(ResType:TResType;Name:string;MaskColor:TColor):Boolean - загрузка из файла ресурсов с именем name ,В ResType указывается тип ресурса,MaskColor - прозрачный цвет
 |
Ответ отправил: Роман (статус: 5-ый класс)
Время отправки: 11 апреля 2007, 22:05
|
Мини-форум вопроса
Мини-форум пуст.
Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.
|
