Функция GetColor

модуль Graph
Назначение:
Возвращает текущее значение основного цвета, установленное при предыдущем успешном обращении к процедуре SetColor.
Целевая платформа: Реальный режим, защищенный режим.
Описание: function GetColor: Word

Примечания:

 
Если данная процедура возвращает значение 0, то это означает, что текущим цветом, используемым для вычерчивания, является первый цвет палитры. Основной цвет может принимать значения от 0 до 15, в зависимости от текущего графического режима и графического драйвера.
Ограничения: Должен использоваться графический режим.
См. также: GetBkColor, GetPalette, InitGraph, SetAllPalette, SetColor, SetPalette.
Пример: uses Graph;
var
    GraphDriver, GraphMode : integer;
    Color : word;
begin
     GraphDriver := Detect;
     InitGraph(GraphDriver,GraphMode,' ');
     if GraphResult <> grOk then Halt(1);
     Randomize;
     repeat
        Color := Succ(GetColor);
        if Color > PaletteSize then Color := 0;
        SetColor(Color);
        LineTo(Random(GetMaxX), Random(GetMaxY));
     until False;                       { для выхода нажмите ^Break }
end.