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


 
В этот день много лет назад...
23 ноября. В 1906 году (111 лет назад) - Публикуется столыпинский земельный закон о выделении крестьян из общины на хутора (создание кулацких хуторских хозяйств) - начало столыпинской реформы.
 
 

Turbo Pascal Documentation

Процедура SetIntVec

Модуль Dos


     Функция: Устанавливает  по  заданному  адресу  заданный
вектор прерывания.
     Описание: SetIntVec(ном_прер : byte; вектор : pointer)
     Примечания: Параметр "ном_прер"  задает  номер  вектора
прерывания  (0...255), а параметр "вектор" задает его адрес.
Чтобы получить адрес процедуры обработки прерываний параметр
"вектор"  часто задается с использованием оператора @. Пред-
положим, что Int1BSave является переменной типа указатель  и
Int1BHandler - идентификатор процедуры обработки прерываний.
Тогда следующая последовательность операторов новый обработ-
чик  прерывания  В1, а затем восстанавливает исходный обра-
ботчик прерывания:

  GetIntVec(1B,Int1BSave);
  SetIntVec(1b,@Int1BHandler);
     .
     .
     .
  SetIntVec(1B,Int1BSave);

     Прочее: См. также процедуру GetIntVec.

-----------------------------------------------------------
Процедура SetLineStyle                       Модуль Graph
-----------------------------------------------------------
     Функция: Устанавливает текущую толщину и тип линии.
     Описание: SetLineStyle(тип_строки: word; образец: word;
толщина : word)
     Примечания: Данная процедура влияет на все типы  линий,
вычерчиваемые процедурами Line, LineTo, RecTangle, DrawPoly,
Arc, Circle и др.
     Могут вычерчиваться непрерывные, пунктирные линии,  ли-
нии, состоящие из точек или точек и тире.
     Если процедуре SetLineStyle иередаются  неверные  пара-
метры,   то   GraphResult   будет  возвращать  значение  -11
(grError) и текущие установки останутся неизмененными.  Опи-
саны следующие константы:

const
    SolidLn    =  0;     { непрерывныя линия }
    DottedLn   =  1;     { линия из точек }
    CenterLn   =  2;     { линия из точек и тире }
    DashedLn   =  3;     { пунктирная линия }
    UserDilLn  =  4;     { тип, определяемый пользователем }
    NormWidth  =  1;     { нормальная толщина }
    ThickWidth =  3;     { жирная линия }

     Когда в качестве параметра процедуру LineStyle  переда-
ется  UserBitLn,  то  в качестве BitPattern для строки будет
использоваться параметр "образец".
     Ограничения: Должен использоваться графический режим.
     Прочее: См. также процедуры GetLineStyle, Line, LineRel,
LineTo, SetWriteMode, GraphResult.
     Пример:

uses Graph;
var
   GraphDriver, GraphMode : integer;
   x1, y1, x2, y2 : integer;
begin
   GraphDriver := Detect;
   InitGraph(GraphDriver,GraphMode,'');
   if GraphResult <> grOk then
      Halt(1);
       x1 := 10;
       y1 := 10;
       x2 := 200;
       y2 := 150;
SetLineStyle(DottedLn,0,NormVidth);
Rectangle)x1,y1,x2,y2);
SetLineStyle(UserBitLn,C3,ThickWidth);
Rectangle(Pred(x1), Pred(y1), Succ(x2), Succ(y2));
    Фжгенп;
    ЕнрфжЙугсй;
жпе.




HOME