|
|
|
Регистрация Восстановить пароль |
|||||||
| Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
||||
 |
|
|
Опции темы | Поиск в этой теме |
31.01.2008, 16:42
|
#1 |
|
Форумчанин
Регистрация: 15.01.2008
Сообщений: 117
|
работа с cardinal
Подскажите как перевести cardinal в icon или tbitmap?
|
|
|
|
31.01.2008, 16:52
|
#2 |
|
Android Developer
Старожил Подтвердите свой е-майл
Регистрация: 19.02.2007
Сообщений: 3,708
|
Первым делом разберитесь с типами и классами существующими в object pascal ! Cardinal = 4 байта, Icon = если это HICON то это тоже самое что и Cardinal, если вы имели ввиду TIcon = это класс для работы с файлами *.ico, TBitmap = класс для работы с файлами *.bmp.
|
|
|
|
|
31.01.2008, 17:01
|
#3 |
|
Форумчанин
Регистрация: 15.01.2008
Сообщений: 117
|
Мне нужно Cardinal перевести в TBitmap или в TIcon
|
|
|
|
|
31.01.2008, 17:03
|
#4 | |
|
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Цитата:
Хотя если не хочеш отвечать подробнее то просто попытайся провести приведение типов
I'm learning to live...
|
|
|
|
|
|
31.01.2008, 17:14
|
#5 |
|
Android Developer
Старожил Подтвердите свой е-майл
Регистрация: 19.02.2007
Сообщений: 3,708
|
Я с вас в шоке Виталий.
 Интересно как будет выглядеть перевод типов из Cardinal в классы...Конечно если Cardinal хранить числовое значение ( позицию в куче ) на класс TBitmap ( или TIcon ) то чтобы обратиться по нему надо сделать типа TBitmap(Pointer(Cardinal)).XXX Последний раз редактировалось BOBAH13; 31.01.2008 в 17:16. |
|
|
|
|
31.01.2008, 17:33
|
#6 |
|
Форумчанин
Регистрация: 15.01.2008
Сообщений: 117
|
Я с exe-шника получил иконку, но она в переменной Cardinal, мне ее надо перевести в Tbitmap или Ticon, так как я не могу ее использовать.
|
|
|
|
|
31.01.2008, 17:37
|
#7 | |
|
Новичок
Джуниор
Регистрация: 18.01.2008
Сообщений: 1,720
|
Цитата:
|
|
|
|
|
|
31.01.2008, 17:43
|
#8 |
|
Форумчанин
Регистрация: 15.01.2008
Сообщений: 117
|
var hm:hmodule begin hm:=loadlibraryex(pchar(путь к exe-шнику), 0, load_library_as_datafile) result:=loadimage(hm, mainicon, image_icon, 32, 32, lr_defaultcolor)
|
|
|
|
|
31.01.2008, 17:45
|
#9 |
|
Android Developer
Старожил Подтвердите свой е-майл
Регистрация: 19.02.2007
Сообщений: 3,708
|
TIcon.Handle = Ваш хендл иконки если это HICON
TBitmap.Handle = Ваш хендл иконки если это HBITMAP Попробуйте так |
|
|
|
|
Похожие темы
|
||||
| Тема | Автор | Раздел | Ответов | Последнее сообщение |
| [Error] MainUnit.pas(100): Incompatible types: 'Cardinal' and 'TCaption' | ben95 | Общие вопросы Delphi | 2 | 02.02.2008 14:35 |
