Как извлечь иконку из ListImage

[dima81]

Есть ListImage, в котором хранятся иконки. Как можно из ListImage извлечь эти иконки и сохранить их на компьютере без потери цвета? Заранее спасибо. Если можно (если не затруднит), написать код.

[Viper]

А интересно как енти иконки попадают в ListImage? ИМХО, аффтар хочет странного

[$Yastrebov$]

А интересно как енти иконки попадают в ListImage? ИМХО, аффтар хочет странного

Ничего странного тут нет. Если поместить иконку в ListImage, а потом удалить ее с ПК (случайно предположим), то единственный экземпляр останется только в ListImage. Не удивительно, если нужную не только для одного проекта иконку захочется восстановить.

[jangle]

Можно поступить проще, просто скопировать ListImage с нужными иконками через буфер обмена и вставить в свой проект

[dima81]

$Yastrebov$ прав. Просто у меня на диске С были все иконки. Я создал 2 проекта и поместил иконки в ImageList в двух проектах. Потом пришлось форматнуть диск С, и иконки удалились. Они остались только в ImageList-ах.
Сейчас я создаю проект, в котором нужны иконки, которые находятся в разных ImageList-ах. Тогда такой вопрос:

можно ли иконки из двух ImageList-ов как то поместить в один ImageList или придется создавать для второго ImageList свой ToolBar?

[$Yastrebov$]

Можно объединить картинки из двух ImageList-ов в третий, а потом привязать его к нужному ToolBar-у.

Код: Выделить всё

ImageList3.ListImages.Add 1, , ImageList1.ListImages(1).Picture
ImageList3.ListImages.Add 2, , ImageList1.ListImages(2).Picture
ImageList3.ListImages.Add 3, , ImageList2.ListImages(1).Picture
ImageList3.ListImages.Add 4, , ImageList2.ListImages(2).Picture
Toolbar1.ImageList = Me.ImageList3
Toolbar1.Buttons(1).Image = 1

[$Yastrebov$]

Хотя, достаточно даже двух Просто из одного, описанным выше способом, переместить иконки во второй, и привязать его к тулбару

[dima81]

$Yastrebov$, спасибо. Помогло!!!!!!