Кроме того, можно возвращать размеры экрана Screen, а также размеры и положение графического компонента GraphBox, на котором осуществляется рисование: function GraphBoxWidth: integer; Возвращает ширину графического компонента в пикселах (по умолчанию совпадает с WindowWidth) |
function GraphBoxHeight: integer; Возвращает высоту графического компонента в пикселах (по умолчанию совпадает с WindowHeight) |
function GraphBoxLeft: integer; Возвращает отступ графического компонента от левого края окна в пикселах |
function GraphBoxTop: integer; Возвращает отступ графического компонента от верхнего края окна в пикселах |
function ScreenWidth: integer; Возвращает ширину экрана в пикселях |
function ScreenHeight: integer; Возвращает высоту экрана в пикселях |
Можно также изменять свойства графического окна через объект Window.
Класс GraphABCWindow графического окна
Класс GraphABCWindow представляет собой графическое окно. Функция
function Window: GraphABCWindow;
возвращает объект текущего графического окна.
property Left: integer; Отступ графического окна от левого края экрана в пикселах |
property Top: integer; Отступ графического окна от верхнего края экрана в пикселах |
property Width: integer; Ширина клиентской части графического окна в пикселах |
property Height: integer; Высота клиентской части графического окна в пикселах |
property Caption: string; Заголовок графического окна |
property Title: string; Заголовок графического окна |
property IsFixedSize: boolean; Имеет ли графическое окно фиксированный размер |
procedure Clear; Очищает графическое окно белым цветом |
procedure Clear(c: Color); Очищает графическое окно цветом c |
procedure SetSize(w,h: integer); Устанавливает размеры клиентской части графического окна в пикселах |
procedure SetPos(l,t: integer); Устанавливает отступ графического окна от левого верхнего края экрана в пикселах |
procedure Init(Left,Top,Width,Height: integer; BackColor: Color := clWhite); Устанавливает положение, размеры и цвет графического окна |
procedure Save(fname: string); Сохраняет содержимое графического окна в файл с именем fname |
procedure Load(fname: string); Восстанавливает содержимое графического окна из файла с именем fname |
procedure Fill(fname: string); Заполняет содержимое графического окна обоями из файла с именем fname |
procedure Close; Закрывает графическое окно и завершает приложение |
procedure Minimize; Сворачивает графическое окно |
procedure Maximize; Максимизирует графическое окно |
procedure Normalize; Возвращает графическое окно к нормальному размеру |
procedure CenterOnScreen; Центрирует графическое окно по центру экрана |
function Center: Point; Возвращает центр графического окна |