însuflețit componentă

Ar trebui remarcat faptul că din nou componenta Animare este proiectat pentru a reda AVI fișiere care conțin numai o animație. Când încercați să alocați o înregistrare în proprietatea FileName a numelui de fișier care conține sunet, Delphi afișează un mesaj despre imposibilitatea de a deschide fișierul specificat (nu se poate deschide AVI). Pentru a vedea ce este în AVI-fișier: animație, sunet sau animație nevoie doar de la Windows pentru a descoperi dosarul dorit, selectați AVI-fișier și din meniul contextual selectați Properties. Aceasta va deschide fereastra de Proprietăți, în fila Rezumat (Fig. 11.2), care va afișa informații detaliate despre conținutul fișierului selectat.

Următorul program, al cărei text este prezentat în Listarea 11.1 demonstrează utilizarea componentei Animare pentru a afișa în caseta de dialog program de animație. Forma programului este prezentată în Fig. 11.3, iar proprietățile componentei valorile Animatel - în Tabelul 11.2.

Fig. 11.2. Pe afișează informații despre filele Rezumat AVI-fișier

Tabelul 11.2. Proprietatea valorilor componentelor Animate1

Butonul Button1 este utilizat pentru redarea de animație procesul de inițializare și pentru a întrerupe. Procesul de animație de redare continuă declanșează procedura de eveniment Onclick butonul Start, care atribuie o valoare de proprietate activă Adevărat. Aceeași procedură înlocuiește textul de pe butonul Button1 din Start Stop. modul de redare animație este selectat prin intermediul comutatoarelor și Ra-dioButton1 RadioButton2. Procedura de eveniment Onclick pe aceste switch-uri, modificarea valorii proprietăților Activată blocate sau, invers, face ca butoanele de control disponibile: activează redarea animației (Buttoni), du-te la următorul (Button2) și anterioare (butoane) de cadru. În timpul redării continue a procedurii de eveniment de animație OnCkick pe butonul Stop (Buttoni) atribuie o valoare de proprietate activă false și, prin urmare, se oprește animația.

Listarea 11.1. Utilizarea componentei Animare

ShowAVI_ unitate; interfață

Ferestre, Mesaje, SysUtils,

Clase, Grafică, Controale,

Formulare, Dialoguri, StdCtrls, ComCtrls, ExtCtrls;

Animate1: TAnimate; // component Animare

Button1: TButton; // Buton start-stop

Button2: TButton; // cadrul următor

Button3: TButton; // cadrul anterior

Procedura Button1Click (Expeditor: TObject);

Procedura Button2Click (Expeditor: TObject);

Procedura Button3Click (Expeditor: TObject);

Procedura RadioButton1Click (Expeditor: TObject);

Procedura RadioButton2Click (Expeditor: TObject);

Form1: TForm1; // forma

CFrame: integer; // cadru număr afișat

// la cadrul următor

Procedura TForm1.Button2Click (Expeditor: TObject);

dacă CFrame = 1 atunci Button2.Enabled: = True;

dacă CFrame

CFrame: = CFrame + 1;

în cazul în care CFrame = Animatel.FrameCount // cadrul curent - ultimul

// la cadrul anterior

Procedura TForm1.Button3Click (Expeditor: TObject);

dacă CFrame = Animate1.FrameCount

apoi Button2.Enabled: = Adevărat;

dacă CFrame> 1 începe apoi

CFrame: = CFrame - 1;

dacă CFrame = 1 // frame curent - primul

apoi Form1.Button3.Enabled: = False;

Procedura TForml.RadioButtonlClick (Expeditor: TObject);

Buttonl.Enabled: = true; Butonul Start este disponibil //

Procedura TForm1.RadioButton2Click (Expeditor: TObject);

Button2.Enabled: = true; // Butonul cadrul următor este disponibil

Buttons.Enabled: = false; // Butonul cadru precedent disponibil

// pune la dispoziție butonul Start - afișa animație

Procedura TForm1.ButtonlClick (Expeditor: TObject);

în cazul în care Animate1.Active = // Fals în acest moment nu este afișată animația

Animate1.StartFrame: = l; // ieșire de la primul

Animate1.StopFrame: = Animate1.FrameCount; // pe ultimul cadru

// altceva animație afișat

Animate1.Active:=False; // opri afișarea

Animare Componenta permite programatorului să profite de programele de animație standard Windows. Valoarea proprietăților este determinată SommonAVI de animație. Valoarea de proprietate specificat folosind constantelor numite. Tabel. 11.3 prezintă câteva valori ale constantelor, tipul și descrierea procesului de animație, care este folosit pentru a ilustra aceste animații.

Tabelul 11.3. Valoarea de proprietate definește o animație comonAVi

Știri
Cavalerii Teoria eter