TImage - показване на снимки - Програмиране от

програмиране


Този компонент се използва за поставяне във формуляра на един от трите типа изображения, поддържани от Delphi: растерна карта, пиктограма или метафайл. Всеки от тези типове изображения се съдържа в централното свойство на компонента, картина. Свойството canvas съдържа платно, което може да се използва от програмата за редактиране на растерното изображение (но не икона или метафайл!).

Поставете панел TPanei върху формуляра, изчистете свойството му надпис и поставете стойността alBottom в свойството Alignment - панелът ще заеме дъното на формуляра.

Поставете бутон TButton с надпис Load върху панела.

Поставете компонента Timage върху всяко свободно пространство на формуляра (над панела) и задайте свойството му Align на alClient.

На всяко място (Timage, TPanei или дори TButton) поставете стандартния диалогов прозорец TOpenPictureDialog (страница за диалогови прозорци на палитрата на компонентите) - с негова помощ потребителят на вашата програма може да намери необходимия файл с изображение.

показване

Напишете манипулатор на събития onClick за Button1:


Имайте предвид, че операторът

мащабира изображението, така че да заема цялата работна област на TImage.


Използвайки методите на класа TPicture (вижте раздел 16.5.5), към който принадлежи свойството picture, програмистът може да зареди изображение от файл или клипборд междупрограмен клипборд и да го запише във файл или буфер.


Събитието onprogress е дефинирано за компонента, с помощта на който програмата може да получи допълнителна информация по време на изпълнението на отнемаща време операция по зареждане на голямо изображение:

Тип TProgressStage = (psStarting, psRunning, psEnding);

TProgressEvent = процедура (Изпращач: TObject; Етап: TProgressStage; PercentDone: Байт; RedrawNow: Boolean; const R: TRect; const Msg: String) на обект;