blob: 95048b6fc2507068851580bb8c95a3f3c4d3bd39 (
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
|
-- Copyright: OpenCASCADE
-- File: OSD_SystemFont.cdl
-- Created: 20.01.2008
-- Author: Alexander A. BORODIN
-- Updated:
class SystemFont from OSD inherits TShared from MMgt
---Purpose: Structure for store of Font System Information
uses FontAspect,
HAsciiString from TCollection
is
Create returns SystemFont;
---Purpose: Creates empty font object
---Level: Public
Create (
FontName : HAsciiString;
Aspect : FontAspect;
FilePath : HAsciiString ) returns SystemFont;
---Purpose: Creates Font object initialized with <FontName> as name
--- <FontAspect>.... TODO
---Level: Public
Create (
XLFD : HAsciiString;
FilePath : HAsciiString ) returns SystemFont;
---Purpose: TODO
---Level: Public
FontName (me)
returns HAsciiString;
--- Purpose: Returns font family name
---Level: Public
FontPath (me)
returns HAsciiString;
--- Purpose: Returns font file path
--- Level: Public
FontAspect (me)
returns FontAspect from OSD;
--- Purpose: Returns font aspect
--- Level: Public
FontHeight (me)
returns Integer from Standard;
--- Purpose: Returns font height
--- If returned value is equal -1 it means that font is resizable
--- Level: Public
IsValid( me )
returns Boolean;
fields
MyFontName: HAsciiString; --Font family name
MyFontAspect: FontAspect;
MyFaceSize: Integer; --height of font
MyFilePath: HAsciiString; --absolute path to font file
MyVerification: Boolean; --indicator of font initialization errors. False if initialization is failed.
end SystemFont;
|
