Скачать: CL | DM;

Каким образом можно преобразовать данные с TIcon в TBitmap ?   Найти похожие ветки 

← →
Soft ©   (2002-08-19 21:45) [0]

Привет всем, кто это читает.

Вот собственно вопрос дан в сабже. Как это это сделать без особых проблемм? Скорее всего это можно сделать в одну строчку.

Заранее спасибо, безглючного кода вам и всего-всего...

---

← →
Денис М Радченко   (2002-08-20 17:23) [1]

>Скорее всего это можно сделать в одну строчку
Угадал :) Bitmap.Assign(Icon);

---

← →
Soft ©   (2002-08-20 19:10) [2]

Не подходит. Выводит сообщение Cannot Assign TIcon to a TBitmap.

А нужно это мне для добавления пиктограммы в меню из иконки формы, с которой я добавляю итем в меню. Там разные типы; у формы TIcon у меню TBitmap

---

← →
Ketmar ©   (2002-08-21 09:23) [3]

все просто. вот кусочек вкусного кода :-), который конвертирует иконку в битмап. исходя из него, Я полагаю, вы сможете написать все, что вам надо. не знаю, может есть способ и попроще, однако Я когда-то нарыл этот, и вполне успешно его использовал...


program I2B;

uses
SysUtils, Classes, Graphics;

var
Pic: TPicture;
Bmp: TBitmap;

begin
if (ParamCount < 1) then exit;
Pic := TPicture.Create;
Pic.LoadFromFile(ParamStr(1));

Bmp := TBitmap.Create;
Bmp.Width := Pic.Width;
Bmp.Height := Pic.Height;
Bmp.PixelFormat := pf24bit;
Bmp.Canvas.Draw(0, 0, Pic.Graphic);

Pic.Free;

Bmp.SaveToFile(ChangeFileExt(ParamStr(1), ".bmp"));
Bmp.Free;
end.


Satanas Nobiscum! 21-Aug-XXXVII A.S.

---

← →
Soft ©   (2002-08-22 13:22) [4]

Спасибо.
Picture:=TPicture.Create;
Picture.Assign(icon);

Menuitem.Bitmap.Width:=Picture.Graphic.Width;
Menuitem.Bitmap.Height:=Picture.Graphic.Height;
Menuitem.Bitmap.Canvas.Draw(0,0,Picture.Graphic);

Я предпочитаю обычную фентези-игру за компьютером

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.019 c