Подпрограммы для работы с графическим окном

Доступ к свойствам графического окна можно осуществлять как в процедурном, так и в объектно-ориентированном стиле.

Процедуры и функции для доступа к свойствам окна сгруппированы парами: если Prop - имя свойства кисти, то функция PenProp возвращает значение этого свойства, а процедура SetPenProp(p) устанавливает это свойство:

function WindowWidth: integer;         Возвращает ширину клиентской части графического окна в пикселах

function WindowHeight: integer;         Возвращает высоту клиентской части графического окна в пикселах

function WindowLeft: integer;         Возвращает отступ графического окна от левого края экрана в пикселах

function WindowTop: integer;         Возвращает отступ графического окна от верхнего края экрана в пикселах

function WindowIsFixedSize: boolean;         Возвращает True, если графическое окно имеет фиксированный размер, и False в противном случае

procedure SetWindowWidth(w: integer);         Устанавливает ширину клиентской части графического окна в пикселах

procedure SetWindowHeight(h: integer);         Устанавливает высоту клиентской части графического окна в пикселах

procedure SetWindowLeft(l: integer);         Устанавливает отступ графического окна от левого края экрана в пикселах

procedure SetWindowTop(t: integer);         Устанавливает отступ графического окна от верхнего края экрана в пикселах

procedure SetWindowIsFixedSize(b: boolean);         Устанавливает, имеет ли графическое окно фиксированный размер

function WindowCaption: string;         Возвращает заголовок графического окна

function WindowTitle: string;         Возвращает заголовок графического окна

procedure SetWindowCaption(s: string);         Устанавливает заголовок графического окна

procedure SetWindowTitle(s: string);         Устанавливает заголовок графического окна

procedure SetWindowSize(w,h: integer);         Устанавливает размеры клиентской части графического окна в пикселах

procedure SetWindowPos(l,t: integer);         Устанавливает отступ графического окна от левого верхнего края экрана в пикселах

procedure ClearWindow;         Очищает графическое окно белым цветом

procedure ClearWindow(c: Color);         Очищает графическое окно цветом c

procedure InitWindow(Left,Top,Width,Height: integer; BackColor: Color := clWhite);         Устанавливает ширину и высоту клиентской части графического окна в пикселах

procedure SaveWindow(fname: string);         Сохраняет содержимое графического окна в файл с именем fname

procedure LoadWindow(fname: string);         Восстанавливает содержимое графического окна из файла с именем fname

procedure FillWindow(fname: string);         Заполняет содержимое графического окна обоями из файла с именем fname

procedure CloseWindow;         Закрывает графическое окно и завершает приложение

procedure CenterWindow;         Центрирует графическое окно по центру экрана

function WindowCenter: Point;         Возвращает центр графического окна

procedure MaximizeWindow;         Максимизирует графическое окно

procedure MinimizeWindow;         Сворачивает графическое окно

procedure NormalizeWindow;         Возвращает графическое окно к нормальному размеру

Кроме того, можно возвращать размеры экрана Screen, а также размеры и положение графического компонента GraphBox, на котором осуществляется рисование:

function GraphBoxWidth: integer;         Возвращает ширину графического компонента в пикселах (по умолчанию совпадает с WindowWidth)

function GraphBoxHeight: integer;         Возвращает высоту графического компонента в пикселах (по умолчанию совпадает с WindowHeight)

function GraphBoxLeft: integer;         Возвращает отступ графического компонента от левого края окна в пикселах

function GraphBoxTop: integer;         Возвращает отступ графического компонента от верхнего края окна в пикселах

function ScreenWidth: integer;         Возвращает ширину экрана в пикселях

function ScreenHeight: integer;         Возвращает высоту экрана в пикселях

Можно также изменять свойства графического окна через объект Window.