Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2005.10.16;
Скачать: [xml.tar.bz2];

Вниз

Изображение иконки программы на кнопке.   Найти похожие ветки 

 
Laymer   (2005-09-26 14:36) [0]

Здрасте!!!
Нашел такой код программы.
procedure TForm1.Button1Click(Sender: TObject);
var
 IconIndex: word;
 h: hIcon;
begin
 IconIndex := 0;
 h := ExtractAssociatedIcon(hInstance,
   "C:\WINDOWS\NOTEPAD.EXE", IconINdex);

 DrawIcon(Form1.Canvas.Handle, 10, 10, h);
end;


На форме все замечательно рисует изображение, а на кнопке TSpeedButton, рисовать нехочет. Помогите плиз.


 
ssk ©   (2005-09-26 14:54) [1]

добавляешь в модуль:

type
 TMySpeedButton = class(TSpeedButton)
   property Canvas;
 end;

 TForm1 = class(TForm)

...


и исправляешь свой код:

DrawIcon(TMySpeedButton(SpeedButton1).Canvas.Handle, 10, 10, h);

у меня заработало


 
ssk ©   (2005-09-26 14:56) [2]

вот только после клика по кнопке тебя ждет небольшой сюрприз :-)


 
ssk ©   (2005-09-26 15:31) [3]

я бы сделал так:


var
 Bitmap: TBitmap;
 IconIndex: word;
 h: hIcon;
begin
 Bitmap := TBitmap.Create;
 Bitmap.Width := 32;
 Bitmap.Height := 32;
 IconIndex := 0;
 h := ExtractAssociatedIcon(hInstance, PAnsiChar(ParamStr(0)), IconIndex);
 DrawIcon(Bitmap.Canvas.Handle, 0, 0, h);
 SpeedButton1.Glyph.Assign(Bitmap);
 Bitmap.Free;
end;



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

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

Наверх




Память: 0.44 MB
Время: 0.042 c
3-1125663128
jeka_t
2005-09-02 16:12
2005.10.16
Как обновить данные в таблице компонента TADOQuery?


9-1118216589
Novouralsk
2005-06-08 11:43
2005.10.16
Плагин для 3ds Max!


1-1127326732
френк
2005-09-21 22:18
2005.10.16
GetProcAddress


3-1125568545
AndrewK
2005-09-01 13:55
2005.10.16
Стандарты оформления


4-1124011803
Denis_Ac
2005-08-14 13:30
2005.10.16
Hook Chain





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский