Полезное:
Как сделать разговор полезным и приятным
Как сделать объемную звезду своими руками
Как сделать то, что делать не хочется?
Как сделать погремушку
Как сделать так чтобы женщины сами знакомились с вами
Как сделать идею коммерческой
Как сделать хорошую растяжку ног?
Как сделать наш разум здоровым?
Как сделать, чтобы люди обманывали меньше
Вопрос 4. Как сделать так, чтобы вас уважали и ценили?
Как сделать лучше себе и другим людям
Как сделать свидание интересным?
Категории:
АрхитектураАстрономияБиологияГеографияГеологияИнформатикаИскусствоИсторияКулинарияКультураМаркетингМатематикаМедицинаМенеджментОхрана трудаПравоПроизводствоПсихологияРелигияСоциологияСпортТехникаФизикаФилософияХимияЭкологияЭкономикаЭлектроника
|
Просмотр анимации
программасының формасы Келесі программа Animate компонентінің қолдануына мысал келтірілген: Animate1 компонентінің қасиеттері
unit ShowAVI_; Interface Uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls, ExtCtrls; Type TForm1 = class(TForm) Animate1: TAnimate; // Animate компоненті Button1: TButton; // Пуск-Стоп батырмасы Button2: TButton; // келесі кадр Button3: TButton; // алдыңғы кадр RadioButton1: TRadioButton; // барлық анимацияны қарап шығу RadioButton2: TRadioButton; // әр кадр бойынша қарап шығу procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button3Click(Sender: TObject); procedure RadioButton1Click(Sender: TObject); procedure RadioButton2Click(Sender: TObject); Private { Private declarations } Public { Public declarations) End; var Form1: TForm1; // форма CFrame: integer; implementation {$R *.DFM} procedure TForm1.Button2Click(Sender: TObject); Begin if CFrame = 1 then Button2.Enabled:= True; if CFrame < Animate1.FrameCount then begin CFrame:= CFrame + 1; Animate1.StartFrame:= CFrame; Animate1.StopFrame:= CFrame; Animate1.Active:= True; if CFrame = Animatel.FrameCount then Button2.Enabled:=False; End; End; procedure TForm1.Button3Click(Sender: TObject); Begin if CFrame = Animate1.FrameCount then Button2.Enabled:= True; if CFrame > 1 then begin CFrame:= CFrame — 1; Animate1.StartFrame:= CFrame; Animate1.StopFrame:= CFrame; Animate1.Active:= True; if CFrame = 1 // текущий кадр — первый then Form1.Button3.Enabled:= False; End; End; procedure TForml.RadioButtonlClick(Sender: TObject); Begin Buttonl.Enabled:=True;
Form1.Button3.Enabled:=False; Form1.Button2.Enabled:=False; End; procedure TForm1.RadioButton2Click(Sender:TObject); Begin Button2.Enabled:=True; Buttons.Enabled:=False Buttonl.Enabled:=False; end; procedure TForm1.ButtonlClick(Sender: TObject); Begin if Animate1.Active = False Date: 2015-07-01; view: 407; Нарушение авторских прав |