Выводит на рисунке строку s в прямоугольник к координатами левого верхнего угла (x,y)
procedure FloodFill(x,y: integer; c: Color);
Заливает на рисунке область одного цвета цветом c, начиная с точки (x,y).
procedure Clear;
Очищает рисунок белым цветом
procedure Clear(c: Color);
Очищает рисунок цветом c
Подпрограммы для работы с графическим окном
Доступ к свойствам графического окна можно осуществлять как в процедурном, так и в объектно-ориентированном стиле.
Процедуры и функции для доступа к свойствам окна сгруппированы парами: если 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(class="underline" 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.
Класс 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 |