Жірибе бойынша есеп

Пaйдaлaнылғaн әдeбиeттeр тiзiмi

жүктеу/скачать 149,92 Kb.

бет	10/10
Дата	13.12.2021
өлшемі	149,92 Kb.
	#125547
түрі	Білім беру бағдарламасы

1 2 3 4 5 6 7 8 9 10

Байланысты:
Қажыбеков Райымбек

Қосымша

Пaйдaлaнылғaн әдeбиeттeр тiзiмi

1.Александровский А.Д «Delphi 5 разработка корпоративных приложений»

2. «Программирование в среде Delphi 7.0» С.В. Глушанов А.Л. Кливцов

3. «Delphi 3. Учебный курс. » Фарманов В.В.

4. «Delphi 3.Учебный курс» Бодровский С. Изд. Дом ПИТЕР, 2001

5. «Delphi 6.Программирование на Object Pascal» Культин Н.Б. Изд.: БХВ Санкт – Петербург, 2002

6. «Delphi 5. Справочное пособие» Архангельский А.Я. М.: ЗАО Изд. БИНОМ, 2001

Қосымша

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;

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;

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.

жүктеу/скачать 149,92 Kb.

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

1 2 3 4 5 6 7 8 9 10