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


 
В этот день много лет назад...
23 октября. В 1984 году (34 года назад) - Пленум ЦК КПСС принимает программу переброски на юг сибирских рек.
 
 

Turbo Pascal Documentation

Процедура GetLineSettings

Модуль Graph


     Функция: Возвращает текущий тип линии, образец линии  и
ее толщину, установленные процедурой SetLineStyle.
     Описание: GetLineStyle(var LineInfo : LineSettingsType)
     Примечания: Определены следующие константы и типы:

  type
    LineSettingsType = record
        LineStyle  : word;
        Pattern    : word;
        Thickness  : word;
  end;

const
   { типы линий }
   SolidLn   = 0;
   DottedLn  = 1;
   CenterLn  = 2;
   DashedLn  = 3;
   UserBitLn = 4;     { тип линии, заданный пользователем }

  { толщина линии }
   NormWidth   = 1;         { обычная линия }
  ThickWidth  = 3;         { жирная линия }

     Ограничения: Должен использоваться графический режим.
     Прочее: См. также процедуру SetLineStyle.
     Пример:

  var
    LineInfo : LineSettingsType;
  begin
   ...
   GetLineSettings(LineInfo);
   CurStyle := LineInfo.LineStyle;
   CurPattern := LineInfoPattern;
   CurWidth := LineInfo.Thickness;
   ...
  end.




HOME