Graphabc підпрограми для роботи з графічним вікном

Доступ до властивостей графічного вікна можна здійснювати як в процедурному, так і в об'єктно-орієнтованому стилі.

Процедури і функції для доступу до властивостей вікна згруповані парами: якщо 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;
Повертає висоту екрана в пікселях

Схожі статті