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

Вниз

значок проги на GroupBox7   Найти похожие ветки 

← →
8787   (2002-05-19 23:14) [0]

Как показать значок проги на 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-19 23:17) [1]

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

---

← →
8787   (2002-05-20 00:05) [2]

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

---

← →
8787   (2002-05-20 07:33) [3]

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

---

← →
8787   (2002-05-20 07:59) [4]

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

---

← →
Song ©   (2002-05-20 08:14) [5]

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

---

← →
8787   (2002-05-20 09:14) [6]

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

---

← →
Song ©   (2002-05-20 10:21) [7]

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

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

---

← →
Song ©   (2002-05-20 10:24) [8]

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

---

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

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

Наверх

Память: 0.48 MB
Время: 0.009 c