Delphi графикалық мүмкіндіктері

Автор: Пользователь скрыл имя, 14 Января 2013 в 18:03, курсовая работа

Описание работы

Программа құруға ыңғайлы тамаша ортаның бірі – Delphi ортасы таңдап алынды. Оны оқып үйрену , түсіну және логикалыңқ ойлауға өте қарапайым , әрі жеңіл. Delphi программалаудың структуралық тәртібін және программалаудың басқа тілдерге қарағанда жалпы жақсы дамыған.Оның қызықты рекурсивті мүмкіндіктері , сонымен қатар қызықты есептер шығару мүмкіндіктері бар.
Delphi типті жүйені тез және визуальды құру ортасы деп атайды.Себебі ол өзіне компилятормен қоса редактор және көптеген дайын программалар жиынтығын қамтиды.Delphi – де шамамен 200 – ге жуық дайын компоненттер бар.

Содержание

Кріспе 3
1 Delphi программалау ортасы 6
1.1 Delphi программалау жүйесі 6
1.2 Delphi–дің артықшылықтары 7
1.3 Өнімнің негізгі сипаттамалары. 7
1.4 Ұйымдастырушының ортасын икемдеу . 13
1.5 Компоненттер 16
1.6 Delphi программалау ортасының графикалық мүмкіндіктері 17
1.7 Мәтінді шығару 19
1.8 Canvas объектінің қасиеттері 21
2. Delphi ортасынның графикалық мүмкіндіктерін сипаттайтын программа 21
Қорытынды 23
Пайдаланылған әдеиеттер көзі 26
Қосымша 27

Скачать полностью (263.77 Кб) Сколько стоит заказать работу?
Работа содержит 1 файл

графикалық мүмкіндіктері.doc

— 369.50 Кб (Скачать)

 

 

Қосымша

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.




Информация о работе Delphi графикалық мүмкіндіктері