|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
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 |