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

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

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

TIcon => TBitmap [D5, Win2k]

Yr2 © (2002-05-28 12:04:00)
Подскажите пожалуйста, как легко преобразовать изображение, хранимое в объекте TIcon в изображение, хранимое в TBitmap; желательно без записи промежуточного файла на диск.

Yr2 (2002-05-28 14:46:00) [1]
>McSimm
да, так тоже работает, но хуже (не все прорисовывает).
я попробовал добавить к этому коду еще строчку
Bitmap.MaskHandle:=IconInfo.hbmMask;
- не помогло.

Yr2 (2002-05-28 14:19:00) [2]
Спасибо,MBo!
вот, елки-палки, потерял довольно много времени, а вся проблема (ошибка) была в том, что нужно было обязательно выставить width:=32; и height:=32. по-умолчанию там нули. а я думал, что оно "по-умному" размеры иконки передает...
спасибо.

McSimm (2002-05-28 13:50:00) [3]
А можно так:

var IconInfo: TIconInfo;
begin
GetIconInfo(Icon.Handle, IconInfo);
Bitmap.Handle := IconInfo.hbmColor

MBo (2002-05-28 13:39:00) [4]
procedure TForm1.Button1Click(Sender: TObject);
var
h:hicon;
b:tbitmap;
begin
h:=extracticon(hInstance,PChar(Application.Exename),0);
b:=tbitmap.create;
b.width:=32;
b.height:=32;
DrawIcon(B.canvas.handle,0,0,h);
image1.picture.Assign(b);
b.free;
end;

Yr2 (2002-05-28 13:31:00) [5]
>MBo
да, обратил. для того чтобы проконтролировать (увидеть на экране) положил на форму Image1: TImage;
затем делаю следующее:
DrawIcon(Image1.Picture.Bitmap.Canvas.Handle, 0,0,Icon.Handle);
где Icon: TIcon, в котором уже лежит картинка.
но... ничего не вижу... в чем ошибка?

MBo (2002-05-28 13:19:00) [6]
ты обратил внимание, КУДА рисуется иконка?

Yr2 (2002-05-28 13:14:00) [7]
>MBo
Я извиняюсь, но мне не нужно это рисовать на экране. Оба компонента (TIcon и TBitmap )созданы динамически в рунтайме и невидимы на экране. Но мне нужно "перегнать" изображение из одного компонента в другой (для того, чтобы потом продолжить определенную работу с TBitmap).

MBo (2002-05-28 12:38:00) [8]
DrawIcon(Bitmap.Canvas.Handle, 0, 0, hIcon);

Yr2 (2002-05-28 12:20:00) [9]
Изображение в TIcon и в TBitmap хранится в разных форматах. Поэтому нельзя "просто скопировать" его из одного в другое, даже используя TMemoryStream. Речь идет о ПРЕОБРАЗОВАНИИ данных из одного в другое.

Kozhanov (2002-05-28 12:07:00) [10]
>Yr2
TMemoryStream ?

Наверх

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

TIcon =&gt; TBitmap [D5, Win2k]

TIcon => TBitmap [D5, Win2k]