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

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

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 !!!



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

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

Платим за лайки! - Оплата по требованию! 02 Окт 2017 в 21:37 #
Платим за лайки! - Оплата ежедневно!

Наш сервис предоставляет настоящие лайки на фото заказчиков, которые готовы платить за качество.
Именно для этого мы и набираем удалённых сотрудников, которые будут выполнять работу, то есть ставить лайки и получить за это деньги.
Чтобы стать нашим удалённым сотрудником и начать ставить лайки, зарабатывая при этом 45 рублей за 1 поставленный лайк,
Вам достаточно просто зарегистрироваться на нашем сервисе. > oplata-vklike.tk <
Вывод заработанных средств ежедневно в течении нескольких минут.
Rufa 14 Июн 2013 в 00:00 #
А как ico?
Антон 10 Дек 2012 в 00:00 #
да ты джениус писать всё эту ересь кодом, когда можно поставить картинку на кнопку буквально 2мя щелчками:
BitButton -> Properties -> Glyph -> Выбираем картинку в открывшимся браузере
Timur 01 Сен 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 Июн 2011 в 00:00 #
Вообще то можно сделать полегче.
Jpeg по крайней мере входит в библиотеку модулей почти всех версий Дельфи начиная с 7 2002.
Подключаем модуль jpeg он так и называется. В верхней строке модулей(где messages, windows и тд)
И уоля. Мы быз проблем используем JPEG так же как и bmp.
После подключения модуля мы даже его можем создавать динамически типа timage.create для jpeg = tjpegimage.create.

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