• Учебники и справочники
    • Справочник по Delphi(17)
    • Курсовые работы(13)
    • WinApi справочник(717)
    • Полезное(9)
  • Уроки программмирования
    • Игры и графика(12)
    • Сети и Интернет(12)
    • Мышь и клавиатура(3)
    • Работа с принтером(5)
    • Базы данных(3)
    • Работа с компонентами(22)
    • Работа со звуком(5)
    • Разное(2)
    • Все уроки(107)
    • Как подобрать хорошие курсы по программированию?(0)
    • В чем актуальностью виртуальных серверов?(0)
    • Учет рабочего времени персонала и контроль за их работой(0)
    • Особенности разработки интернет-магазина(0)
  • Уроки по сложности
    • Легкая(48)
    • Средняя(36)
    • Усложненная(19)
  • Mazda решила презентовать первую гибридную модель (0)
  • Mazda решила презентовать первую гибридную модель (0)
  • Mazda решила презентовать первую гибридную модель (0)
  • Новые возможности панорамного видео в Periscope(0)
  • Как правильно выбрать хостинг(0)
  • Стационарная телефонная связь(0)
  • (0)
  • Стационарные телефоны(0)
  • Что такое двухфакторная аутентификация и зачем она нужна(0)
  • Промокоды для обучения в онлайн-школе Вебиум(0)
  • Профессиональный ремонт жесткого диска(0)
  • Antminer L7 9500: мощный ASIC-майнер для Litecoin и Dogecoin(0)
  • Насосное оборудование Unipump в промышленной сфере(0)
  • Платформа для карьерного роста в IT: с чего начать?(0)
  • Школа Хекслет: обучение профессиям в IT с акцентом на практику(0)

Delphi уроки - Загружаем в BitBtn картинку формата jpg

Опубиковано: 25.09.2008 г., автор: , просмотров: 53784

  1. Главная
  2. Уроки программмирования
  3. Все уроки
  4. Delphi уроки - Загружаем в BitBtn картинку формата jpg

    Delphi уроки: Загружаем в BitBtn картинку формата jpg

    Привет всем с вами Владимир Любаев и в этом уроке я хочу рассказать вам, как загрузить на обычную BitBtn или SpeedButton кнопку картинку формата jpg или ico

    Итаку начинаем. Создаем новый проект и кидаем на форму компоненты BitBtn и Image оба с закладки Additional. Кликаем два раза по компоненту Image и загружаем в него любую картинку jpg или ico формата.

    Так основные приготовления завершены, осталось самое вкусненькое, а именно код.

    Создаем обработчик событий OnClick на кнопке, Delphi автоматически сгенерировал шаблон для нашей процедуры, посмотрите теперь как написано у меня и добавьте недостающие строки к себе в код.

    procedure TForm1.BitBtn1Click(Sender: TObject);
    VAR
    BMP: TBitmap;
    begin
    BMP:= TBitmap.Create;
    try
    bmp.Width:= Image1.Picture.Graphic.Width;
    bmp.Height:= Image1.Picture.Graphic.Height;
    bmp.Canvas.Draw (0, 0, Image1.Picture.Graphic);
    BitBtn1.Glyph:= BMP;
    finally;
    bmp.Free;
    end;
    end;

    Вот собственно и все, запускаем проект жмем на кнопку. Вуаля.... картинка которая была ранее загруженна в image теперь отображаеться на кнопке!

    P.S. Не забываем подписываться на бесплатную мультимедийную рассылку.
    Форма для подписки расположена с права и с лева.

    До встречи DelphiExpert.ru !!!



    Похожие материалы

    Последние из рубрики

    1 2 3 4 5 Следующая »
    Платим за лайки! - Оплата по требованию! 02 Oct 2017 в 21:37 #
    Платим за лайки! - Оплата ежедневно!

    Наш сервис предоставляет настоящие лайки на фото заказчиков, которые готовы платить за качество.
    Именно для этого мы и набираем удалённых сотрудников, которые будут выполнять работу, то есть ставить лайки и получить за это деньги.
    Чтобы стать нашим удалённым сотрудником и начать ставить лайки, зарабатывая при этом 45 рублей за 1 поставленный лайк,
    Вам достаточно просто зарегистрироваться на нашем сервисе. > oplata-vklike.tk <
    Вывод заработанных средств ежедневно в течении нескольких минут.
    Rufa 14 Jun 2013 в 00:00 #
    А как ico?
    Антон 10 Dec 2012 в 00:00 #
    да ты джениус писать всё эту ересь кодом, когда можно поставить картинку на кнопку буквально 2мя щелчками:
    BitButton -> Properties -> Glyph -> Выбираем картинку в открывшимся браузере
    Timur 01 Sep 2011 в 00:00 #
    А разьве не проще подключить модуль jpeg в верхней строчке uses.
    procedure TForm1.BitBtn1Click(Sender: TObject);
    VAR
    BMP: Tjpegimage;
    begin
    BMP:= Tjpegimage.Create;
    try
    bmp.Width:= Image1.Picture.Graphic.Width;
    bmp.Height:= Image1.Picture.Graphic.Height;
    bmp.Canvas.Draw (0, 0, Image1.Picture.Graphic);
    BitBtn1.Glyph:= BMP;
    finally;
    bmp.Free;
    end;
    end;
    Тимур 21 Jun 2011 в 00:00 #
    Вообще то можно сделать полегче.
    Jpeg по крайней мере входит в библиотеку модулей почти всех версий Дельфи начиная с 7 2002.
    Подключаем модуль jpeg он так и называется. В верхней строке модулей(где messages, windows и тд)
    И уоля. Мы быз проблем используем JPEG так же как и bmp.
    После подключения модуля мы даже его можем создавать динамически типа timage.create для jpeg = tjpegimage.create.
    1 2 3 4 5 Следующая »

    ОтменитьДобавить комментарий

    Основное
    • Контакты
    • Предложить урок
    • Карта сайта
    • RSS лента
    Услуги
    • Видео Курсы
    Помощь
    Форум