1 type Style
2 {
3 //str pFontName
4 //str pFontBold
5 //str pFontSize
6
7 uint hFont
8 uint fNewFont
9 uint hBrush
10 uint fNewBrush
11
12 uint fTextColor
13 uint pTextColor
14
15 str pDescr
16 //uint FontColor
17 //uint bkcolor
18 }
19
20
21
22 type Styles <inherit=hash index=Style>
23 {
24 }
25
26 method Styles.oftype( uint ctype )
27 {
28 return
29 }
30
31 method Styles.init()
32 {
33 this->hash.oftype( Style )
34 }
35 /*
36 property ustr Style.FontName<result>()
37 {
38 }
39
40 property Style.FontName( ustr name )
41 {
42 }
43
44 property uint Style.FontBold()
45 {
46 }
47
48 property Style.FontBold( uint val )
49 {
50 }*/
51
52 /*method Style.SetFont( str descr )
53 {
54 gt fgt
55 fgt.load( descr )
56
57 }*/
58
59
60
61
62 method Style Styles.GetStyle( str name )
63 {
64 uint find = this.find(name)
65 return find->Style
66 //return this[name]//->Style
67 }
68
69
70 method Style.Free()
71 {
72 if .fNewBrush : DeleteObject( .hBrush )
73 if .fNewFont : DeleteObject( .hFont )
74 .hBrush = 0
75 .hFont = 0
76 .fNewFont = 0
77 .fNewBrush = 0
78 .pTextColor = 0
79 .fTextColor = 0
80 }
81
82 method Style.delete()
83 {
84 .Free()
85 }
86
87 method Style.Update( )
88 {
89 .Free()
90 gt dgt
91 dgt.root().load( .pDescr )
92 str attrib
93 uint istyle as dgt.root().findrel("/style")
94 if &istyle &&
95 uint( istyle.get( "ver", "" ) ) == 1
96 {
97 uint ibrush as istyle.findrel( "/brush" )
98 if &ibrush
99 {
100 if *ibrush.get( "color", attrib )
101 {
102 if "".substr( attrib, 0, 9 ) == "syscolor_"
103 {
104 .hBrush = GetSysColorBrush( uint( "".substr( attrib, 9, *attrib - 9 ) ))// + 1
105 }
106 else
107 {
108 LOGBRUSH lb
109 lb.lbStyle = 0//$BS_SOLID
110 lb.lbColor = uint( attrib )
111 lb.lbHatch = 0
112 .hBrush = CreateBrushIndirect( lb )
113 .fNewBrush = 1
114 }
115 /*switch attrib
116 {
117 case "SCROLLBAR" = 0
118 case "BACKGROUND" = 1
119 case "ACTIVECAPTION" = 2
120 case "INACTIVECAPTION" = 3
121 case "MENU" = 4
122 case "WINDOW" = 5
123 case "WINDOWFRAME" = 6
124 case "MENUTEXT" = 7
125 case "WINDOWTEXT" = 8
126 case "CAPTIONTEXT" = 9
127 case "ACTIVEBORDER" = 10
128 case "INACTIVEBORDER" = 11
129 case "APPWORKSPACE" = 12
130 case "HIGHLIGHT" = 13
131 case "HIGHLIGHTTEXT" = 14
132 case "BTNFACE" = 15
133 case "BTNSHADOW" = 16
134 case "GRAYTEXT" = 17
135 case "BTNTEXT" = 18
136 case "INACTIVECAPTIONTEXT" = 19
137 case "BTNHIGHLIGHT" = 20
138 default
139 {
140 uint color = uint( attrib )
141 }
142 }*/
143 }
144 }
145
146 uint itext as istyle.findrel( "/text" )
147 if &itext
148 {
149 if *itext.get( "color", attrib )
150 {
151 .fTextColor = 1
152 if "".substr( attrib, 0, 9 ) == "syscolor_"
153 {
154 //.hTextColor = uint( "".substr( attrib, 9, *attrib - 9 ) )
155 .pTextColor = GetSysColor( uint( "".substr( attrib, 9, *attrib - 9 ) ) )
156 }
157 else
158 {
159 //.hTextColor = 0x1000
160 .pTextColor = uint( attrib )
161 }
162 }
163 }
164 uint ifont as istyle.findrel( "/font" )
165 if &ifont
166 {
167 LOGFONT lf
168 GetObject( GetStockObject( $DEFAULT_GUI_FONT ), sizeof( LOGFONT ), &lf )
169 if *ifont.get( "name", attrib )
170 {
171 if *attrib > 63 : attrib.setlen( 63 )
172 mcopy( &lf.lfFaceName, attrib.ptr(), *attrib )
173 }
174 if *ifont.get( "size", attrib )
175 {
176 if attrib[0] == '+' || attrib[1] == '-'
177 {
178 lf.lfHeight -= int( attrib )
179 }
180 else
181 {
182 lf.lfHeight = int( attrib )
183 }
184 }
185 if *ifont.get( "bold", attrib )
186 {
187 lf.lfWeight = ?( uint( attrib ), 800, 400 )
188 }
189 if *ifont.get( "underline", attrib )
190 {
191 lf.lfUnderline = uint( attrib )
192 }
193 if *ifont.get( "italic", attrib )
194 {
195 lf.lfItalic = uint( attrib )
196 }
197 if *ifont.get( "strikeout", attrib )
198 {
199 lf.lfUnderline = uint( attrib )
200 }
201 .hFont = CreateFontIndirect( lf )
202 .fNewFont = 1
203 }
204 }
205 }
206
207
208 method Style Styles.AddStyle( str name, str descr )
209 {
210 uint s as this[name]
211 s.pDescr = descr
212 s.Update()
213 return s
214 }
215
216 method Styles.Update()
217 {
218 foreach s, this
219 {
220 s.Update()
221 }
222 }