Delphi ортасынның графикалық мүмкіндіктерін сипаттайтын программа

Информациялық қоғамға көшу процесінде информация құндылығы өзгеріп, біздің уақыт, кеңістік және қашықтық ұғымдары туралы да түсінігіміз кеңейіп, осылардың барлығы жаңа мәдениетті — информациялық мәдениеттің тууына себепші болды. Информациялық мәдениетті информациялық процестерді ұйымдастырудағы адамдардың информациялық қарым-қатынасын қанағаттандыру, қабылданған шешімдердің тигізетін әсерін болжап, әлемді біртұтас күйде көрсете алатын информацияны жасау, сақтау, өндеу, тасымалдау, бейнелеу және пайдалану істерін тиімді ұйымдастыру жолындағы жеткен деңгей түрінде қарастыру керек. 

 

Пайдаланылған әдеиеттер көзі

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.