SetLineStyle ( LineStyle, Pattern, Thickness : Word ) ;
—
задает текущие параметры линии (стиль, шаблон, толщину).
LineStyle —
стиль линии.
Pattern —
шаблон линии — задается только для линий, стиль которых определяется пользователем (LineStyle = UserBitLn). При этом два байта параметра Pattern определяют образец линии следующим образом: каждый установленный в единицу бит этого слова соответствует светящемуся пикселю в линии, нулевой бит — несветящемуся. Таким образом, параметр Pattern задает отрезок линии длиной в 16 пикселей. Этот образец периодически повторяется по всей длине линии.
Thickness —
толщина линии.
Для стиля и толщины в модуле Graph определены следующие константы:
Const
SolidLn = 0 ; { сплошная линия }
DottedLn = 1 ; { из точек }
CenterLn = 2 ; { из точек и тире }
DashedLn = 3 ; { пунктирная линия}
UserBitLn = 4 ;{ определяется пользователем }
Const
NormWidth = 1 ; { нормальная толщина — в один пиксель }
ThickWidth = 3 ; { жирная линия — в три пикселя }
Установленный процедурой стиль линии используется при построении прямоугольников, многоугольников и других фигур.
В случае аварийной ситуации (недопустимые параметры) процедура не производит никаких изменений текущих параметров и устанавливает код ошибки: -11.
возвращает текущие параметры линии (стиль, шаблон, толщину).
LineInfo —
переменная, в которую записываются текущие параметры линии — переменная типа LineSettingsType, который определен в модуле Graph:
Type
LineSettingsType = Record
LineStyle : Word ;{ стиль линии }
Pattern : Word ; { шаблон }
Tickness : Word { толщина }
End ;
SetWriteMode ( WriteMode : Integer ) ;
—
устанавливает режим рисования линий — способ взаимодействия новых линий с существующим изображением.
Для задания параметра WriteModeможно использовать, например, следующие определенные в модуле Graph константы:
Const
CopyPut = 0 ; { линии накладываются на существующее изображение }
XorPut = 1 ; { наложение с применением логической операции Xor:
в точках пересечения выводимой линии с имеющимся
изображением светимость пикселей инвертируется
на обратную }
Режим, установленный процедурой SetWriteMode, распространяется только на процедуры DrawPoly, Line, LineTo, LineRel, Rectangle.
MoveTo ( x, y : Integer ) ;
—
перемещает текущий графический указатель в точку с координатами ( x, y ) (точка на экране не высвечивается).
Координаты определяются относительно левого верхнего угла окна или — если окно не установлено — экрана.
MoveRel ( dx, dy : Integer ) ;
—
перемещает указатель на заданное расстояние ( dx, dy ) по отношению к его предыдущему положению ( x, y ), т.е. в точку ( x+dx, y+dy ) (точка на экране не высвечивается).
Line ( x1, y1, x2, y2 : Integer ) ;
—
рисует отрезок прямой от точки ( x1, y1 ) до точки (x2, y2 ) без изменения значения графического указателя.
Текущий цвет задается процедурой SetColor, текущие параметры линии — процедурой SetLineStyle, а режим построения линии — процедурой SetWriteMode.
Пример 12.7 (иллюстрация некоторых упомянутых выше процедур и функций):
проводит отрезок прямой из текущей позиции (на которую установлен текущий указатель) до точки ( x, y ).
Текущий цвет задается процедурой SetColor, текущие параметры линии — процедурой SetLineStyle, а режим построения линии — процедурой SetWriteMode.
LineRel ( dx, dy : Integer ) ;
—
проводит отрезок прямой из текущей позиции в точку, сдвинутую относительно исходной позиции ( x, y ) на ( dx, dy ), т.е. в точку ( x+dx, y+dy ).
Текущий цвет задается процедурой SetColor, текущие параметры линии — процедурой SetLineStyle, а режим построения линии — процедурой SetWriteMode.
