blob: 8f39dbf9c70c358e9289e87495c0be1e1a6c9fae (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
|
Unit HelpWindow;
{$mode objfpc}{$H+}
// NewView - a new OS/2 Help Viewer
// Copyright 2001 Aaron Lawrence (aaronl at consultant dot com)
// This software is released under the Gnu Public License - see readme.txt
Interface
// What a misnomer. This really just contains a few definitions
// and functions relevant to helpwindow dimensions.
uses
DataTypes, HelpFileHeader;
const
ptCharacters = 0;
ptPercentage = 1;
ptPixels = 2;
ptPoints = 3;
ptDynamic = 4;
XPosRight = 577;
YPosTop = 577;
XYPosCenter = 578;
type
THelpWindowRect = class
Left: longint;
Bottom: longint;
Width: longint;
Height: longint;
constructor Create;
end;
procedure SetFootnoteRect( Var Rect: THelpWindowRect );
procedure ReadHelpSize( const XY: THelpXYPair;
Var Rect: THelpWindowRect );
procedure ReadHelpPosition( const XY: THelpXYPair;
Var Rect: THelpWindowRect );
Implementation
constructor THelpWindowRect.Create;
begin
Left:= -1;
Bottom:= -1;
Width:= -1;
Height:= -1;
end;
function GetPos( const PositionType: int8;
const Value: longint ): longint;
begin
case PositionType of
ptCharacters:
Result:= Value;
ptPercentage:
Result:= Value;
ptPixels:
Result:= Value * 5;
ptPoints:
Result:= Value;
ptDynamic:
case Value of
1: Result:= 0; // left
2: Result:= XPosRight; // right
4: Result:= 0; // bottom
8: Result:= YPosTop; // top
16: Result:= 50; //XYPosCenter; // center.
end;
end;
end;
procedure ReadHelpPosition( const XY: THelpXYPair;
Var Rect: THelpWindowRect );
var
XPositionType: int8;
YPositionType: int8;
begin
// read origin
XPositionType:= XY.Flags div 16;
YPositionType:= XY.Flags and 15;
if XY.X <> -1 then
Rect.Left:= GetPos( XPositionType, XY.X );
if XY.Y <> -1 then
Rect.Bottom:= GetPos( YPositionType, XY.Y );
end;
procedure ReadHelpSize( const XY: THelpXYPair;
Var Rect: THelpWindowRect );
begin
if XY.X <> -1 then
Rect.Width:= XY.X;
if XY.Y <> -1 then
Rect.Height:= XY.Y;
end;
procedure SetFootnoteRect( Var Rect: THelpWindowRect );
begin
with Rect do
begin
Left:= 10;
Width:= 80;
Bottom:= 10;
Height:= 40;
end;
end;
Initialization
End.
|
