Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / ImageList как вытащить картинку? / 4 сообщений из 4, страница 1 из 1
30.04.2008, 04:47
    #35287437
Gendrive
Gendrive
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ImageList как вытащить картинку?
Достаточно удобно хранить иконки и мелкие картинке в Imagelist. При работе с контролами, поддерживающими этот контейнер, проблем нет. А вот как "вытащить" картинку из него и поместить ее, например, на кнопку, или просто на форму? Есть способы?
VFP9
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.04.2008, 06:58
    #35287466
Старый фоксист
Старый фоксист
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ImageList как вытащить картинку?
GendriveДостаточно удобно хранить иконки и мелкие картинке в Imagelist. При работе с контролами, поддерживающими этот контейнер, проблем нет. А вот как "вытащить" картинку из него и поместить ее, например, на кнопку, или просто на форму? Есть способы?
VFP9
Разве что использовать WinAPI, чтобы по хэндлу картинки сохранить её на диск и потом уже использовать привычным для фокса образом. Что-то другое в голову не приходит.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.04.2008, 08:20
    #35287518
Aleksey-K
Aleksey-K
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ImageList как вытащить картинку?
GendriveДостаточно удобно хранить иконки и мелкие картинке в Imagelist. При работе с контролами, поддерживающими этот контейнер, проблем нет. А вот как "вытащить" картинку из него и поместить ее, например, на кнопку, или просто на форму? Есть способы?
VFP9
Пусть у вас на форме есть объект Image1 (класс Image), Command1 (класс Commandbutton) и источник картинок ImageList
Тогда для отображении картинки с индексом 1 из ImageList на объекте Image надо:
Код: plaintext
THISFORM.Image1.PictureVal = THISFORM.ImageList.ListImages( 1 ).Picture
А для вывода этой картинки в свойство Picture кнопки Command1:
Код: plaintext
1.
2.
SAVEPICTURE(THISFORM.ImageList.ListImages( 1 ).Picture, 'c:\temp\tempimage.bmp')
THISFORM.Command1.Picture =  'c:\temp\tempimage.bmp'
DELETE FILE 'c:\temp\tempimage.bmp'
С уважением, Алексей
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
01.05.2008, 16:55
    #35290016
Gendrive
Gendrive
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ImageList как вытащить картинку?
Aleksey-K
Пусть у вас на форме есть объект Image1 (класс Image), Command1 (класс Commandbutton) и источник картинок ImageList
Тогда для отображении картинки с индексом 1 из ImageList на объекте Image надо:
Код: plaintext
THISFORM.Image1.PictureVal = THISFORM.ImageList.ListImages( 1 ).Picture
А для вывода этой картинки в свойство Picture кнопки Command1:
Код: plaintext
1.
2.
SAVEPICTURE(THISFORM.ImageList.ListImages( 1 ).Picture, 'c:\temp\tempimage.bmp')
THISFORM.Command1.Picture =  'c:\temp\tempimage.bmp'
DELETE FILE 'c:\temp\tempimage.bmp'
С уважением, Алексей

Да, спасибо. Я уже именно так и сделал. Думалось что есть все же более "правильный" способ.
Кстати, а если картинку положить на кнопкуа потом удалить, то она будет нормально отображаться?
Наверное напишу класс, который будет автоматически по индексу выдергивать картинку из имиджлиста фрмировать файл и возвращать ссылку на него.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / ImageList как вытащить картинку? / 4 сообщений из 4, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 418ms
Закрыть
start [/forum/topic.php?fid=41&mobile=1&tid=1587832]:
 0ms
get settings:
 8ms
get forum list:
 19ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 83ms
get topic data:
 13ms
get forum data:
 3ms
get page messages:
 50ms
get tp. blocked users:
 2ms
others: 232ms
total:  418ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]