компонент живата

Отново трябва да се отбележи, че компонентът вдъхновявам е предназначен за възпроизвеждане на AVI файлове, чрез които само съдържат анимация. Когато се опитате да зададете запис в FileName собственост на името на файла, който съдържа звук, Delphi показва съобщение за невъзможността за отваряне на даден файл (не може да се отвори AVI). За да видите това, което е в AVI-файл: анимация, звук или анимация само от Windows трябва да разкрие желаната папка, изберете AVI файл и от контекстното меню изберете Properties. Това ще отвори прозореца Properties, в раздела Резюме (фиг. 11.2), който ще покаже подробна информация за съдържанието на избрания файл.

Следната програма, текстът на която е показана на Обява 11.1 демонстрира използването на вдъхновявам компонент да се показва в диалоговия прозорец анимационна програма. Форма на програмата е показано на фиг. 11.3, и съставни свойства стойности Animatel - в Таблица 11.2.

Фиг. 11.2. На информацията в раздела Резюме на дисплеи за AVI файл

Таблица 11.2. стойността на имотите Animate1 компонент

бутон Button1 се използва за процеса на инициализация анимация възпроизвеждане и за пауза. Процесът на непрекъснато възпроизвеждане на анимация задейства процедурата за събитие OnClick на бутона Start, която определя стойността на True Active собственост. Същата процедура заменя текста, върху бутон Button1 от самото начало, за да спре. режим на възпроизвеждане анимация е избран с помощта на стрелки и Ra-dioButton1 RadioButton2. процедура събитие OnClick на следните ключове, промяна на стойността на имота с Позволено е блокиран или, обратно, стават достъпни бутони за управление: активиращи анимация възпроизвеждане (Buttoni), преминете към следващата (BUTTON2) и предишните (бутони) рамка. По време на продължително възпроизвеждане на процедура анимация събитие OnCkick върху бутона Stop (Buttoni) присвоява стойност False Active собственост и по този начин спира анимацията.

Обявата 11.1. Използването Анимация компонент

единица ShowAVI_; интерфейс

Windows, Съобщения, SysUtils,

Класове, графика, контрол,

Форми, диалогови прозорци, StdCtrls, ComCtrls, ExtCtrls;

Animate1: TAnimate; // Анимация компонент

Button1: TButton; // бутон Start-Stop

BUTTON2: TButton; // следващия кадър

Button3: TButton; // предишния кадър

процедура Button1Click (Sender: TObject);

процедура Button2Click (Sender: TObject);

процедура Button3Click (Sender: TObject);

процедура RadioButton1Click (Sender: TObject);

процедура RadioButton2Click (Sender: TObject);

Form1: TForm1; // форма

CFrame: цяло число; // брой показва кадър

// на следващия кадър

процедура TForm1.Button2Click (Sender: TObject);

ако CFrame = 1 тогава Button2.Enabled: = True;

ако CFrame

CFrame: = CFrame + 1;

ако CFrame = Animatel.FrameCount // В кадър - последният

// към предишния кадър

процедура TForm1.Button3Click (Sender: TObject);

ако CFrame = Animate1.FrameCount

след Button2.Enabled: = True;

ако CFrame> 1 след това да започне

CFrame: = CFrame - 1;

ако CFrame = 1 // В кадър - първият

след Form1.Button3.Enabled: = False;

процедура TForml.RadioButtonlClick (Sender: TObject);

Buttonl.Enabled: = True; // наличен бутон Старт

процедура TForm1.RadioButton2Click (Sender: TObject);

Button2.Enabled: = True; // бутон Следващият кадър е на разположение

Buttons.Enabled: = False; // бутон Предишна достъпно Frame

// предоставя бутона Start - показване на анимацията

процедура TForm1.ButtonlClick (Sender: TObject);

ако Animate1.Active = False // в момента не се показва анимацията

Animate1.StartFrame: = L; // изход от първия

Animate1.StopFrame: = Animate1.FrameCount; // в последния кадър

останало // анимация показва

Animate1.Active:=False; // спрем да показваме

Анимация Компонент позволява на програмиста да се възползват от програмите на стандартни анимации Windows. стойност Тип на имота е решена анимация SommonAVI. Стойността на имота е посочено с помощта на именувани константи. Таблица. 11.3 показва някои стойности на константите, вида и описанието на процеса на анимация, която се използва, за да илюстрира тези анимация.

Таблица 11.3. стойност на имота се определя анимация comonAVi

Новини
Knights етер теория