| |||
| HOME ПРИМЕРЫ THANKS НОВИЧКАМ ДОКИ LINKS JavaScript Mail | |||
 | |||
| |||
| |
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 |