GraphABC ◊ Точка, отрезок, окружность, прямоугольникРисуем линииРисуем окружностиПодписываем рисункиМаленькие картиныСоставление алгоритмлв. Часть1 Часть 2Часть 3Часть 4Часть 5Более сложные  программы Подписываем рисунки

Повторяем

procedure TextOut(x,y: integer; s: string); - выводит строку s в позицию (x,y) (точка (x,y) задает верхний левый угол прямоугольника, который будет содержать текст из строки s).

procedure SetFontColor(color: integer); - устанавливает цвет шрифта.

function FontColor: integer; - возвращает  текущий цвет шрифта.

procedure SetFontSize(sz: integer); - устанавливает  размер шрифта в пунктах.

function FontSize: integer; - возвращает  текущий размер шрифта в пунктах.

procedure SetFontName(name: string); - устанавливает  наименование шрифта.

function FontName: string; - возвращает  текущее наименование шрифта.

По умолчанию установлен шрифт, имеющий наименование MS Sans Serif.
Наиболее распространенные шрифты – это Times, Arial и Courier New.
Наименование шрифта можно набирать без учета регистра.

procedure SetFontStyle(fs: integer); - устанавливает  стиль шрифта.

function FontStyle: integer; - возвращает  текущий стиль шрифта.

Стили шрифта задаются следующими именованными константами:

fsNormal – обычный;

fsBold – жирный;

fsItalic – наклонный;

fsBoldItalic – жирный наклонный;

fsUnderline – подчеркнутый;

fsBoldUnderline – жирный подчеркнутый;

fsItalicUnderline – наклонный подчеркнутый;

fsBoldItalicUnderline – жирный наклонный подчеркнутый.

function TextWidth(s: string): integer; - возвращает ширину строки s в пикселях при текущих настройках шрифта.

function TextHeight(s: string): integer; - возвращает высоту строки s в пикселях при текущих настройках шрифта.

Пример 1. Нарисуем фигуры.

program figuri;

uses graphabc;

begin

setwindowsize (400,480);

setwindowtitle ('Фигуры');

{Цвет фигуры}

setpencolor (clgreen);

{Размер линии}

setpenwidth (4);

circle(50,50,30);

{Цвет надписи}

SetFontColor(clgreen);

{Размер шрифта}

SetFontSize(25);

textout (100,30,'Окружность');

setpencolor (clPurple);

setpenwidth (2);

rectangle(20,100,90,170);

SetFontColor(clPurple);

SetFontSize(5);

textout (100,120,'Квадрат');

setpencolor (clAqua);

setpenwidth (6);

line(40,190,100,190);

lineto(80,240);

lineto(20,240);

lineto(40,190);

SetFontColor(clAqua);

SetFontSize(15);

textout (110,200,'Ромб');

end.

Можешь загрузить!       Пример 1

Пример 2. Напишем текст.

program text;

uses graphabc;

begin

setwindowsize (500,250);

setwindowtitle ('В мире чисел');

SetFontColor(clPurple);

SetFontSize(25);

SetFontStyle(fsItalic );

textout (50,30,'Понятие числа и фигуры');

textout (50,60,'взяты не откуда-нибудь,');

textout (50,90,'а только из действитель-');

textout (50,120,'ного мира.');

SetFontColor(clgreen);

SetFontStyle(fsUnderline );

textout (240,180,'Ф. Энгельс');

end.

Можешь загрузить!       Пример 2

Задания для самостоятельного выполнения

1. В примере 1 добавьте фигуры и подпишите их.

2. В примере 2 для шрифта а) увеличьте размер; б) измените цвет; в) измените стиль; г) измените наименование шрифта.

3. Составьте алгоритм, где вы сможете применить все свои знания о работе со шрифтами.

 

Copyright © 2008 Гимназия №1 имени К.Калиновского г.Свислочь © Синица А.А.