создание иконки

← →
apic © (2007-08-13 07:54) [0]

Хочу нарисовать прямоугольник определенного цвета и сохранить ввиде иконки или использовать вместо иконки формы. Пишу:
ColorIcon:=TPicture.Create;
ColorIcon.Bitmap.Canvas.Pen.Color:=clBlack; ColorIcon.Bitmap.Canvas.Brush.Color:=clRed;
ColorIcon.Bitmap.Canvas.Rectangle(0,0,15,15);
//не работает
Form1.Icon.Handle:=ColorIcon.Icon.Handle;
ColorIcon.Icon.SaveToFile("c:\1.ico");
...
Нито ни другое не работает. Как надо правильно?

← →
Ega23 © (2007-08-13 09:51) [1]

Что такое TPicture?

> apic © (13.08.07 07:54)

> Нито ни другое не работает. Как надо правильно?

http://groups.google.com/group/fido7.ru.delphi/msg/fbedbdcd055e06f7?dmode=source&output=gplain

--
Regards, LVT.

создание иконки Найти похожие ветки