![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
в двух соснах заблудился :-) - это про TIcon [D5, Win95/98]
Nomad.kz © (2002-10-09 09:33:00)Что-то я запутался. Объясните, плз, кому не лень.
Имеем
type
TForm1 = class( TForm )
...
private
ImageList1:TImageList;
icForm:TIcon;
icApplication:TIcon;
...
procedure TForm1.FormCreate(Sender: TObject);
begin
//один вариант
icForm:=TIcon.Create;
ImageList1.GetIcon(1,icForm);
icApplication:=Application.Icon;
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
icForm.Free;
end;
в таком виде все работает, ошибок runtime нет, но получается, что icApplication всего-навсего ссылается на ту же иконку, что и Application.Icon. Как мне создать копию Application.Icon в icApplication? Просто посмотрел методы иконочные, ничего кроме как ч\з буфер обмена не увидел.
Благодарю за внимание.
Skier (2002-10-09 10:48:00) [1]>Nomad.kz
> который бы копировал изображение из одного объекта TIcon
> в другой
Call Assign to copy another icon object. Assign copies the icon image from the Source parameter if it is another TIcon object.
Nomad.kz (2002-10-09 10:34:00) [2]спасибо, но это не важно, мне нужен метод, который бы копировализображение из одного объекта TIcon в другой
Smithson (2002-10-09 10:29:00) [3]Эээээээээээ. По умолчанию иконка формы указывает на иконку приложения, если ее явно не меняли...