сурет. Дыбыс фрагментін демонстрациялау терезесі

Әдістемелік нұсқауда келтірілген программаны орындап, компиляциялаңыз

unit Unit;

interface

uses

Dialogs;

TForm1= class(TForm

Procedure Form 1 Paint(Sender:TObject) ;

Private {Private declarations}

Public {Public declarations}

End;

Form1: TForm1;

Implementation {$R*. dfm}

Procedure Tform1. FormPaint(Sender : TObject);

Const

bsName : array[1..8] of string =(‘bsSolid’, ‘BsCIear’, ‘bsHorisontal’,

‘bsCross’, ‘bsDiagCoss’);

Var

X,y:integer;

Bs:TBrushStyle;

K:integer;

i,j:integer;

begin

w:=40; h:=40; y:=20

begin

for j:=1 to 4 do

begin

k:=j+(i-1)*4;

1:bs:=bsSolid;

2:bs:=bsClear;

3:bs:=bsHorisontal;

4:bs:=bsVertical;

5:bs:=bsFDiagonal;

6:bs:=bsBDiagonal;

7:bs:=bs Diagonal;

8:bs:=bsCross;

9:bs:=bsDiagCross;

End;

canvas.Brush.Color:=clGreen;

Canvas.Rectangle(x,y,x+w,y+h);

Canvas.Brush.Style:=Clear;

canvas.textOut(x,y-15,bsName[k]);

x:=x+w+30;

end;

end;

end.
Тапсырма №2

Unit Unit1;

Interfase

Uses

Windows, Messages, SysUtils, variants, Classes6 Graphics, Controls, Forms,

Type

Procedure FormMouseDown(Sender: TObject; Button: TMouseButton;

Shift:TShiftState; X,Y:integer);

Private

Publick { publick declarations}

End;

Var

Implementation

{$R*.dfm}

Procedure Starline(x0,y0,r:integer; Canvas:Tcanvas);

Var

P:array[1..11] of TPoint;

J:integer;

Begin

A:=18;

Begin

Begin

P[i].y:=y0+round(r*sin(a*pi/180));

End

Else begin

P[i].y:=y0+round(r/2*sin(a*pi/180));

End;

A:=a+36;

P[11].X:=p[1].X;

P[11].Y:=p[1].Y;

Canvas.Polyline(p);

End;

Procedure TForm.FormMouseDown(Sender:TObject; Button:TMouseButton

Begin

Then

Else

Starline(x,y,30,Form1.Canvas);

End;

End.

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

Image

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

Unit rr2;

Interface

Uses

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

Type

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

Begin

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.

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

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