Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

bmp2ico [D6, D7, Win95/98, WinXP]

XeON © (2003-10-24 12:54:00)

Дарова мастера! Подскажите пожалуйста, как бы мне сделать .ico из .bmp? Только пожалуйста реальный пример, а не статью... Я статей штук 5 прочёл уже! Токо там нихрена не работает! Получается какая-то красная, круглая иконка. Заранее благодарен.

Mihey (2003-10-26 22:46:00) [1]

function BitmapToIcon(Bitmap: TBitmap): TIcon;
var
IconSizeX, IconSizeY : integer;
IconInfo: TIconInfo;
IconBitmap, MaskBitmap: TBitmap;
x, y: Integer;
TransparentColor: TColor;
begin
IconSizeX := GetSystemMetrics(SM_CXICON);
IconSizeY := GetSystemMetrics(SM_CYICON);
IconBitmap:= TBitmap.Create;
IconBitmap.Width:= IconSizeX;
IconBitmap.Height:= IconSizeY;
IconBitmap.Canvas.StretchDraw(Rect(0, 0, IconSizeX, IconSizeY), Bitmap);
IconBitmap.TransparentColor:= Bitmap.TransparentColor;
TransparentColor:= IconBitmap.TransparentColor and $FFFFFF;
MaskBitmap:= TBitmap.Create;
MaskBitmap.Assign(IconBitmap);
for y:= 0 to IconSizeY - 1 do
for x:= 0 to IconSizeX - 1 do
if IconBitmap.Canvas.Pixels[x, y] = TransparentColor then
IconBitmap.Canvas.Pixels[x, y]:= clBlack;
IconInfo.fIcon:= True;
IconInfo.hbmMask:= MaskBitmap.MaskHandle;
IconInfo.hbmColor:= IconBitmap.Handle;
Result:= TIcon.Create;
Result.Handle:= CreateIconIndirect(IconInfo);
MaskBitmap.Free;
IconBitmap.Free;
end;

Хотя мой способ лучше и работает, надо только не лениться.

Mihey (2003-10-26 22:42:00) [2]

> Только если указать расширение .ico, то это уже будет не икнока...

Ага, это будет DOC. Ты открыл недокументированные возможности.

XeON (2003-10-26 07:16:00) [3]

А может ещё кто подскажет как сделать 16и бутную иконку?

XeON (2003-10-25 18:38:00) [4]

Только если указать расширение .ico, то это уже будет не икнока...

Mihey (2003-10-24 20:17:00) [5]

Точно работающий способ - загрузить в TPicture и сохранить при помощи TPicture.Graphic.SaveToFile, указав ".ico" в расширении.

SEvgeniy (2003-10-24 19:01:00) [6]

запихиваеш в ImageList свои bmp а потом делаеш:

var
ic:ticon;
begin
ic:=TIcon.Create;
ic.Width:=your_icon_Width;
ic.Height:=your_icon_Height;
ImageList.GetIcon(index_of_your_icon,ic);
ic.SaveToFile("icon_name.ico");
ic.Free;
end;
но с цветами, по моему, все равно проблемы будут...

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »