Главная страница
    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.035 c
2-1127217436
ABS
2005-09-20 15:57
2005.10.16
кодировка


5-1100270416
SergV
2004-11-12 17:40
2005.10.16
Свойство Transperent в компоненте Panel.


14-1127466173
stone
2005-09-23 13:02
2005.10.16
Трудности перевода или давайте говорить по-русски


6-1119475580
pool
2005-06-23 01:26
2005.10.16
WebServer


1-1127307607
DelphiLexx
2005-09-21 17:00
2005.10.16
Избежать мерцания при перемещении





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский