Subversion Repositories Kolibri OS

Rev

Rev 9896 | Show entire file | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 9896 Rev 9898
Line 1... Line 1...
1 
(*
 1 
(*
2 
    Copyright 2016, 2021 Anton Krotov
 2 
    Copyright 2016, 2021, 2023 Anton Krotov
Line 3... Line 3...
3 
 
 3 
 
Line 4... Line 4...
4 
    This file is part of fb2read.
 4 
    This file is part of fb2read.
5 
 
 5 
 
Line 21... Line 21...
21 
 
 21 
 
Line 22... Line 22...
22 
IMPORT S := Strings;
 22 
IMPORT S := Strings;
Line 23... Line 23...
23 
 
 23 
 
24 
TYPE
 24 
TYPE
25 
 
 25 
 
Line 26... Line 26...
26 
  TRect* = RECORD
 26 
	tRect* = RECORD
27 
    Left*, Top*, Width*, Height* : INTEGER
 27 
		left*, top*, width*, height* : INTEGER
28 
  END;
 28 
	END;
29 
 
 29 
 
30 
  TWindow* = RECORD (TRect)
 30 
	tWindow* = RECORD (tRect)
Line -... Line 31...
- 
 
 31 
		caption*           : S.STRING;
31 
    Caption*             : S.STRING;
 32 
		created*           : BOOLEAN;
32 
    Created*             : BOOLEAN;
 33 
		dWidth*, dHeight*  : INTEGER
33 
    dWidth*, dHeight*    : INTEGER
 34 
	END;
34 
  END;
 35 
 
35 
 
 36 
 
36 
PROCEDURE InitWindow*(VAR Window: TWindow; Left, Top, Width, Height: INTEGER; Caption: ARRAY OF CHAR);
 37 
PROCEDURE initRect* (VAR Rect: tRect; left, top, width, height: INTEGER);
37 
BEGIN
 - 
 
38 
  Window.Left    := Left;
 - 
 
39 
  Window.Top     := Top;
 - 
 
40 
  Window.Width   := Width;
 - 
 
41 
  Window.Height  := Height;
 38 
BEGIN
Line 42... Line 39...
42 
  Window.Created := FALSE;
 39 
	Rect.left   := left;
43 
  Window.dWidth  := 0;
 40 
	Rect.top    := top;
44 
  Window.dHeight := 0;
 41 
	Rect.width  := width;
45 
  COPY(Caption, Window.Caption)
 42 
	Rect.height := height
46 
END InitWindow;
 43 
END initRect;
47 
 
 44 
 
- 
 
 45 
 
48 
 
 46 
PROCEDURE init* (VAR window: tWindow; left, top, width, height: INTEGER; caption: ARRAY OF CHAR);
Line 49... Line 47...
49 
PROCEDURE InitRect*(VAR Rect: TRect; Left, Top, Width, Height: INTEGER);
 47 
BEGIN