Форум: "Основная";
Текущий архив: 2002.05.30;
Скачать: [xml.tar.bz2];
Вниззначок проги на 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;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.005 c