blob: 24fd6de8833f1655376f4e51bf087267a5f9b632 (
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
|
-- Copyright: OpenCASCADE
-- File: OSD_FontMgr.cdl
-- Created: 20.01.2008
-- Author: Alexander A. BORODIN
-- Updated:
class FontMgr from OSD inherits TShared from MMgt
---Purpose: Structure for store of Font System Information
uses Path,
SystemFont,
NListOfSystemFont,
AsciiString from TCollection
is
GetInstance(myclass)
returns FontMgr;
---Level: Public
GetAvalableFonts(me)
returns NListOfSystemFont;
--- Private methods
Create returns FontMgr is private;
---Purpose: Creates empty font object
---Level: Private
InitFontDataBase(me:mutable) is private;
fields
MyListOfFonts: NListOfSystemFont;
end FontMgr;
|