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

Вниз

Каким образом можно преобразовать данные с 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 вся ветка

Форум: "Media";
Текущий архив: 2002.12.09;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.008 c
1-27930
jackie
2002-11-27 08:28
2002.12.09
динамическая память


7-28302
@Ujin
2002-10-06 15:41
2002.12.09
Как просто и быстро зарегистрировать расширение?


1-27943
Yuraz
2002-11-29 09:54
2002.12.09
Не получается вставить в поток небольшую (длительную) процедуру.


14-28269
wandp
2002-11-19 04:44
2002.12.09
HELP с Картой


1-27955
Alexander Vasjuk
2002-11-29 12:38
2002.12.09
Отображение связанных данных





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский