Подпрограммы для работы с графическим окном
Доступ к свойствам графического окна можно осуществлять как в процедурном, так и в объектно-ориентированном стиле.
Процедуры и функции для доступа к свойствам окна
сгруппированы парами: если 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.