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