Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.01 c
3-97125
tanusha
2002-05-06 13:39
2002.05.30
Проблема с фильтрацией


3-97181
kserg@ukr.net
2002-05-08 10:50
2002.05.30
Тип данных decimal - как можно


1-97313
MaximatorVeter
2002-05-19 17:26
2002.05.30
Что значит reintroduce?


1-97291
Коля
2002-05-18 22:32
2002.05.30
Как задать имя компонетна в цикле?


8-97354
Kirill
2001-12-28 14:34
2002.05.30
DirectX и движение