[Информация] Загружаем в BitBtn картинку формата jpg

[SНIFТ]

как загрузить на обычную 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 теперь отображается на кнопке!
.
Delphi

[RifmoGlas]

а как чтобы при открытии программы кнопка была с картинкой? oncreate добавить чтоли?

[metraz]

либо заранее загрузить, либо oncreate

[SkySin017]

Зачем столько сложностей? -____- Ведь можно скачать и поставить специальный плагин для этого всего!

[Dinmaite]

Цитата: Сообщение от SkySin017 Зачем столько сложностей? -____- Ведь можно скачать и поставить специальный плагин для этого всего!

Сэр, вы издеваетесь?
Сложности? 10 строчек это сложности?
Конечно, лучше скачать плагин размерами с самолет. [Ссылки могут видеть только зарегистрированные пользователи. ]