зображення і вікна застосовуються процедури SetColor і SetBkColor.
Процедура SetColor ((ueeT): word); служить для завдання кольору, яким будуть позначені контури фігури або тексту. Якщо в якості кольору вказано недопустимий номер кольору, то поточний колір не змінюється.
Процедура SetBkColor ( lt; колір gt;: word); встановлює новий колір фону.
2.3 Робота з текстом
Виведення тексту
Виведені на екран зображення найкраще супроводжувати пояснювальним текстом. У графічному режимі для цього використовуються процедури OutText і OutTextXY.
Процедура OutText (Textst: string) виводить рядок тексту, починаючи з поточного положення покажчика. Наприклад, OutText (натисніть будь-яку клавішу); Недолік цієї процедури - не можна вказати довільну точку початку виведення.
У цьому випадку зручніше користуватися процедурою OutTextXY (x, y: integer, Textst: string), де x, y - координати точки початку виведення тексту, Textst - константа або змінна типу String. Наприклад, OutTextXY (60, 100, Натисніть будь-яку клавішу).
Висновок чисельних значень
У модулі Graph немає процедур, призначених для виведення чисельних даних. Тому для виведення чисел спочатку потрібно перетворити їх в рядок за допомогою процедури Str, а потім підключити допомогою + до виведеної рядку.
Наприклад: Max:=34.56;
Str (Max: 6: 2, Smax); {результат перетворення знаходиться в Smax}
OutTextXY (400, 40, Максимум=+ Smax);
Для зручності перетворення цілочисельних і речових типів даних в рядок краще здійснювати спеціалізованими користувача функціями IntSt і RealSt:
function IntSt (Int: integer): string; Buf: string [10]; (Int, Buf);:=Buf ;;
function RealSt (R: real, Dig, Dec: integer): string; Buf: string [20]; (R: Dig: Dec, Buf);:= Buf;
end;
Ці функції вказуються як параметри в процедурах OutText і OutTextXY. Наприклад: x:=5.295643871;
OutTextXY (20, 20, x=+ RealSt (x, 11,9));
В результаті на екрані з'явиться x=5.29564443871
Шрифти
Виведення тексту в графічному режимі може здійснюватися різними стандартними (таблиця 5) і користувацькими шрифтами. Розрізняють два типи шрифтів: растрові і векторні. Растровий шрифт задається матрицею точок, а векторний - поруч векторів, що складають символ.
За замовчуванням після ініціалізації графічного режиму встановлюється растровий шрифт DefaultFont, який, як правило, є шрифтом, використовуваним драйвером клавіатури.
Більшість стандартних шрифтом не містять російських символів. Розробка ж власвих шрифтів - досить складний і трудомісткий процес. Він може бути прискорений, якщо скористатися спеціалізованими пакетами TurboFont, BgiToolKit.
Встановити потрібний шрифт можна процедурою SetTextStyle (Font, d, c: word), де Font - обраний шрифт, d - напрям (горизонтальне або вертикальне), с - розмір виведених символів. При організації вертикального виведення необхідно враховувати, що якщо не встановити точку початку виведення за допомогою MoveTo, то текст починається з нижнього рядка екрану і продовжується вгору. Величина символів встановлюється коефіцієнтом с. Якщо с=1, то символ будується в матриці 8х8, якщо с=2, то матриця 16х16 і т.д. до 10-кратного збільшення.
Наприклад виведемо 2 рядки (вертикальну і горизонтальну) шрифтом DefaultFont різної величини:
SetTextStyle (0,11); {букви стандартної величини}
OutTextXY (200,200, Вертикальна рядок);
SetTextStyle (0,0,2); {розмір букв збільшений}
OutTextXY (200,220, Горизонтальна рядок);
Вирівнювання тексту
У деяких випадках потрібно в межах одного рядка виводити символи вище або нижче один одного. Вирівнювання тексту виконується за допомогою процедури SetTextJustify (Horiz, Vert: word) як по вертикалі, так і по горизонталі за допомогою завдання параметрів Horiz і Vert.
.4 Побудова графіків функцій
Дотепер при створенні малюнків використовували тільки перший квадрант системи координат. Для побудови більшості функцій в необхідному інтервалі зміни необхідно працювати хоча б у двох квадрантах. У загальному випадку корисно зображувати систему координат в будь-якій частині площини, але найбільш наочно розташовувати ї...
