setlnstl.pas

Пример программы для процедуры SetLineStyle.

Код примера
{Setlnstl.PAS}
 
{ Пример программы для процедуры SetLineStyle }
 
Uses Graph;
 
Var       Gd, Gm : Integer;
  X1, Y1, X2, Y2 : Integer;
 
Begin
 Gd:=Detect;
 InitGraph(Gd, Gm, '');
 If GraphResult <> grOk Then Halt(1);
 X1:=10;
 Y1:=10;
 X2:=200;
 Y2:=150;
 SetLineStyle(DottedLn, 0, NormWidth);
 Rectangle(X1, Y1, X2, Y2);
 SetLineStyle(UserBitLn, $C3, ThickWidth);
 Rectangle(Pred(X1), Pred(Y1), Succ(X2), Succ(Y2));
 ReadLn;
 CloseGraph;
End.

Скачать setlnstl.pas