Правила форума
Setlnstl.PASЯзык:
Русский
English
{ Пример программы для процедуры SetLineStyle }
uses Graph;
var
Gd, Gm : Integer;
X1, Y1, X2, Y2 : Integer;
begin
Gd := Detect;
InitGraph(Gd, Gm, 'X:\BP');
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.
var
Gd, Gm : Integer;
X1, Y1, X2, Y2 : Integer;
begin
Gd := Detect;
InitGraph(Gd, Gm, 'X:\BP');
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.
::
::
::
