Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.12.09;
Скачать: 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 вся ветка

Текущий архив: 2002.12.09;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.026 c
1-28029
Versus31
2002-11-22 12:17
2002.12.09
Как проще всего определить когда мышь входит и выходит с TImage?


1-27994
ЮРИЙ_К
2002-11-29 15:55
2002.12.09
Отловить на Гриде клик правой кнопки мыша ???


3-27815
Netman_2002_inbox
2002-11-20 13:53
2002.12.09
SQL SERVER 2000-Модификация записей


3-27867
kostik78ua
2002-11-21 10:29
2002.12.09
Сортировка


1-28052
greenrul
2002-11-27 20:44
2002.12.09
Список досупных соединений, и connect.