Графические методы

Объект в этом и в последующих синтаксических определениях графических методов можно не указывать. Если объект опущен, то действие метода относится к текущей форме.

Для нанесения точки применяется метод PSet

PSet Step (0, 0)[, Цвет]

Слово Step перед координатами означает, что они отсчитываются относительно последней точки рисования.

Например, инструкция Line (100, 200)–(150, 250) эквивалентна инструкции Line (100, 200)–Step(50, 50).

Если первая пара координат опущена, то линия будет нарисована от позиции текущей точки, которой является последняя точка рисования, до точки с координатами (x2, y2). Текущая точка может быть также задана с помощью ее координат CurrentX и CurrentY.

Например, следующие инструкции нарисуют треугольник:

CurrentX = 500

CurrentY = 1500

Line –(2000, 3000)

Line –(1000, 3000)

Line –(500, 1500)

Если аргумент Цвет опущен, то цвет линии определяется значением свойства ForeColor объекта.

Для рисования прямоугольников вместе с методом Line используется аргумент B, например инструкция

Line (200, 200)–Step(1000, 1000), , B

нарисует квадрат со стороной 1000 твипов. Две запятые перед аргументом B указывают, что аргумент Цвет опущен.

Для рисования окружностей, эллипсов, дуг и секторов может быть применен метод Circle. Ниже показан синтаксис этого метода:

[Объект.]Circle [Step](x, y), Радиус[, [Цвет][, [Нач], [Кон][, Вид]]]

Здесь приняты некоторые новые обозначения:

x, y – координаты центра;

Радиус – радиус окружности, для эллипса – размер более длинной полуоси;

Нач и Кон – выраженный в радианах угол начала и угол конца дуги, которые присутствуют или отсутствуют в обращении к методу только вместе;

Вид – отношение вертикальной полуоси эллипса к горизонтальной полуоси (по умолчанию равен 1).

Например, процедура Form_Click в режиме выполнения после щелчка на форме нарисует на форме дугу окружности с центром в точке с координатами 2000, 1500, радиуса 1000 твипов, от начальной точки, расположенной под углом pi / 2, против часовой стрелки, до конечной точки, находящейся под углом pi / 3:

Private Sub Form_Click()

Const pi = 3.14159265

Circle (2000, 1500), 1000, , pi / 2, pi / 3

End Sub

Если перед началом или перед концом дуги поставить знак минус, то при рисовании дуги эта точка дуги будет соединена прямой с центром окружности.

Обращение Circle (600, 1000), 800, , , , 2 нарисует эллипс, вертикальная ось которого равна 1600, а горизонтальная ось равна 800.

При рисовании прямоугольника, круга или эллипса эти фигуры могут быть заполнены сплошным цветом или цветными линиями.

Свойство FillStyle отвечает за вид заполнения рисуемой фигуры, предлагая на выбор один из восьми видов заполнения. По умолчанию имеет значение 1 – Transparent (прозрачное, фигура выглядит незаполненной). Значение этого свойства 0 – Solid обеспечивает заполнение фигуры сплошным цветом, установленным свойством FillColor. Остальные значения 2 – 7 предлагают заполнение вертикальными, горизонтальными, наклонными линиями или в клетку.

Толщина линии при выводе задается значением свойства DrawWidth объекта.

Будет линия сплошной или различного вида прерывистой – определяет значение свойства DrawStyle объекта.

Свойство AutoRedraw формы или графического поля разрешает (при его значении, равном True) или запрещает (при его значении, равном False) перерисовывание результатов работы графических методов, например при изменении размеров окна.

Методы, осуществляющие вывод информации на форму, позволяют направлять ее непосредственно на принтер. Принтер (объект Printer) рассматривается как особая форма, размер кото­рой совпадает с размером печатаемой страницы. Метод Scale применим для объекта Printer и позволяет установить нужную систему координат.