Delphi уроки - завантажуємо в bitbtn картинку формату jpg
тільки корисні матеріали
Головний акціонер Alibaba став найбагатшою людиною в Китаї
статті
Microsoft почала закрите тестування Office 16
статті
Фахівці знайшли діри в безпеці Windows 8.1
статті
У московському метро з'явиться єдина мобільна мережа
статті
eBay буде приймати Bitcoin
статті
Vivitek представила «шкільний» проектор D755WTIR
статті
У Твіттері з'явилася кнопка «Купити»
статті
«Яндекс.Новини» тепер можна переглядати і на iPhone
статті
Привіт всім з вами Сміла Люба і в цьому уроці я хочу розповісти вам, як завантажити на звичайну 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. Не забуваємо підписуватися на безкоштовну мультимедійну розсилку.
Форма для підписки розташована з права і з ліва.
До зустрічі Delphi Expert.ru.