Можно ли использовать иконку как картинку на кнопке TSpeedButton?

Delphi , Компоненты и Классы , Кнопки

Можно ли использовать иконку как картинку на кнопке TSpeedButton?

Code:

uses ShellApi;

         

        procedure TForm1.FormShow(Sender:  TObject);

        var

        Icon:  TIcon;

        begin

        Icon :=  TIcon.Create;

        Icon.Handle := ExtractIcon(0, 'C:\WINDOWS\NOTEPAD.EXE', 1);

        SpeedButton1.Glyph.Width := Icon.Width;

        SpeedButton1.Glyph.Height := Icon.Height;

        SpeedButton1.Glyph.Canvas.Draw(0, 0, Icon);

        Icon.Free;

        end;

Статья Можно ли использовать иконку как картинку на кнопке TSpeedButton? раздела Компоненты и Классы Кнопки может быть полезна для разработчиков на delphi & pascal.

Комментарии и вопросы

Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.

:: Главная :: Кнопки ::

Время компиляции файла: 2024-04-26 19:56:12
2024-04-27 01:57:27/0.0063450336456299/2