|
Привет всем с вами Владимир Любаев и в этом уроке я хочу
рассказать вам, как загрузить на обычную 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 теперь отображаеться на кнопке!
| 
