Программа кодының терезесі. Delphi ортасы программист жұмысының ӛте жоғары тиімділігін қамтамасыз ететін орта

1 ... 98 99 100 101 102 103 104 105 ... 122

Листинг:

uses

Windows, Messages, SysUtils,

Classes, Graphics, Controls,

Forms, Dialogs, MPlayer, StdCtrls, ExtCtrls;

type

TForm1 = class(TForm)

Label1: TLabel; Panel1: TPanelButton1:

TButtonMediaPlayer1: TMediaPlayer; procedure

ButtonlClick(Sender: TObject);

procedure FormCreate(Sender: TObject);

private

{ Private declarations ) public

{ Public declarations } end;

var

Form1: TForm1 ;

implementation

($R *.DFM}

procedure TForm1.ButtonlClick(Sender: TObject);

begin

MediaPlayer1.Play;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

MediaPlayer1.DisplayRect:=Rect(0,0,60,60);

end;

end.

Анимацияны құру

Мысал:

7 ...

Бұл есепті шешу үшін Macromedia Flash 5 программасын қолдануға болады.

Movie терезесі

Movie Propertiesтерезесіндегі мінездемелер

Бірінші кадрды жәй ғана салу керек. Ол үшін : қарындаш, ӛшіргіш сияқты стандартты

құралдарды пайдаланса жеткілікті. .

Келесі кадрды құру үшін Insert менюінен Keyframe командасын таңдау керек. Нәтижесінде

алдыңғы кадрге келесі кадр қосылады. Енді екінші кадрды салуға болады. Тура осылайша келесі кадрлер

құрылады.

Шығарылатын анимация дыбыспен байланысуы үшін алдыменен сәйкес дыбыстық файлды

қолдануға мүмкіншілік алк керек. Ол үшін File менюінен Import командасын таңдап алу керек те оны

дыбыстық файлдың проектіне қосу керек.:

Достарыңызбен бөлісу:

1 ... 98 99 100 101 102 103 104 105 ... 122