Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2003.04.10;
Скачать: [xml.tar.bz2];

Вниз

Привет всем!!! Из bmp сделать ico   Найти похожие ветки 

 
multik   (2003-03-29 21:52) [0]

Есть image, в нём загружен рисунок формата bmp. Требуется сохранить этот рисунок в формат ico. Любым способом, лишь бы работало. Заранее спасибо.


 
Zazoo   (2003-03-29 22:17) [1]

Добавить TBitmap в ImageList и через GetIcon получить TIcon.
Лучшего способа я не нашел :(


 
multik   (2003-03-29 23:42) [2]

Да, но после этого качество серьёзно ухудшается, поэтому этот способ не попрёт.


 
sniknik   (2003-03-30 01:54) [3]

Можеш переделать, здесь рисунок загружается из ресурса вместе с маской. Тебе нужно получить маску рисунка (двухцветная белый там где не будет изменений - фон, и черный там где сам рисунок)
(но может есть и другие способы, в кулибе чтото подобное видел посмотри)

function CreateIcon(sMask, sIcon: string): TIcon;
var
AndMask : TBitmap;
XOrMask : TBitmap;
IconInfo : TIconInfo;
Icon : TIcon;
begin
AndMask:= TBitmap.Create;
AndMask.Handle:= LoadBitmap(hInstance, PChar(sMask));
XOrMask:= TBitmap.Create;
XOrMask.Handle:= LoadBitmap(hInstance, PChar(sIcon));
Icon:= TIcon.Create;
IconInfo.fIcon:= true;
IconInfo.xHotspot:= 0;
IconInfo.yHotspot:= 0;
IconInfo.hbmMask:= AndMask.Handle;
IconInfo.hbmColor:= XOrMask.Handle;
Icon.Handle:= CreateIconIndirect(IconInfo);
AndMask.Free;
XOrMask.Free;
result:= Icon;
end;



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2003.04.10;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.007 c
1-30383
Sirus
2003-03-29 17:15
2003.04.10
Можно ли в рантайме создать переменную типа Array


4-30654
Manix
2003-02-11 17:27
2003.04.10
Как программно сделать нажатие кнопки мышы ?


1-30429
[BAD]Angel
2003-03-28 19:24
2003.04.10
Как определить полный размер папки?


1-30405
Друзья - товарищи
2003-03-30 09:35
2003.04.10
Delphi и MS SQL Server


14-30523
Александр Г.
2003-03-21 09:07
2003.04.10
Хук на нажатие кнопок в НТ?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский