Студопедия

Главная страница Случайная страница

КАТЕГОРИИ:

АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника






Мультипликация.






Мультипликация дегеніміз қ озғ алыстағ ы сурет. Суретті қ озғ алысқ а келтіру ү шін суретті экранғ а шығ арып, біраз уақ ытқ а ө шіру керек. Содан кейін оны тағ ы экранғ а басқ а орынғ а шығ ару қ ажет.

Мультипликация мү мкіндігі демонстрациялайтын тө мендегі программаны қ арастырайық.

5-мысал.

10.11-сурет. Форма терезесі

unit Unit1;

interface uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, ExtCtrls;

type

TForm1 = class(TForm)

Timer1: TTimer;

 

 

procedure Timer1 Timer (Sender: TObject);

procedure FormActivate (Sender: TObject);

private

{Private declarations}

public

{Public declarations}

end;

 

var

Form I: TForm I;

x, y, byte;

dx: byte;

implementation

{$R.*dfm}

procedure ris;

begin

form I.Canvas.Pen.Color: =form I.Color;

form I. Canvas.EIIipse (x, y, x+10, y+10):

x: =x+dx;

formI.Canvas. Pen.Coior: =cl Black;

form I.Canvas.EIIipse (x, y, x +10, y +10);

end;

procedure TForm1.Timer1 Timer (Sender: TObject);

begin

ris;

end;

procedure TForm1.FormActivate (Sender: TObject);

begin

x: =0;

y: =10;

dx: =5;

timer1.Interval: =50;

form1.Canvas.Brush.Color: =form1.Color;

end;

end.

 

Мұ нда негізгі жұ мысты ris процедурасы орындайды. Осы процедураның периодты тү рде шақ ырылуын System бетіндегі timer компоненті қ амтамасыз етеді.

 

timer

10.12-сурет. System беті

 

 


Поделиться с друзьями:

mylektsii.su - Мои Лекции - 2015-2024 год. (0.007 сек.)Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав Пожаловаться на материал