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
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
|
-- File: WNT.cdl
-- Created: Tue Jan 23 16:05:48 1996
-- Authors: LAVNIKOV Alexey, PLOTNIKOV Eugeny & CHABROVSKY Dmitry
-- <eugeny@proton>
-- Modifications: DCB at March 1998 Porting MFT for Windows NT (95)
-- PLOTNIKOV Eugeny at July 1998 (BUC60286)
-- VKH at October 1999 (class PixMap added)
---Copyright: Matra Datavision 1996
package WNT
---Purpose: This package contains common Windows NT graphics interface.
uses
Aspect,
Image,
PlotMgt,
Quantity,
TCollection,
TColStd,
TShort,
MMgt,
OSD,
MFT
is
-----------------------
-- Category: Exceptions
-----------------------
exception ClassDefinitionError inherits ConstructionError;
---Category: Exceptions
exception FontMapEntryDefinitionError inherits ConstructionError;
---Category: Exceptions
--------------------
-- Category: Classes
--------------------
class GraphicDevice;
---Purpose: Creates the graphic device associated with DISPLAY.
---Category: Classes
class WDriver;
---Purpose: Creates the window driver.
---Category: Classes
class DDriver;
---Purpose: Creates the device driver ( for printing/plotting )
---Category: Classes
class Window;
---Purpose: Creates the Window drawable.
---Category: Classes
class PixMap;
---Purpose: Creates a windows bitmap
---Category: Classes
class WClass;
---Purpose: Creates a Windows NT window class.
---Category: Classes
class IconBox;
---Purpose: Creates the Icon Box window.
---Category: Classes
class FontMapEntry;
---Purpose: Defines correspondence between FontMapEntry from
-- Aspect and Windows NT font handle.
---Category: Classes
class ImageManager;
---Purpose: Creates and manages images and/or icons.
---Category: Classes
class Image;
---Purpose: Defines the class
---Category: Classes
class Icon;
---Purpose: Defines the class
---Category: Classes
class TextManager;
---Purpose: Defines the class for text drawing with MFT
---Category: Classes
---------------------------
-- Category: Enumerations
---------------------------
enumeration OrientationType is
OT_PORTRAIT,
OT_LANDSCAPE
end OrientationType;
---Purpose: Portrait/landscape orientation.
enumeration TypeOfImage is
TOI_BMP, --Windows NT's device independent bitmap
TOI_XWD, --X windows's image format
TOI_GIF --CompuServe's Graphic Interchange Format
end TypeOfImage;
---------------------------
-- Category: Imported types
---------------------------
imported Long;
---Purpose: Defines a Windows NT LONG type.
---Category: Imported types
imported Dword;
---Purpose: Defines a Windows NT DWORD type.
---Category: Imported types
imported Uint;
---Purpose: Defines a Windows NT UINT type.
---Category: Imported types
imported LogFont;
---Purpose: Defines a Windows NT LOGFONT type.
---Category: Imported types
imported ColorRef;
---Purpose: Defines a Windows NT COLORREF type.
---Category: Imported types
imported WindowData;
---Purpose: Defines additional window data type.
---Category: Imported types
---------------------------------
-- Category: Pointers
---------------------------------
pointer WindowPtr to Window from WNT;
---------------------------------
-- Category: Instantiated classes
---------------------------------
class ColorTable instantiates
Array1 from TCollection ( ColorRef from WNT );
class HColorTable instantiates
HArray1 from TCollection ( ColorRef from WNT, ColorTable from WNT );
class FontTable instantiates
Array1 from TCollection ( FontMapEntry from WNT );
class HFontTable instantiates
HArray1 from TCollection (
FontMapEntry from WNT,
FontTable from WNT
);
class SequenceOfImage instantiates
Sequence from TCollection ( Image from WNT );
---------------------------------
-- Changes for MFT Text drawing
---------------------------------
class ListOfMFTFonts instantiates
Array1 from TCollection (FontManager from MFT);
class HListOfMFTFonts instantiates
HArray1 from TCollection (FontManager from MFT, ListOfMFTFonts);
end WNT;
|
