HOME ПРИМЕРЫ THANKS НОВИЧКАМ ДОКИ LINKS JavaScript Mail


 
В этот день много лет назад...
23 ноября. В 1942 году (75 лет назад) - Завершается окружение 330-тысячной немецкой группировки под Сталинградом. Гитлер отдает приказ немецким армиям под Сталинградом любой ценой удерживать свои позиции.
 
 

Turbo Pascal Documentation

Процедура SetFillPattern


     Функция: Выбирает заданный пользователем  образец  зак-
раски.
      Описание:  SetFillPattern(Pattern  :   FillPatternType;
Color : word)
     Примечания: Устанавливает тип закраски и  ее  цвет  для
всех  типов закраски, выполняемых процедурами FillPoly, Bar,
FloodFill, Bar3D и PieSlice, битовый образец закраски, зада-
ваемый  процедурой  Pattern,  и  цвет, задаваемый процедурой
Color. Тип FillPatternType предварительно определяется  сле-
дующим образом:

type
   FillPatternType = array[1..8] of byte;

Образец закраски основывается на внутренних байтовых  значе-
ниях, содержащихся в массиве Pattern. Этот массив имеет дли-
ну 8 байтов и каждый байт 8 элементам изображения в  образце
закраски. Если бит в байте образца закраски принимает значе-
ние 1, то элемент изображения будет построен. Следующий  об-
разец закраски представляет собой, например, закраску в виде
"шахматной доски" (50% полутон):

- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
     Двоичный вид        Шестнадцатиричный вид
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
   10101010         =         AA            (первый байт)
   01010101         =         55            (второй байт)
   10101010         =         AA            (третий байт)
   01010101         =         55         (четвертый байт)
   10101010         =         AA             (пятый байт)
   01010101         =         55            (шестой байт)
   10101010         =         AA           (седьмой байт)
   01010101         =         55           (восьмой байт)
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -

     Определенные пользователем типы закраски позволяют  вам
создавать    типы    закраски,   отличающиеся   от   заранее
определенных, которые могут выбираться с  помощью  процедуры
SetFillStyle.  Всякий  раз, когда вы выбираете новый образец
закраски с помощью процедур SetFillPattern или  SetFillStyle
все  операции  закраски  будут  выполняться с использованием
этого     типа     закраски.     При     обращении      вида
SetFillStyle(UserField,  SomeColor)  всегда будет выбираться
образец, заданный пользователем. Это позволяет  вам  опреде-
лять и использовать с помощью процедуры SetFillPattern новый
образей закраски, а затем переходить от  встроенного  обраца
закраски  к  новому,  заданному  вами, обращаясь к процедуре
YetTextStyle.
     Аналогичная программа имеется в версии 2.0 Турбо-Си.
     Ограничения: Должен использоваться графический режим.
     Пример:

uses
  Graph;
const
   Gray50 : FillPatternType = (AA, 55, AA, 55, AA, 55,
                               AA, 55);
    var
    Driver, Mode: integer;
  begin
    Driver := Detect; { перевести в графический режим }
    InitGraph(Driver, Mode, '');
    if GraphResult <> 0 then
       Halt(1)
  SetFillPattern(Gray50, White);
  Bar(0, 0, 100, 100);  { нарисовать столбец, используя 50%
                          полутон }
  Readln;
  CloseGraph;
end.




HOME