Программалау іі» пәні бойынша 050111 «Информатика»

жүктеу/скачать 2.7 Mb.

бет	22/29
Дата	14.06.2016
өлшемі	2.7 Mb.
	#135126
түрі	Программа

1 ... 18 19 20 21 22 23 24 25 ... 29

Лекция 25
TCanvas класының кейбір тєсілдері
2. TPen, TFont, TBrush кластары және қасиеттері

3. Принтерде басып шығару

А1. Форманы ішіндегілерімен қоса принтерде басып шығу үшін Tform1 обьектісінің Print атаулы тәсілін шақыру жеткілікті(не File – Print командасын беруге болады).

А2. Программа мәтінін басып шығару үшін алдымен формаға Button1 компонентін орнатып, OnClick оқиғасын өңдеу процедурасын мынадай түрде толтыру керек:
Procedure Tform1.ButtonClick(Sender:Tobject);

Var f:TextFile;

Begin

AssignPrn(f); Rewrite(f); Writeln(f, <атау>); CloseFile(f);

End;

Мұндағы AssignPrn(f) – мәтіндік айнымалыны принтермен байланыстыру,

Rewrite(f) – мәтінді оқу, Writeln(f, <атау>) – программа мәтінін басып шығару (<атау – модуль атауы>) CloseFile(f) – мәтіндік файлды жабу операторлары(Rewrite, Writeln, CloseFile операторлары жөнінде түсініктер IV – тарауға енгізілген).

Лекция 25

Графика салу

Жоспар:

1. TCanvas классы, қасиеттері мен тәсілдері

2. TPen, TFont, TBrush кластары және қасиеттері

TCanvas классы, қасиеттері мен тәсілдері

Delphi графиканы: схема, сызба, иллюстрацияларды шығарып көрсетуге болатын программалар құруға мүмкіндік береді. Программа графиканы объект (форма не Image компоненті) бетіне шығарады. Объект бетіне графикалық элементті(түзу сызық, дөңгелек, төртбұрыш т.б.) шығару үшін осы объекттің canvas қасиетіне сәйкес тәсілді қолдану керек. Мысалы, Form1.Canvas.Rectangle (10,10,100,100) тәсілі программа терезесінде төртбұрыш сызады.

Delphi-дің графикалық режимінде координаттар жүйесінең формада орналасуы дағдылы Паскальдағы сияқты. Графиканы пайдалану TCanvas класына негізделген (Canvas - канва, сурет салу кенебі). Мысалы, экранда кµріген форма мен басқару элементтерінің облыстары - Delphi-де салынған канвалар (кенептер). Кенепке графикалық информация шығарылған соң, ол осы облыс жабылғанша кµрініп тұрады.
TCanvas қасиеттері

Қасиет

Тағайындама

Brush: TBrush

Font: TFonts

Pen: TPen

PenPos:TPoint

Объект – бояу жаққыш
Объект – шрифт

Объект қалам

Графикалық курсордың ағымдық орны

TCanvas класының кейбір тєсілдері

Are (x1, y1, x2, y2, x3, y3, x4, y4: integer);

(х1, у1) – (х2, у2) – тікктµртбұрышты сырттай сызылған эллипс сегментін сызу. Оның бастпақы нүктесі эллипс пен оның орталығынан (х3, у3) нүктесіне жүргізлген сєуленің қиылыcу нүктесінен басталады: соңы – орталықтан (х4, у4) нүктесіне дейін жүргізілген сєулемен қиылысу нүктесі. Доға сағат тіліне қарсы сызылады

Rectangle(xl, yl, х2, у2 : integer);

(xl, yl)-(x2, y2) - Тік тµртбұрышын салалы. Фигураның ішкі облысынан бояу жаққыш (Brush.Color) түсі мен анықталады.

EIlipse(xl, yl, x2, y2) : integer;

(xl, yl)-(x2, y2) тік тµртбұрышына сыртттай сызылытын эпплиске не шеңбер сызу Элементінің ішкі ішкі облысының түсі бяу жаққыш түсі мен анықталады.

Pie(xl, yl, x2, у2, хЗ, уЗ, х4, у4:longint);

(x1, у1) – (х2, у2) – тік тµртбұрышын сырттай эллипс секторын сызады. Доғаның бас нүктесі – эллипс ортасынан (х3, у3) нүктесіне жүргізілген сєуленің эллипспен қиылысу нүктесі, соңғы нүктесі – эллипс ортасынан (х4, у4) нүктесіне жүргізілген сєуленің эллипспен қиылысу нүктесі.

Draw(x, у : integer; Graphic : Tgraphic);

Сол жақ жоғарғы нуктесі (х, у) болатын Graphic объектісін салу

Polyine (Points: array of TRoint);

Points массивінде берілген нүктелер бойынша қаламұш арқылы қисық сызық сызу

LineTo (x, y : integer);

Қаламұштың ағымдық орнынан бастап (х, у) нүктесіне дейін түзу кесіндісін салу

Move To (x, y: integer);

(х, у) нүктесіне қаламды орнатады

Text Out (x, y: integer;ConstText:string);

(х, у) нүктесінен бастап мєтіндік жолды шығару

Программада тәсіл алдына объектілер иерархиясы жазылуы тиіс. Формаға графикалық кескін шығару үшін оның on Paint оқиғасын µңдеуіш процедура құру керек.

2. TPen, TFont, TBrush кластары және қасиеттері

Түрлі суреттер-мен графиктер салу үшін TCanvas. класына ұрпақ үш класс пайдаланылады: Windows шрифті үшін TFont, түрлі сызықтарды сызу үшін ТРеп жєне тұйық фигуралар ішін бояу үшін ТBrush (font — шрифт, реn – қалам, қаламұш, brush – бояу жаққыш)
TРen қасиеттері

Қасиет

Тағайндама

Color

Style
Width

Mode

Қалам арқылы салынған сызықтың түсі (15 түрлі)

Қалам арқылы салынған сызықтың стилі. Мүмкін мєндер: psSolid (тұтас сызық), psPash (пунктирлік), т.б.

Пиклель µлшемі бойынша сызық қалыңдығы

Сызу режимі (сызықтың орта мен µзара байланысы) Мысалы, қасиетіне pmXor мєні орнатылып сызылған сызық қайта сызылса, µшіп қалады;

pm Blak – сызық түсі єркезде қара түсті; pmWhite – сызық ақ түсті, т.б.

TFont қасиеттері

Қасиет

Тағайындама

Color

Name

Style

Size

Шрифт түсі

Шрифт аты (мысалы, Times Kaz)

Шрифт стилі (жартылай қалың курсив, т.б.)

Мысалы, программада шрифті жартылай қалың, курсив ету операторларының жазылуы.

Form 1 Canvas. Font. Style: = {fsbold fsItalic}

Пиксель µлшемі бойынша шрифт биіктігі

TBrush қасиеттері

Қасиет

Тағайындама

Color

Style

Бояу жаққыш түсі (объектінің боялу түсі)

Облысты толтыру стилі (3.1суретті қараңыз)

жүктеу/скачать 2.7 Mb.

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

1 ... 18 19 20 21 22 23 24 25 ... 29