Кроме того, можно изменять свойства графического окна, используя соответствующие процедуры и функции.
Доступ к свойствам координат графического окна можно осуществлять как в процедурном, так и в объектно-ориентированном стиле.
Процедуры и функции для изменения системы координат окна приведены ниже:
procedure SetCoordinateOrigin(x0,y0: integer); Устанавливает начало координат в точку (x0,y0) |
procedure SetCoordinateScale(sx,sy: real); Устанавливает масштаб системы координат |
procedure SetCoordinateAngle(a: real); Устанавливает поворот системы координат |
Можно также изменять свойства системы координат графического окна через объект Coordinate.
Объект текущей системы координат возвращается функцией Coordinate и имеет тип GraphABCCoordinate:
function Coordinate: GraphABCCoordinate;
Класс GraphABCCoordinate представляет тип системы координат для графического окна.
property OriginX: integer; X-координата начала координат относительно левого верхнего угла окна |
property OriginY: integer; Y-координата начала координат относительно левого верхнего угла окна |
property Origin: Point; Координаты начала координат относительно левого верхнего угла окна |
property Angle: real; Угол поворота системы координат |
property ScaleX: real; Масштаб системы координат по оси X |
property ScaleY: real; Масштаб системы координат по оси Y |
property Scale: real; Масштаб системы координат по обоим осям |
property Matrix: System.Drawing.Drawing2D.Matrix; Матрица 3x3 преобразований координат |
procedure SetTransform(x0,y0,angle,sx,sy: real); Устанавливает параметры системы координат |
procedure SetOrigin(x0,y0: integer); Устанавливает начало системы координат |
procedure SetScale(sx,sy: real); Устанавливает масштаб системы координат |
procedure SetScale(scale: real); Устанавливает масштаб системы координат |
procedure SetMathematic; Устанавливает правую систему координат (ось OY направлена вверх, ось OX - вправо) |
procedure SetStandard; Устанавливает левую систему координат (ось OY направлена вниз, ось OX - вправо) |
Кроме того, можно изменять свойства системы координат, используя соответствующие процедуры и функции.
procedure Redraw;
Перерисовывает содержимое графического окна. Вызывается в паре с LockDrawing |
procedure LockDrawing; Блокирует рисование на графическом окне. Перерисовка графического окна выполняется с помощью Redraw |
procedure UnlockDrawing; Снимает блокировку рисования на графическом окне и осуществляет его перерисовку |
Блокировка вывода в графическое окно LockDrawing с последующим вызовом Redraw используется для простейшего создания анимации без мерцания.
Пример. Анимация без мерцания
procedure SetSmoothing(sm: boolean);
