| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

значок проги на GroupBox7 [D3, Win95/98]

8787 ©   (2002-05-19 23:14:00) 

Как показать значок проги на GroupBox7, который расположен на TabSheet6( PageControl1)?

procedure TForm1.Button1Click(Sender: TObject);
var
Icon : hIcon;
IconIndex : word;
begin
IconIndex := 1;
Icon := ExtractAssociatedIcon(HInstance, PChar(Application.ExeName), IconIndex);

//Если так, то значок отображается на форме:
DrawIcon(Canvas.Handle, 10, 10, Icon);
end;

---

Song   (2002-05-20 10:24:00) [1]

DC забыл освободить.. ты не забудь!

---

Song   (2002-05-20 10:21:00) [2]

А на практике :) это делается так:

procedure TForm1.Button1Click(Sender: TObject);
Var IconIndex : word;
begin
IconIndex := 1;
DrawIcon(GetDC(RadioGroup1.Handle),10,10,ExtractAssociatedIcon(HInstance, PChar(Application.ExeName),IconIndex));
end;

---

8787   (2002-05-20 09:14:00) [3]

Теория хорошо.
А как это на практике?

---

Song   (2002-05-20 08:14:00) [4]

Да по идее можно, если канваса нет, получи DC и рисуй на нём.

---

8787   (2002-05-20 07:59:00) [5]

Слабо, Мастера?
Ну, не спиться мне, все еще не спиться!

---

8787   (2002-05-20 07:33:00) [6]

Слабо, Мастера?
Ну, не спиться мне, не спиться!

---

8787   (2002-05-20 00:05:00) [7]

Правильно.
А можно эту иконку вывести не на форме, а на GroupBox7, который расположен на TabSheet6 (PageControl1), и если да, то как?

---

Song   (2002-05-19 23:17:00) [8]

Вышеприведённый пример показывает иконку приложения... при чём тут TComboBox?

---

Наверх