blob: bcac0f9378649c2258d4a646c93f976cd7dcb4a5 (
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
116
117
118
119
120
121
122
123
124
125
126
127
128
|
-- File: WNT_FontMapEntry.cdl
-- Created: Mon Jan 29 13:07:57 1996
-- Author: PLOTNIKOV Eugeny
-- <eugeny@proton>
---Copyright: Matra Datavision 1996
class FontMapEntry from WNT inherits TShared from MMgt
---Purpose: Defines correspondence between FontMapEntry from
-- Aspect and Windows NT font handle. Also, provides
-- some optimizations due to rotation, italics & underlining
-- of fonts. Each font can be reffered by its name which
-- is a character string. The format of the string takes
-- after format of font name of X window system but there
-- are some differences. The font name string format is:
-- "h-w-e-o-wgt-i-u-so-cs-op-cp-q-pf-face".
-- ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^ ^
-- | | | | | | | | | | | | | |
-- | | | | | | | | | | | | | +- name of the typeface
-- | | | | | | | | | | | | | (Courier, Arial ...)
-- | | | | | | | | | | | | +- pitch and family
-- | | | | | | | | | | | +- quality
-- | | | | | | | | | | +- clip precision
-- | | | | | | | | | +- out precision
-- | | | | | | | | +- character set
-- | | | | | | | +- strike out
-- | | | | | | +- underline
-- | | | | | +- italic
-- | | | | +- weight
-- | | | +- orientation
-- | | +- escapement
-- | +- width
-- +- height
-- Wildcarding is allowed by specifying '*' sign. This means
-- a default value for parameter.
-- Example: "13-8-*-*-400-*-*-*-255-1-2-*-25-courier".
-- For more detail information see Microsoft Windows manual.
-- Warning: Windows can output rotated text only if the selected for
-- drawing font is True Type.
uses
Handle from Aspect,
LogFont from WNT,
Dword from WNT,
Factor from Quantity,
PlaneAngle from Quantity
raises
FontMapEntryDefinitionError from WNT
is
Create ( aFontName : CString from Standard )
returns mutable FontMapEntry from WNT
---Purpose: Creates a class and loads font.
-- Warning: Windows finds the real font that most closely matches
-- the request. In doing so, it uses a
-- "font-mapping-algorythm". So it is possible that loaded
-- font differs from font in the request.
-- Trigger: Raises if font loading failed.
raises FontMapEntryDefinitionError from WNT;
Destroy ( me : mutable ) is virtual;
---Level: Public
---Purpose: Destroys all ressources attached to the FontMapEntry
---C++: alias ~
HFont ( me ) returns Handle from Aspect;
---Level: Public
---Purpose: Returns handle of the font.
SetAttrib (
me : mutable;
aFlags : Dword from WNT;
aData : Address from Standard;
aRepl : Boolean from Standard = Standard_False
) returns Handle from Aspect is static;
---Level: Internal
---Purpose: Sets certain attributes ( italics etc. ) for font.
-- Warning: If <aRepl> is True then creates a new handle for font.
-- In this case calling routine MUST DELETE THE FONT ITSELF
-- WHEN THE FONT BECOME NO LONGER NEEDED.
SetSlant ( me : mutable; aSlant : PlaneAngle from Quantity )
returns PlaneAngle from Quantity is static;
---Level: Internal
---Purpose: Sets the font's slant and returns a previous one.
---C++: inline
SetScale ( me : mutable; aScale : Factor from Quantity )
returns Factor from Quantity is static;
---Level: Internal
---Purpose: Sets the font's scale and returns a previous one.
---C++: inline
Slant ( me )
returns PlaneAngle from Quantity is static;
---Level: Internal
---Purpose: Returns value of the font's slant.
---C++: inline
Scale ( me )
returns Factor from Quantity is static;
---Level: Internal
---Purpose: Returns value of the font's scale.
---C++: inline
LogFont ( me )
returns Address from Standard is static;
---Level: Internal
---Purpose: Returns pointer to LogFont structure.
---C++: inline
fields
myLogFont : LogFont from WNT is protected;
myHandle : Handle from Aspect is protected;
myScale : Factor from Quantity is protected;
mySlant : PlaneAngle from Quantity is protected;
friends
class WDriver from WNT,
class DDriver from WNT
end FontMapEntry;
|
