Друзья
Друзья


Модуль Graph

GetColor - Возвращает текущий цвет.


Объявление:
Function GetColor : Word;
Режим:
Real, Protected
Замечания:

Номера цветов находятся в диапазоне от 0 до 15, в зависимости от текущего графического драйвера и текущего графического режима.
Пример: 01 { Пример программы для функции GetColor }
02
03 Uses Graph;
04
05 Var Gd, Gm: Integer;
06 Color: Word;
07 Pal: PaletteType;
08
09 Begin
10 Gd:=Detect;
11 InitGraph(Gd, Gm, '');
12 If GraphResult grOk Then Halt(1);
13 Randomize;
14 GetPalette(Pal);
15 Repeat
16 Color:=Succ(GetColor);
17 If Color>Pal.Size - 1 Then Color:=0;
18 SetColor(Color);
19 LineTo(Random(GetMaxX), Random(GetMaxY));
20 Until KeyPressed;
21 CloseGraph;
22 End.