TImage - відображення картинок - Програмування від

картинок

Цей компонент служить для розміщення на формі одного з трьох підтримуваних Delphi типів зображень: растрової картинки, піктограми або метафайлу. Кожен із цих типів зображення міститься у центральному властивості компонента - picture. У якості canvas міститься канва, за допомогою якої за необхідності програма може відредагувати растрове зображення (але не піктограму чи метафайл!).

Помістіть на форму панель TPanei, очистіть її властивість caption і помістіть значення alBottom як Alignment - панель займе нижню частину форми.

Розмістіть на панелі кнопку TButton із написом завантажити.

На будь-яке вільне місце форми (над панеллю) помістіть компонент Timage і встановіть Align значення alClient.

На будь-яке місце (Timage, TPanei або навіть TButton) помістіть стандартний діалог TOpenPictureDialog (сторінка Dialogs палітри компонентів) – за його допомогою користувач вашої програми зможете розшукати потрібний файл із зображенням.

програмування

Напишіть такий обробник події onСlick для кнопки Button1:

Позначу, що оператор

масштабує зображення так, щоб воно займало всю робочу область TImage.

За допомогою методів класу TPicture (див. п. 16.5.5), до якого належить властивість picture, програміст може завантажити зображення з файлу або буфера міжпрограмного обміну clipboard та зберегти його у файлі чи буфері.

Для компонента визначено подію onprogress, за допомогою обробника якого програма може отримати додаткову інформацію під час виконання тривалої операції завантаження великого зображення:

typeTProgressStage= (psStarting, psRunning, psEnding) ;

TProgressEvent= procedure(Sender: TObject; Stage: TProgressStage; PercentDone: Byte; RedrawNow: Boolean; const R: TRect; const Msg: String ) of object;