Полезное:
Как сделать разговор полезным и приятным
Как сделать объемную звезду своими руками
Как сделать то, что делать не хочется?
Как сделать погремушку
Как сделать так чтобы женщины сами знакомились с вами
Как сделать идею коммерческой
Как сделать хорошую растяжку ног?
Как сделать наш разум здоровым?
Как сделать, чтобы люди обманывали меньше
Вопрос 4. Как сделать так, чтобы вас уважали и ценили?
Как сделать лучше себе и другим людям
Как сделать свидание интересным?
Категории:
АрхитектураАстрономияБиологияГеографияГеологияИнформатикаИскусствоИсторияКулинарияКультураМаркетингМатематикаМедицинаМенеджментОхрана трудаПравоПроизводствоПсихологияРелигияСоциологияСпортТехникаФизикаФилософияХимияЭкологияЭкономикаЭлектроника
|
Пайдаланылған әдеиеттер көзі ⇐ ПредыдущаяСтр 8 из 8 1.Компьютерная технология обучения:словарь-справочник/Под редакцией В. Ю. Гриценко, А. М. Довгялло, А. Я. Савельева-К.: «Накова думка», 1992 2.Нұрғалиева Г. Қ. Электрондық оқулықтар – мұғалім мен оқушы арасындағы әрекетттестікті гуманизациялау құралы// «Информатика негіздері» республикалық журналы, №2, 2002.- 2-3 б. 3.Тажигулова А. И. Конструирование электронных учебников//Научно-практический журнал «Информационные технологии в Казахстане», №1, 2000.- С. 42-43. 4.Виштынецский Е. И., Кривошеев А. О. Вопросы применения информационных технологий в сфере образования и обучения//Информационныетехнологии, 1998, №2 – с. 32-36. 5.Сливина Н. А., Фомин С. С. Компьютерное учебное пособие «Высшая математика для инженерных специальностей»//КомпьютерПресс.- 1997.- №8.- с.72-77.
Осымша unit Main; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, Buttons, StdCtrls, ComCtrls, ToolWin, ImgList; type TForm1 = class(TForm) tmrRoll: TTimer; imgPic1: TImage; imgPic2: TImage; imgPic3: TImage; imgPic4: TImage; imgPic5: TImage; imgPicRollMask: TImage; tmrViewInfo: TTimer; ToolBar: TToolBar; QuitBtn: TToolButton; Separator1: TToolButton; Suivant: TToolButton; 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.
1 Delphi программалау ортасы туралы жалпы түсінік........................................ Дельфи ортасында анимация жасау әдістері -
|