Правила форума
SetLineStyle (процедура) (модуль Graph)Язык:
Русский
English
SetLineStyle (процедура) (модуль Graph)
Устанавливает текущий стиль линии.
Объявление
Procedure SetLineStyle(LineStyle : Word; Pattern : Word; Thickness : Word);
Режим
Real, Protected
Замечания
Влияет на все линии, рисуемые процедурами Line, LineTo, Rectangle, DrawPoly, Arc и подобными.
Линии могут быть нарисованы следующими предопределенными стилями:
SolidLn (непрерывная) (0)
DottedLn (точечная) (1)
CenterLn (средняя) (2)
DashedLn (штриховая) (3)
UserBitLn (устанавливаемая пользователем) (4)
Если в процедуру SetLineStyle переданы недопустимые параметры, то в переменной GraphResult возвращается значение grError и текущие установки линий не будут изменены.
Параметр LineStyle - это значение от SolidLn до UserBitLn (0 .. 4). Параметр Pattern игнорируется, если LineStyle не равняется UserBitLn. Параметр Thickness может быть равен NormWidth (1) или ThickWidth (3).
Когда LineStyle равняется UserBitLn, строка выводится с использованием 16-разрядного шаблона, определяемого параметром Pattern. Например, если Pattern = $AAAA, то 16-разрядный шаблон выглядит так:
1010101010101010 { <-- Для толщины = NormWidth }
1010101010101010 { <-- Для толщины = ThickWidth }
1010101010101010
1010101010101010
Ограничения
Нужно быть в графическом режиме.
Смотри также
Пример
Язык:
Русский
English
{ Пример программы для процедуры SetLineStyle }
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.
::
::
::
