Тапсырма №3. Заты.Bmp, .ico болып келген графикалық файлдарды шығару үшін Additional бетіндегі Image компоненті қосылады.

Заты.Bmp,.ico болып келген графикалық файлдарды шығ ару ү шін Additional бетіндегі Image компоненті қ осылады.

Image

10.7-сурет. Additional беті.

Тө мендегі кенстеде осы компоненттің қ асиеттері кө рсетілген.

Енді экранғ а жоғ арыда келтірілген фигураларды сызып, оның жанына олардың атын жазып шығ аратын программа мысалын жазайық. Ол ү шін формағ а Image1 жә не Button компоненттерін орналастырамыз. Программа мә тіні тө мендегідей:

Unit rr2;

Interface

Uses

Windows, Messages, SysUtils, Variants, Classes, Graphcs, Controls, Forms,

Dialogs, ExtCtrls, StdCtrls;

Type

Tform1=class(TForm)

Image: TImage;

Button: TButton;

Procedure ButtonClick(Sender: TObject);

Private {Private declarations}

Public {Public declarations}

End; var

Form1: TForm1;

Implementation

{$R*.dfm}

Procedure Tform1.Button1Click(sender: TObject);

Begin

With Image1.Canvas do

Begin

Font.Sryle: =[fsBold];

Pen.Color: =clred;

Arc(10, 10, 90, 90, 90, 50, 10, 50);

TextOut(40, 60, ’Arc’);

Pen.color: =clGreen;

Brush.style: =bscroos;

Chord(110, 10, 190, 90, 190, 50, 110, 50);

Textout(135, 60, ’Chord’);

Pen.Color: =clred;

Brush.Color: =clBlue;

Brush.Style: =bsclear;

Ellipse(230, 60, ’Ellipse’);

Pie(310, 10, 390, 90, 390, 30, 310, 30);

Textout(340, 60, ’Pie’);

Polygon([Point(30, 150), Point(40, 130), Point(50, 140), Point(60, 110)

Point(70, 150)]);

Polyline([Point(130, 150), Point(140, 130), Point(150, 140), Point(160, 110)

Point(170, 150)]);

Textout(140, 170, ’polyLine’);

Rectangle(230, 120, 280, 160);

Textout(230, 170, ’Rectangle’);

Roundrect(330, 120, 380, 160, 20, 20);

TextOut(325, 170, ’Roundrect’);

End;

End;

End.

Программанның орындалу нә тижесі 10.8- суретте келтірілген.

Форманы дайындау кезінде сурет Picture қ асиеті арқ ылы жү ктеледі. Олү шін Objecr Inspecror қ осымшасында Picture қ асиетін таң дау керек. Содан кейін пайда болғ ан Picture Editor терезеде Load батырмасы арқ ылы суретті тандап, OK батырмасын басу керек.

Оның ө лшемін Strech қ асиеті арқ ылы ө згертуге болады.

10.8-сурет. Фигураларды бейнелеу терезесі

10.9-сурет. Picture Editor терезесі