Форум: "Основная";
Текущий архив: 2002.10.17;
Скачать: [xml.tar.bz2];

Вниз

в двух соснах заблудился :-) - это про TIcon   Найти похожие ветки 

← →
Nomad.kz   (2002-10-09 09:33) [0]

Что-то я запутался. Объясните, плз, кому не лень.

Имеем

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? Просто посмотрел методы иконочные, ничего кроме как ч\з буфер обмена не увидел.

Благодарю за внимание.

---

← →
Smithson   (2002-10-09 10:29) [1]

Эээээээээээ. По умолчанию иконка формы указывает на иконку приложения, если ее явно не меняли...

---

← →
Nomad.kz   (2002-10-09 10:34) [2]

спасибо, но это не важно, мне нужен метод, который бы копировал изображение из одного объекта TIcon в другой

---

← →
Skier   (2002-10-09 10:48) [3]

>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.

---

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

Форум: "Основная";
Текущий архив: 2002.10.17;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.01 c