Курсовые работы, лабораторные и дипломы по информатике.

>> Справочник по функциям Turbo Pascal 7.0.

Наши спонсоры:

Процедура FloodFill.

  • Объявление:

    Procedure FloodFill(X, Y : Integer; Border : Word);

  • Описание:

    Закрашивает замкнутую область, используя текущие стиль и цвет закраски.

  • Замечания:

    Закрашивает замкнутую область на растровых устройствах. Точка с координатами (X, Y) - начальная точка внутри замкнутой области, с которой начнется закраска. Текущий шаблон закраски устанавливается процедурами SetFillStyle и SetFillPattern. Закрашивается область, ограниченная цветом с номером Border. Если точка (X, Y) находится внутри замкнутой области, то закраска будет происходить внутри области. Если же эта точка находится снаружи замкнутой области, то будет закрашено все пространство вне области.

    Если во время закраски происходит ошибка, то в переменной GraphResult возвращается значение grNoFloodMem.

  • Ограничения:

    Нужно быть в графическом режиме.

  • Пример:

    { Пример программы для процедуры FloodFill }
    Uses Graph;
    Var Gd, Gm : Integer;
    Begin
    Gd:=Detect;
    InitGraph(Gd, Gm, '');
    If GraphResult <> grOk Then Halt(1);
    SetColor(GetMaxColor);
    Circle(50, 50, 20);
    FloodFill(50, 50, GetMaxColor);
    ReadLn;
    CloseGraph;
    End.



Вернуться к оглавлению справочника