Media Player кoмпоненті Программалық бөлім

Precedent: TToolButton;

lbInfo: TLabel;

ToolList: TImageList;

Timer1: TTimer;

Label1: TLabel;

Bevel1: TBevel;

ToolButton1: TToolButton;

ToolButton2: TToolButton;

procedure imgPic5MouseLeave(Sender: TObject);

procedure imgPic5MouseEnter(Sender: TObject);

procedure imgPic4MouseLeave(Sender: TObject);

procedure imgPic4MouseEnter(Sender: TObject);

procedure imgPic3MouseLeave(Sender: TObject);

procedure imgPic3MouseEnter(Sender: TObject);

procedure imgPic2MouseLeave(Sender: TObject);

procedure imgPic2MouseEnter(Sender: TObject);

procedure imgPic1MouseLeave(Sender: TObject);

procedure imgPic1MouseEnter(Sender: TObject);

procedure SmallPicsClick(Sender: TObject);

procedure tmrViewInfoTimer(Sender: TObject);

procedure tmrRollTimer(Sender: TObject);

procedure FormDestroy(Sender: TObject);

procedure FormCreate(Sender: TObject);

procedure QuitBtnClick(Sender: TObject);

procedure SuivantClick(Sender: TObject);

procedure PrecedentClick(Sender: TObject);

procedure Timer1Timer(Sender: TObject);

procedure FormCenter;

procedure SaveBtnClick(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end; 

 

const

Info: Array[0..3] of String = (‘Қ. Жұбанов атындағы АМУ’,

‘Физико-математикалық факультет’,

‘Информатика кафедрасы’,

‘Дельфидің графикалық мүмкіндіктері’); 

 

var

Form1: TForm1;

BigStream: TBitmap;

DestR: TRect;

SmallW, SmallH: Integer;

W,

H,

NewX,

dX1,

dX2,

X1,

X2: Integer; 

 

MaskBevelW,

CurrFrame,

LastPicId,

PicId: Byte; 

 

InfoId, Count: Byte; 

 

AFormat: Word;

AData: THandle;

APalette: HPalette;

flag1:Integer;

BlendFunc: TBlendFunction; 

 

implementation

uses about;

{$R *.dfm} 

 

procedure Tform1.FormCenter;

begin

with form1 do begin

Left := Screen.Width  div 2 — Width  div 2;

Top  := Screen.Height div 2 — Height div 2;

end;

end;

procedure TForm1.FormCreate(Sender: TObject);

var

i: Byte;

begin

flag1:=0;

Left := (Screen.Width — Width) div 2;

Top := (Screen.Height — Height) div 2 — 16;

with BlendFunc do

begin

BlendOp := AC_SRC_OVER;

BlendFlags := 0;

SourceConstantAlpha := 127;

AlphaFormat := 0;

end;

end.

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Қазақстан  Республикасы  білім  және  ғылым министрлігі

Алматы   индустриалды  колледжі

 

 

 

 

 

Курстық  жоба

 

Пәні « Алгоритмдеу  және  бағдарламалау   негіздері»

Мамандығы «1304000. Есептеу  техникасы және  бағдарламамен  қамтамасыз  ету»

Тақырыбы: « Delphi  ортасында анимация  құру.»

Білім  алушы:  Рахматулла Айгерім Қ.

Тобы: КЕТжБҚ 3-2

 

 

 

Жетекшісі:                                Анисова  М.  

«КЕТжБҚ»  циклінің  төрайымы                                   Қайырбекова С.

Норма бақылаушысы:                                             Утегенова А.

Бағасы                     «       »          2013ж

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

 

Алматы  2013ж