| |
| | | Dark Gray =8
Light Blue =9
Light Green =10
Light Cyan =11
Light Red =12
Light Mageute =13
Yellow =14
Cohite =15
| |
Black =0
Blue =1
Green =2
Cyan =3 (бірюзовий)
Red =4
Mageute =5 (фіолетовий)
Brown =6
Light Gray = 7
2. Програма демонструє колірні можливості Pascal
Uses CRT;
Const Col: array [1..15] of String [16] = ('т-е','т-з','бир','кр','фиолет','корич','серый','син','зелен'
'c—бир','роз','нелин','желтый','белый');
Var K: Byte;
Begin
Text Mode (Co80);
For k:=1 to 15 do
Begin
Text Color (K);
Writekn ('цвет',K,'-',Col[K])
End;
Text Color (White+bliuk);
Writeln ('мигання символів');
Text Color (Light Gray);
Writeln ('припинення мигання') {монітор перебудовується на інший колір тільки
при зверненні до процедури Write/Writeln}
End.
У текстовому режимі можна створювати нові вікна. Їх розташування на екрані задається в процедурі параметрами координат верхнього лівого і нижнього правого кутів вікна.
Window (x1, y1, x2, y2: byte)
Колір символів і фону вікна задається процедурами: Text Color; Text Background
Вікон на екрані може бути декілька, але працювати можна тільки з одним, поточним.
Після виклику процедури вікна курсор поміщається в почало вікна, а саме вікно заповнюється кольором фону. Після досягнення правої межі вікна курсор переміщається на новий рядок. Після досягнення останнього рядка відбувається "прокрутка вікна".
(1,1) (1,80)
(25,1)
