forked from KolibriOS/kolibrios
59 lines
1.5 KiB
Plaintext
59 lines
1.5 KiB
Plaintext
|
(*
|
||
|
|
Copyright 2016, 2021 Anton Krotov
|
||
|
|
|
||
|
|
This file is part of fb2read.
|
||
|
|
|
||
|
|
fb2read is free software: you can redistribute it and/or modify
|
||
|
|
it under the terms of the GNU General Public License as published by
|
||
|
|
the Free Software Foundation, either version 3 of the License, or
|
||
|
|
(at your option) any later version.
|
||
|
|
|
||
|
|
fb2read is distributed in the hope that it will be useful,
|
||
|
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||
|
|
GNU General Public License for more details.
|
||
|
|
|
||
|
|
You should have received a copy of the GNU General Public License
|
||
|
|
along with fb2read. If not, see <http://www.gnu.org/licenses/>.
|
||
|
|
*)
|
||
|
|
|
||
|
|
MODULE Window;
|
||
|
|
|
||
|
|
IMPORT S := Strings;
|
||
|
|
|
||
|
|
TYPE
|
||
|
|
|
||
|
|
TRect* = RECORD
|
||
|
|
Left*, Top*, Width*, Height* : INTEGER
|
||
|
|
END;
|
||
|
|
|
||
|
|
TWindow* = RECORD (TRect)
|
||
|
|
Caption* : S.STRING;
|
||
|
|
Created* : BOOLEAN;
|
||
|
|
dWidth*, dHeight* : INTEGER
|
||
|
|
END;
|
||
|
|
|
||
|
|
PROCEDURE InitWindow*(VAR Window: TWindow; Left, Top, Width, Height: INTEGER; Caption: ARRAY OF CHAR);
|
||
|
|
BEGIN
|
||
|
|
Window.Left := Left;
|
||
|
|
Window.Top := Top;
|
||
|
|
Window.Width := Width;
|
||
|
|
Window.Height := Height;
|
||
|
|
Window.Created := FALSE;
|
||
|
|
Window.dWidth := 0;
|
||
|
|
Window.dHeight := 0;
|
||
|
|
COPY(Caption, Window.Caption)
|
||
|
|
END InitWindow;
|
||
|
|
|
||
|
|
|
||
|
|
PROCEDURE InitRect*(VAR Rect: TRect; Left, Top, Width, Height: INTEGER);
|
||
|
|
BEGIN
|
||
|
|
Rect.Left := Left;
|
||
|
|
Rect.Top := Top;
|
||
|
|
Rect.Width := Width;
|
||
|
|
Rect.Height := Height
|
||
|
|
END InitRect;
|
||
|
|
|
||
|
|
|
||
|
|
END Window.
|