| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как рисовать на TIcon [D5, D7, Win2k, WinXP]
incm © (2004-03-09 18:11:00)Подскажите как без извратов можно рисовать на TIcon, свойства Canvas у него нет.
Mihey (2004-03-10 15:17:00) [1]Мдя???
procedure TForm1.Button1Click(Sender: TObject);
var
TheIcon : TIcon;
TheBitmap : TBitmap;
begin
TheIcon := TIcon.Create;
TheIcon.LoadFromFile('C:\1.ICO');
TheBitmap := TBitmap.Create;
TheBitmap.Height := TheIcon.Height;
TheBitmap.Width := TheIcon.Width;
TheBitmap.Canvas.Draw(0, 0, TheIcon);
Form1.Canvas.Draw(10, 10, TheBitmap);
// Работать можно тут с TheBitmap
TheBitmap.Free;
TheIcon.Free;
end;
Если надо обратно будет, то сюды:
http://community.borland.com/article/0,1410,17748,00.html
incm (2004-03-10 12:40:00) [2]В ТPicture TIcon u TBitmap - это разные обьекты и они взаимно не конвертируються, покрайней мере TBitmap в TIcon точно.
Если бы все было так просто я и не спрашивал бы.
Mihey (2004-03-09 23:23:00) [3]Загрузи иконку в TPicture, потом работай с канвой TBitmap.
| |
