Графические функции

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

Объект _SCREEN. Основные свойства.

Основные свойства объекта _SCREEN:

BackColor

Caption

Closable

ControlBox

CurrentX

CurrentY

DrawMode

DrawStyle

DrawWidth

FillColor

FillStyle

FontBold

FontItalic

FontName

FontSize

FontStrikeThru

FontUnderline

Forecolor

Height

Left

MaxButton

MinButton

Movable

Picture

Top

Width

WindowState

 

Статус основного окна (т.е. состояние основного окна VFP на экране – окно развернуто на весь экран, минимизировано – свернуто в иконку, или в нормальном виде) определяется свойством WindowState.

_SCREEN.WindowState = 0 – соответствует нормальному размеру окна

_SCREEN.WindowState = 1 – соответсвует минимальному размеру окна

В результате выполнения команды _SCREEN.WindowState = 2 основное окно VFP развернется до максимального размера.

Если окно находится в нормальном состоянии, можно управлять его положением и размерами. Для этого предназначены свойства Height, Width, Left, Top.

Свойства Height, Width – определяют ширину и высоту, а Left, Top определяют положение основного окна.

Например:

_SCREEN.WIDTH=400

_SCREEN.HEIGHT=300

установит ширину основного окна в 400 точек, а высоту – в 300 точек,

_SCREEN.LEFT=200

_SCREEN.TOP=100

установит расстояние от левого края рабочего стола до левого края экрана 200 точек и сдвинет рабочее окно разработки вниз на 100 точек.

Свойства MaxButton, MinButton, ControlBox, Closable включают и выключают элементы управления окна.

Примеры:

_screen.MaxButton=.f.

блокирует кнопку “Развернуть” (expand)

_screen.ControlBox=.t.

_screen.MinButton=.f.

блокирует кнопку “Свернуть” (minimize)

_screen.MinButton=.t.

_screen.closable=.f.

блокирует кнопку “Закрыть” (destroy)

_screen.closable=.t.

_screen.ControlBox=.f.

убирает все элементы управления окна, кроме меню.

 

Свойство Movable включает или выключает возможность перемещения окна пользователем (с помощью мыши).

После выполнения команды  _screen.Movable=.f.  основное окно VFP нельзя будет переместить мышью.

 

Свойства Caption, BackColor, ForeColor, Picture задают заголовок окна, цвет фона, цвет переднего плана окна и фоновое изображение окна соответственно.

Команда _screen.caption=”группа № 223” задаст заголовок основного окна VFP.

Цвет в Windows обычно задается в виде комбинации трех чисел, определяющих интенсивности красной, зеленой и синей компонент цвета при помощи макроса RGB(nR, nG, nB), здесь nR, nG, nB – числа в интервале от 0 до 255, определяющие интенсивность соответсвующего цвета.

Пример:

_screen.backcolor=rgb(255,0,0)

задает ярко красный цвет фона.

_screen.Picture=”u:\ris.bmp” отобразит на экране среды разработки VFP графический файл u:\ris.bmp.

Командой

_screen.Forecolor=rgb(0,255,0)

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

Методы объекта _SCREEN

Объект _SCREEN, как и любой объект, имеет свой набор процедур и функций (в терминах объектно-ориентированного подхода – набор методов). Такие функции и процедуры предназначенные для выполнения основных графических действий (рисование линий, прямоугольников, эллипсов, стирание экрана и т.д.), называются  графическими примитивами.

Рассмотрим основные графические примитивы (методы) объекта _SCREEN:

 

Box

Circle

Cls

Draw

Line

Point

Print

Pset

TextHeight

TextWidth

 

Работа с текстом. Метод Print

Метод Print предназначен для вывода текста на экран в текущую позицию. Текщая позиция определяется свойствами CurrentX, CurrentY.

Так, после выполнения следующих команд

_screen.Currenty=100

_screen.CurrentX=100

_screen.print("text")

на экране выведется текст “text” с позиции (100,100), естественно, точка с координатами (0,0) расположена в левом верхнем углу экрана, а ось Y направлена вниз, ось X – вправо.

Задать текущую точку можно не только свойствами CurrentX, CurrentY, но и методом Pset

_screen.pset(200,200)

_screen.print(“Новый текст”)

Текст будет напечатан, начиная с точки (200,200).

Метод Cls очищает экран от графического вывода, т.е. после команды _screen.cls с экрана сотрется все то, что было выведено графическими примитивами.