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


 
В этот день много лет назад...
16 января. В 1969 году (50 лет назад) - Первая стыковка на околоземной орбите двух пилотируемых космических кораблей "Союз-4" с космонавтами Б.В. Волыновым, Е.В. Хруновым и А.С. Елисеевым и "Союз-5" с космонавтом В.А. Шаталовым. Первый переход космонавтов из одного космического корабля в другой через открытый космос (Е.В. Хрунов и А.С. Елисеев переходят из "Союз-5" в "Союз-4"). В течение 4 часов два космических корабля совершают полет как один объект, образуя первую экспериментальную космическую станцию.
 
 

Turbo Pascal Documentation

Процедура GetFillSettings

Модуль Graph


      Функция: Позволяет выдавать запрос о текущем  типе  за-
полнителя  и его цвете, которые установлены процедурами Set-
FillStyle или SetFillPattern.
     Описание:    GetFillSetings(var     информ_заполн     :
FillSettingsType)
     Примечания: Данная процедура возвращает переменную типа
FillSettingsType, который описывается в модуле Graph следую-
щим образом:

type
   FillSettingsType = record
                        Pattern : word;             { тип }
                        Color   : word;             { цвет }
                      end;

     Поле Pattern содержит выбранный в качестве текущего тип
заполнителя.  Поле Color содержит выбранный в качестве теку-
щего цвет закраски. И образец, и цвет закраски  можно  изме-
нить путем обращения к процедурам SetFillStyle и SetFillPat-
tern.
     Ограничения: Должен использоваться графический режим.
     Прочее: См.  также  процедуры  FillPoly,  SetFillStyle,
SetFillPattern.
     Пример:

var
   FillInfo : FillSttingsType;
   CurPattern,
   CurColor : word;
begin
  ...
  GetFillSettings(FillInfo);
  CurPattern := FillInfo.Pattern;
  CurColort := FillInfo.Color;
  ...
end.




HOME