Дипломдық жұмыс Тақырыбы: " Delphi программалау ортасында графикалық компоненттерді пайдалану әдістемесі "



бет4/10
Дата31.01.2018
өлшемі1,06 Mb.
түріДиплом
1   2   3   4   5   6   7   8   9   10

Сводка парағында AVI-файлы

туралы ақпарат шығады





Просмотр анимации

программасының формасы




Келесі программа Animate компонентінің қолдануына мысал келтірілген:

Animate1 компонентінің қасиеттері






Қасиеттер

Мәні







FileName

bart.avi







Active

False







Transparent

True




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

then begin

Animate1.StartFrame:=l;


Animate1.StopFrame:=Animate1.FrameCount;

Animate1.Active:=True;

Button1.caption:='Стоп';

RadioButton2.Enabled:=False;



end

else

begin

Animate1.Active:=False;

Button1.caption:='Пуск';

RadioButton2.Enabled:=True;



end;

end;
end.

comonAVi қасиетінің мәндері анимацияны анықтайды






Мән

Анимация

Процесс







АviCopyFiles



Файлды көшіру







AviDeleteFile



Файлды алып тастау







aviRecycleFile



Файлды корзинаға алып тастау





Свойства диалогтық терезес
Movie терезесі
Фигураның және форманың түсін өзгерткеннен кейінгі форма терезесі

Каталог: wp-content -> uploads -> 2013
2013 -> Ф 7 –007-02 Қазақстан Республикасы Білім және ғылым министрлігі
2013 -> Мазмұны Кіріспе–––––––––––––––––––––––– 3-9
2013 -> Мазмұны Кіріспе Тарау -I. Кеңестік шығармашылық интеллигенциясы калыптасуының бастапқы кезеңІ
2013 -> Жанғабыл Қабақбаев, Қазақстан Республикасы журналистер Одағының
2013 -> Әл Фараби дүние жүзілік мәдениет пен білімнің Аристотельден кейінгі екінші ұстазы атанған. Ол данышпан философ, энциклопедист ғалым, әдебиетші ақын, математик. Әл Фараби 870 ж
2013 -> Өмірбаяны ІІ негізгі бөлім
2013 -> Ф 15-07 Қазақстан Республикасының білім ЖӘне ғылым министрлігі
2013 -> Кіріспе. Жұмыстың жалпы сипаттамасы. Дипломдық жұмысының өзектілігі


Достарыңызбен бөлісу:
1   2   3   4   5   6   7   8   9   10


©engime.org 2017
әкімшілігінің қараңыз

енгізу | тіркеу
    Басты бет


материалдарды жүктеу