11класс_Pascal-graph

advertisement
Вывод текста
в графическом окне
Процедура TextOut
Синтаксис:
TextOut(x,y: integer; s: string);
Действие:
Выводит строку s в прямоугольник
к координатами левого верхнего
угла (x,y)
Свойства шрифта
procedure SetFontSize(size: integer);
Устанавливает размер текущего шрифта в пунктах
function FontSize: integer;
Возвращает размер текущего шрифта в пунктах
procedure SetFontName(name: string);
Устанавливает имя текущего шрифта
function FontName: string;
Возвращает имя текущего шрифта
Свойства шрифта
procedure SetFontColor(c: Color);
Устанавливает цвет текущего шрифта
function FontColor: Color;
Возвращает цвет текущего шрифта
procedure SetFontStyle(fs: integer);
Устанавливает стиль текущего шрифта
function FontStyle: integer;
Возвращает стиль текущего шрифта
• function TextWidth(s: string): integer;
Возвращает ширину строки s в
пикселях при текущих настройках
шрифта
• function TextHeight(s: string): integer;
Возвращает высоту строки s в
пикселях при текущих настройках
шрифта
uses GraphABC;
begin
Window.Title := 'настройки текстовой строки';
Brush.Color := Color.Blue;
var ww := Window.Width;
var wh := Window.Height;
FillRectangle(20,20,ww-20,wh-20);
brush.color:=clwhite;
font.Color:=clred;
Font.Size := 16;
TextOut(ww div 3,wh div 3,'надпись в синем прямоугольнике');
font.Name:='calibri';
setfontsize (14);
TextOut((ww div 2)+10,(wh div 2)+30,'с белым фоном');
end.
Задание
1. Набрать текст программы «настройки текстовой
строки», запустить, изменить все настройки.
2. Снимок экрана графического окна вставить в
презентацию.
3. В предыдущем проекте «Грузовик на перекрёстке»
внести изменения:
a) добавить любой статический текст, подходящий по смыслу к
теме проекта,
b) добавить текст на автомобиль и добиться его сохранения в
течение реализации процесса анимации.
c) текст программы вставить в презентацию.
4. Придумать и реализовать идею о применении текста в
графическом окне.
Download