getlnset.pas

 {Getlnset.PAS}
 
 { Пример программы для процедуры GetLineSetting }
 
 Uses Graph;
 
 Var Gd, Gm : Integer;
   OldStyle : LineSettingsType;
 
 Begin
  Gd:=Detect;
  InitGraph(Gd, Gm, '');
  If GraphResult <> grOk Then Halt(1);
  Line(0, 0, 100, 0);
  GetLineSettings(OldStyle);
  SetLineStyle(DottedLn, 0, ThickWidth);   { Новый стиль }
  Line(0, 10, 100, 10);
  { Восстанавливаем прежний стиль }
  With OldStyle Do SetLineStyle(LineStyle, Pattern, Thickness);
  Line(0, 20, 100, 20);
  ReadLn;
 CloseGraph;
End.