Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.05.23;
Скачать: CL | DM;

Вниз

Как рисовать на TIcon   Найти похожие ветки 

 
incm   (2004-03-09 18:11) [0]

Подскажите как без извратов можно рисовать на TIcon, свойства Canvas у него нет.


 
Mihey ©   (2004-03-09 23:23) [1]

Загрузи иконку в TPicture, потом работай с канвой TBitmap.


 
incm   (2004-03-10 12:40) [2]

В ТPicture TIcon u TBitmap - это разные обьекты и они взаимно не конвертируються, покрайней мере TBitmap в TIcon точно.
Если бы все было так просто я и не спрашивал бы.


 
Mihey ©   (2004-03-10 15:17) [3]

Мдя???

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



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

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

Наверх




Память: 0.47 MB
Время: 0.036 c
14-1083303159
blackman
2004-04-30 09:32
2004.05.23
Что с усовершенствованием FAQ ? Усовершенствовали что-ли уже ?


1-1084173767
Master Paleva
2004-05-10 11:22
2004.05.23
Как освободить память?


3-1083090923
Михалычъ
2004-04-27 22:35
2004.05.23
Передвижение по полям


14-1083523175
Verg
2004-05-02 22:39
2004.05.23
Вот так вот! От 17 до 23-х.....


7-1081694079
Evgeniy_K
2004-04-11 18:34
2004.05.23
Путь к Windows