Синтаксис:procedure SetTexStyle{Шрифт, Ориентация, Размер: word);Действие:Устанавливает шрифт, размер и ориентацию текста, выводимогопроцедурами outTextxY и outText. В качестве параметра шрифт можно использовать одну из перечисленных ниже констант.КонстантаЗначение Шрифт DefaultFont0Стандартный. Каждый выводимый символ формируется в квадрате размером 8 на 8 пикселейTriplexFont1Triplex шрифтSmallFont2МелкийSansSerifFont3SansSerif шрифтGothicFont4ГотическийПримечаниеВ шрифтах, отличных от стандартного (DefaultFont), букв русского алфавита нет.Параметр Ориентация задает ориентацию выводимого процедурами outText […]
Синтаксис:procedure SetLineStyle(ТипЛинии: word; Образец: word; Толщина: word) ;Действие:Устанавливает стиль вычерчиваемых контуров и линий (см. процедуры Line, Circle И Др.).Параметр тип линии, в качестве которого обычно используется одна из именованных констант, определяет вид линии.КонстантаТип линииSolidLnСплошная, непрерывнаяDottedLnПунктирная, с постоянной длиной штриховCenterLnШтрих-пунктирная линияDashedLnПунктирная, длина штрихов чуть больше, чем у линии типа DottedLnDashedLnПунктирная, длина штрихов чуть больше, чем у […]
Синтаксис:procedure Rectangle{xl,yl,x2,y2: integer);Действие:Вычерчивает прямоугольник. Параметры xi и yi задают положение левого верхнего угла прямоугольника, х2 и у2 — правого нижнего угла прямоугольника.
Синтаксис:procedure PutPixel(х,у: integer; Цвет: word);Действие:Окрашивает пиксел, точку с координатами (х,у), цветом цвет. В качестве параметра цвет обычно используют именованнуюКОНСТАНТу.
Синтаксис:procedure PieSlice(х,у: integer; УголНачала,УголКонца, Радиус: word);Действие:Вычерчивает сектор радиуса Радиус с центром в точке с координатами (х,у). Параметры УголНачала и УголКонца задают угловые координаты начальной и конечной точек линии окружности (в градусах), которая вычерчивается против часовой стрелки от начальной к конечной точке. Значение угловой координаты возрастает против часовой стрелки. Нулевому углу соответствует горизонтальный отрезок, проведенный из […]
Синтаксис:procedure OutTextXY(x, у: integer; Текст: string);Действие:Устанавливает указатель вывода в точку с координатами (х,у) и выводит строку символов текст, при этом указатель вывода своего положения не меняет, остается в точке с координатами (я, у).Цвет выводимых символов можно задать при помощи процедуры SetColor, а шрифт — процедурой SetTextStyle.
Синтаксис:procedure OutText{Текст: string);Действие:Выводит строку символов текст от текущего положения указателя вывода и перемещает указатель вывода в точку, расположенную за последним выведенным символом.Цвет выводимых символов можно задать при помощи процедуры SetColor, а шрифт — SetTextStyle.
Синтаксис:procedure MoveRel(dx:, dy: integer);Действие:Перемещает указатель вывода на dx и dy пикселов. Если значение параметра dx (dy) положительное, то указатель перемещается вниз (влево), если отрицательное, то — вверх (вправо).
Синтаксис:procedure MoveTo(x,у: integer);Действие:Перемещает указатель вывода в точку с координатами х и у.
Синтаксис:procedure Line(x2,yl: integer);Действие:Вычерчивает линию от текущего положения указателя вывода до точки, координаты которой указаны при вызове процедуры. Линия вычерчивается стилем, установленным процедурой SetLineStyle. Цвет линии можно задать при помощи процедуры SetColor.