Лекция: 15 сағат лбс: 15 сағат С¤Ж: 45 саѓат обс¤Ж: 45 саѓат Барлыќ саѓат саны: 135 саѓ

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

Var f:TextFile;

Begin

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

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

Лекция 10. Графика салу

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

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

1. 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.2 Mb.

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