î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