Module Font_dlg.pkg
1// ************************************************************************* //
2// ** ** //
3// ** File : FONT_DLG.PKG ** //
4// ** ** //
5// ** Copyright (c) 1983-1997 Data Access Corporation, Miami Florida, ** //
6// ** All rights reserved. ** //
7// ** DataFlex is a registered trademark of Data Access Corporation. ** //
8// ** ** //
9// ** Author : Stuart W. Booth ** //
10// ** ** //
11// ** Author : Ulbe Stellema ** //
12// ** : Data Access Nederland ** //
13// ** : 17 october 1997 ** //
14// ** ** //
15// ** Purpose : Provides a DataFlex class that acts as a wrapper to ** //
16// ** the Windows Font-Dialog ** //
17// ** ** //
18// ** 17-10-1997 : Header created ** //
19// ** ** //
20// ************************************************************************* //
21Use VDFBase.pkg
22Use DLL.pkg
23Use GlobalFunctionsProcedures.pkg
24
25// Flags
26#REPLACE CF_SCREENFONTS |CI$00000001 // Supported
27#REPLACE CF_PRINTERFONTS |CI$00000002 // Not supported
28#REPLACE CF_BOTH (CF_SCREENFONTS iOr CF_PRINTERFONTS) // Not supported
29#REPLACE CF_SHOWHELP |CI$00000004 // Supported
30#REPLACE CF_ENABLEHOOK |CI$00000008 // Not supported
31#REPLACE CF_ENABLETEMPLATE |CI$00000010 // Not supported
32#REPLACE CF_ENABLETEMPLATEHANDLE |CI$00000020 // Not supported
33#REPLACE CF_INITTOLOGFONTSTRUCT |CI$00000040 // Class supplied
34#REPLACE CF_USESTYLE |CI$00000080 // Not supported
35#REPLACE CF_EFFECTS |CI$00000100 // Supported
36#REPLACE CF_APPLY |CI$00000200 // Not supported
37#REPLACE CF_ANSIONLY |CI$00000400 // Obsolete
38#REPLACE CF_NOVECTORFONTS |CI$00000800 // Supported
39#REPLACE CF_NOOEMFONTS CF_NOVECTORFONTS // Supported
40#REPLACE CF_NOSIMULATIONS |CI$00001000 // Supported
41#REPLACE CF_LIMITSIZE |CI$00002000 // Class supported
42#REPLACE CF_FIXEDPITCHONLY |CI$00004000 // Supported
43#REPLACE CF_WYSIWYG |CI$00008000 // Not supported
44#REPLACE CF_FORCEFONTEXIST |CI$00010000 // Supported
45#REPLACE CF_SCALABLEONLY |CI$00020000 // Supported
46#REPLACE CF_TTONLY |CI$00040000 // Supported
47#REPLACE CF_NOFACESEL |CI$00080000 // Supported
48#REPLACE CF_NOSTYLESEL |CI$00100000 // Supported
49#REPLACE CF_NOSIZESEL |CI$00200000 // Supported
50// The following flags are for Windows '95 only.
51#REPLACE CF_SELECTSCRIPT |CI$00400000 // Supported
52#REPLACE CF_NOSCRIPTSEL |CI$00800000 // Supported
53#REPLACE CF_NOVERTFONTS |CI$01000000 // Supported
54#REPLACE CF_SCRIPTSONLY CF_ANSIONLY // Obsolete
55
56// Orginal FontTypes constants
57#REPLACE fdANSIONLY |CI$00400
58#REPLACE fdNOVECTORFONTS |CI$00800
59#REPLACE fdNOSIMULATIONS |CI$01000
60#REPLACE fdFIXEDPITCHONLY |CI$04000
61#REPLACE fdSCALABLEONLY |CI$20000
62#REPLACE fdTTONLY |CI$40000
63
64// Font weights
65#REPLACE FW_DONTCARE 0
66#REPLACE FW_THIN 100
67#REPLACE FW_EXTRALIGHT 200
68#REPLACE FW_ULTRALIGHT 200
69#REPLACE FW_LIGHT 300
70#REPLACE FW_NORMAL 400
71#REPLACE FW_REGULAR 400
72#REPLACE FW_MEDIUM 500
73#REPLACE FW_SEMIBOLD 600
74#REPLACE FW_DEMIBOLD 600
75#REPLACE FW_BOLD 700
76#REPLACE FW_EXTRABOLD 800
77#REPLACE FW_ULTRABOLD 800
78#REPLACE FW_HEAVY 900
79#REPLACE FW_BLACK 900
80
81// Character sets
82#REPLACE ANSI_CHARSET 0
83#REPLACE DEFAULT_CHARSET 1
84#REPLACE SYMBOL_CHARSET 2
85#REPLACE SHIFTJIS_CHARSET 128
86#REPLACE HANGUL_CHARSET 129
87#REPLACE GB2312_CHARSET 134
88#REPLACE CHINESEBIG5_CHARSET 136
89#REPLACE OEM_CHARSET 255
90
91// Output precision
92#REPLACE OUT_DEFAULT_PRECIS 0
93#REPLACE OUT_STRING_PRECIS 1
94#REPLACE OUT_CHARACTER_PRECIS 2
95#REPLACE OUT_STROKE_PRECIS 3
96#REPLACE OUT_TT_PRECIS 4
97#REPLACE OUT_DEVICE_PRECIS 5
98#REPLACE OUT_RASTER_PRECIS 6
99#REPLACE OUT_TT_ONLY_PRECIS 7
100#REPLACE OUT_OUTLINE_PRECIS 8
101#REPLACE OUT_SCREEN_OUTLINE_PRECIS 9
102
103// Clipping precision
104#REPLACE CLIP_DEFAULT_PRECIS 0
105#REPLACE CLIP_CHARACTER_PRECIS 1
106#REPLACE CLIP_STROKE_PRECIS 2
107#REPLACE CLIP_MASK 15
108#REPLACE CLIP_LH_ANGLES 16
109#REPLACE CLIP_TT_ALWAYS 32
110#REPLACE CLIP_EMBEDDED 64
111
112// Output quality
113#REPLACE DEFAULT_QUALITY 0
114#REPLACE DRAFT_QUALITY 1
115#REPLACE PROOF_QUALITY 2
116// The following output quality's are for Windows '95 only
117#REPLACE NONANTIALIASED_QUALITY 3
118#REPLACE ANTIALIASED_QUALITY 4
119
120// Pitch
121#REPLACE DEFAULT_PITCH 0
122#REPLACE FIXED_PITCH 1
123#REPLACE VARIABLE_PITCH 2
124// The following pitch is for Window '95 only
125#REPLACE MONO_FONT 8
126
127// Font family
128#REPLACE FF_DONTCARE 0 // Don't care or don't know.
129#REPLACE FF_ROMAN 16 // Fonts with variable stroke width (proportional) and with serifs.
130#REPLACE FF_SWISS 32 // Fonts with variable stroke width (proportional) and without serifs.
131#REPLACE FF_MODERN 48 // Fonts with constant stroke width (monospace), with or without serifs.
132#REPLACE FF_SCRIPT 64 // Fonts designed to look like handwriting.
133#REPLACE FF_DECORATIVE 80 // Novelty fonts.
134
135// Font type
136#REPLACE SIMULATED_FONTTYPE |CI$8000
137#REPLACE PRINTER_FONTTYPE |CI$4000
138#REPLACE SCREEN_FONTTYPE |CI$2000
139#REPLACE BOLD_FONTTYPE |CI$0100
140#REPLACE ITALIC_FONTTYPE |CI$0200
141#REPLACE REGULAR_FONTTYPE |CI$0400
142
143
144External_Function32 ChooseFont "ChooseFontA" COMDLG32.DLL ;
145 Pointer lpChooseFont Returns Integer
146
147Type ChooseFont
148 Field ChooseFont.lStructSize As dWord
149 Field ChooseFont.hwndOwner As Handle
150 Field ChooseFont.hDC As Handle
151 Field ChooseFont.lpLogFont As Pointer
152 Field ChooseFont.iPointSize As Integer
153 Field ChooseFont.Flags As dWord
154 Field ChooseFont.rgbColors As dWord
155 Field ChooseFont.lCustData As dWord
156 Field ChooseFont.lpfnHook As Pointer
157 Field ChooseFont.lpTemplateName As Pointer
158 Field ChooseFont.hInstance As Handle
159 Field ChooseFont.lpszStyle As Pointer
160 Field ChooseFont.nFontType As Word
161 Field ChooseFont.MISSING_ALLIGNMENT As Word
162 Field ChooseFont.nSizeMin As Integer
163 Field ChooseFont.nSizeMax As Integer
164End_Type // ChooseFont
165
166Type LogFont
167 Field LogFont.lfHeight As dWord
168 Field LogFont.lfWidth As dWord
169 Field LogFont.lfEscapement As dWord
170 Field LogFont.lfOrientation As dWord
171 Field LogFont.lfWeight As dWord
172 Field LogFont.lfItalic As Char 1
173 Field LogFont.lfUnderline As Char 1
174 Field LogFont.lfStrikeOut As Char 1
175 Field LogFont.lfCharSet AS Char 1
176 Field LogFont.lfOutPrecision As Char 1
177 Field LogFont.lfClipPrecision As Char 1
178 Field LogFont.lfQuality As Char 1
179 Field LogFont.lfPitchAndFamily As Char 1
180 Field LogFont.lfFaceName As Char 32
181End_Type // LogFont
182
183{ ClassLibrary=Windows }
184{ HelpTopic=FontDialog }
185Class FontDialog Is A cObject
186 Procedure Construct_Object
187 Forward Send Construct_Object
188
189 // Old interface property's
190 { Visibility=Private Obsolete=True }
191 Property Integer FontTypes 0
192 // ChooseFont property's
193 { DesignTime=False }
194 Property Integer FontPointSize 0
195 { Category=Behavior }
196 { PropertyType=Boolean }
197 Property Integer ScreenFonts_State True // False
198 { Category=Appearance }
199 { PropertyType=Boolean }
200 Property Integer ShowHelp_State False
201 { Category=Appearance }
202 { PropertyType=Boolean }
203 Property Integer Effects_State True // False
204 { Category=Behavior }
205 { PropertyType=Boolean }
206 Property Integer NoVectorFonts_State False
207 { Category=Behavior }
208 { PropertyType=Boolean }
209 Property Integer NoOEMFonts_State False
210 { Category=Behavior }
211 { PropertyType=Boolean }
212 Property Integer NoSimulations_State False
213 { Category=Behavior }
214 { PropertyType=Boolean }
215 Property Integer FixedPitchOnly_State False
216 { Category=Behavior }
217 { PropertyType=Boolean }
218 Property Integer ForceFontExist_State True // False
219 { Category=Behavior }
220 { PropertyType=Boolean }
221 Property Integer ScalableOnly_State False
222 { Category=Behavior }
223 { PropertyType=Boolean }
224 Property Integer TTOnly_State False
225 { Category=Behavior }
226 { PropertyType=Boolean }
227 Property Integer NoFaceSel_State False
228 { Category=Behavior }
229 { PropertyType=Boolean }
230 Property Integer NoStyleSel_State False
231 { Category=Behavior }
232 { PropertyType=Boolean }
233 Property Integer NoSizeSel_State False
234 { Category=Behavior }
235 { PropertyType=Boolean }
236 Property Integer SelectScript_State False
237 { Category=Behavior }
238 { PropertyType=Boolean }
239 Property Integer NoScriptSel_State False
240 { Category=Behavior }
241 { PropertyType=Boolean }
242 Property Integer NoVertFonts_State False
243 { Category=Behavior }
244 { PropertyType=Boolean }
245 Property Integer ScriptsOnly_State False
246 { DesignTime=False }
247 { PropertyType=Boolean }
248 Property Integer ANSIOnly_State False
249 { Category=Behavior }
250 Property Integer FontRGBColors 0
251 { DesignTime=False }
252 Property Integer FontType 0
253 { Category=Behavior }
254 Property Integer FontSizeMin 1
255 { Category=Behavior }
256 Property Integer FontSizeMax 9999
257 // LogFont property's
258 { DesignTime=False }
259 Property Integer FontHeight -1 // see comments below
260 { DesignTime=False }
261 Property Integer FontWidth -1 // see comments below
262 { DesignTime=False }
263 Property Integer FontEscapement 0
264 { DesignTime=False }
265 Property Integer FontOrientation 0
266 { DesignTime=False }
267 Property Integer FontWeight -1 // see comments below
268 { DesignTime=False }
269 Property Integer FontItalic -1 // see comments below
270 { DesignTime=False }
271 Property Integer FontUnderline -1 // see comments below
272 { DesignTime=False }
273 Property Integer FontStrikeOut 0
274 { DesignTime=False }
275 Property Integer FontCharSet 0
276 { DesignTime=False }
277 Property Integer FontOutPrecision 0
278 { DesignTime=False }
279 Property Integer FontClipPrecision 0
280 { DesignTime=False }
281 Property Integer FontQuality 0
282 { DesignTime=False }
283 Property Integer FontPitch 0
284 { DesignTime=False }
285 Property Integer FontFamily 0
286 { DesignTime=False }
287 Property String FaceName "EMPTY" // see comments below
288
289 // Set Focus_Mode To NonFocusable
290 End_Procedure // Construct_Object
291
292 { Visibility=Private }
293 Function OwnerHandle returns handle
294 Handle hWnd
295 Handle hoObj
296 Get Focus of desktop to hoObj // start with the focus
297 Move (gOwnerWindowHandle(hoObj)) to hWnd // global function finds the right handle for us
298 function_return hWnd
299 End_Function
300
301 Function FontDialog Returns Integer
302 Integer iResult iPitchAndFamily iFlags
303 String sChooseFont sLogFont sResult
304 Pointer pChooseFont pLogFont
305 Handle hOwner
306
307 //Delegate Get Container_Handle To hOwner
308 Get OwnerHandle To hOwner
309 FillType LogFont With 0 To sLogFont
310 // Some property's default to -1 because we want to determine if the user
311 // changed these properties. If he changed the property's we will take their
312 // value and pass it on to the function. If the user didn't change the
313 // properties we will retrieve them from the DFWindow class.
314 If (FontItalic(self)) Eq -1 Set FontItalic To (FontItalics(self))
315 If (FontUnderline(self)) Eq -1 Set FontUnderline To (FontUnderline(self))
316 If (FontWeight(self)) Eq -1 Set FontWeight To (FontWeight(self))
317 If (FontHeight(self)) Eq -1 Set FontHeight To (Hi(FontSize(self)))
318 If (FontWidth(self)) Eq -1 Set FontWidth To (Low(FontSize(self)))
319 If (FaceName(self)) Eq "EMPTY" Set FaceName To (TypeFace(self))
320 Put (FontHeight(self)) To sLogFont At LogFont.lfHeight
321 Put (FontWidth(self)) To sLogFont At LogFont.lfWidth
322 Put (FontEscapement(self)) To sLogFont At LogFont.lfEscapement
323 Put (FontOrientation(self)) To sLogFont At LogFont.lfOrientation
324 Put (FontWeight(self)) To sLogFont At LogFont.lfWeight
325 Put (FontItalic(self)) To sLogFont At LogFont.lfItalic
326 Put (FontUnderline(self)) To sLogFont At LogFont.lfUnderline
327 Put (FontStrikeOut(self)) To sLogFont At LogFont.lfStrikeOut
328 Put (FontCharSet(self)) To sLogFont At LogFont.lfCharSet
329 Put (FontOutPrecision(self)) To sLogFont At LogFont.lfOutPrecision
330 Put (FontClipPrecision(self)) To sLogFont At LogFont.lfClipPrecision
331 Put (FontQuality(self)) To sLogFont At LogFont.lfQuality
332 Put ((FontFamily(self)*16)+FontPitch(self)) To sLogFont At LogFont.lfPitchAndFamily
333 Put_String (FaceName(self)) To sLogFont At LogFont.lfFaceName
334 GetAddress Of sLogFont To pLogFont
335
336 FillType ChooseFont With 0 To sChooseFont
337 Put ChooseFont_Size To sChooseFont At ChooseFont.lStructSize
338 Put hOwner To sChooseFont At ChooseFont.hwndOwner
339 Put pLogFont To sChooseFont At ChooseFont.lpLogFont
340 // The original FONT_DLG.PKG (by Stuart) always sets the CF_LIMITSIZE, CF_SCREENFONT and
341 // CF_INITTOLOGFONTSTRUCT flags. We will do the same...
342 // This defeats the use of CF_SCREENFONTS and CF_LIMITSIZE !
343 Move (CF_LIMITSIZE+CF_INITTOLOGFONTSTRUCT+CF_SCREENFONTS+FontTypes(self)) To iFlags
344// If (FontSizeMin(self)) Ne 0 Move (iFlags+CF_LIMITSIZE) To iFlags
345// Else If (FontSizeMax(self)) Ne 0 Move (iFlags+CF_LIMITSIZE) To iFlags
346// If (ScreenFonts_State(self)) Move (iFlags+CF_SCREENFONTS) To iFlags
347 If (ShowHelp_State(self)) Move (iFlags+CF_SHOWHELP) To iFlags
348 If (Effects_State(self)) Move (iFlags+CF_EFFECTS) To iFlags
349 If (NoOEMFonts_State(self)) Move (iFlags+CF_NOOEMFONTS) To iFlags
350 If (ForceFontExist_State(self)) Move (iFlags+CF_FORCEFONTEXIST) To iFlags
351 If (NoFaceSel_State(self)) Move (iFlags+CF_NOFACESEL) To iFlags
352 If (NoStyleSel_State(self)) Move (iFlags+CF_NOSTYLESEL) To iFlags
353 If (NoSizeSel_State(self)) Move (iFlags+CF_NOSIZESEL) To iFlags
354 If (SelectScript_State(self)) Move (iFlags+CF_SELECTSCRIPT) To iFlags
355 If (NoScriptSel_State(self)) Move (iFlags+CF_NOSCRIPTSEL) To iFlags
356 If (NoVertFonts_State(self)) Move (iFlags+CF_NOVERTFONTS) To iFlags
357 If (ScriptsOnly_State(self)) Move (iFlags+CF_SCRIPTSONLY) To iFlags
358 If (Not(FontTypes(self))) Begin
359 If (ANSIOnly_State(self)) Move (iFlags+CF_ANSIONLY) To iFlags
360 If (NoVectorFonts_State(self)) Move (iFlags+CF_NOVECTORFONTS) To iFlags
361 If (NoSimulations_State(self)) Move (iFlags+CF_NOSIMULATIONS) To iFlags
362 If (FixedPitchOnly_State(self)) Move (iFlags+CF_FIXEDPITCHONLY) To iFlags
363 If (ScalableOnly_State(self)) Move (iFlags+CF_SCALABLEONLY) To iFlags
364 If (TTOnly_State(self)) Move (iFlags+CF_TTONLY) To iFlags
365 End // If (Not(FontTypes(self))) Begin
366 Put iFlags To sChooseFont At ChooseFont.Flags
367 Put (FontPointSize(self)) To sChooseFont At ChooseFont.iPointSize
368 Put (FontRGBColors(self)) To sChooseFont At ChooseFont.rgbColors
369 Put (FontType(self)) To sChooseFont At ChooseFont.nFontType
370 Put (FontSizeMin(self)) To sChooseFont At ChooseFont.nSizeMin
371 Put (FontSizeMax(self)) To sChooseFont At ChooseFont.nSizeMax
372 GetAddress Of sChooseFont To pChooseFont
373
374 Move (ChooseFont(pChooseFont)) To iResult
375 If Not iResult Function_Return iResult
376 GetBuff From sLogFont At LogFont.lfHeight To iResult
377 Set FontHeight To iResult
378 GetBuff From sLogFont At LogFont.lfWidth To iResult
379 Set FontWidth To iResult
380 GetBuff From sLogFont At LogFont.lfEscapement To iResult
381 Set FontEscapement To iResult
382 GetBuff From sLogFont At LogFont.lfOrientation To iResult
383 Set FontOrientation To iResult
384 GetBuff From sLogFont At LogFont.lfWeight To iResult
385 Set FontWeight To iResult
386 GetBuff From sLogFont At LogFont.lfItalic To iResult
387 Set FontItalic To iResult
388 GetBuff From sLogFont At LogFont.lfUnderline To iResult
389 Set FontUnderline To iResult
390 GetBuff From sLogFont At LogFont.lfStrikeOut To iResult
391 Set FontStrikeOut To iResult
392 GetBuff From sLogFont At LogFont.lfCharSet To iResult
393 Set FontCharSet To iResult
394 GetBuff From sLogFont At LogFont.lfOutPrecision To iResult
395 Set FontOutPrecision To iResult
396 GetBuff From sLogFont At LogFont.lfClipPrecision To iResult
397 Set FontClipPrecision To iResult
398 GetBuff From sLogFont At LogFont.lfQuality To iResult
399 Set FontQuality To iResult
400 GetBuff From sLogFont At LogFont.lfPitchAndFamily To iPitchAndFamily
401 GetBuff_String From sLogFont At LogFont.lfFaceName To sResult
402 Set FaceName To sResult
403 Set FontPitch To ((Low(iPitchAndFamily*4096))/4096)
404 Set FontFamily To (Hi(iPitchAndFamily*65536))
405 GetBuff From sChooseFont At ChooseFont.iPointSize To iResult
406 Set FontPointSize To iResult
407 GetBuff From sChooseFont At ChooseFont.rgbColors To iResult
408 Set FontRGBColors To iResult
409 GetBuff From sChooseFont At ChooseFont.nFontType To iResult
410 Set FontType To iResult
411 GetBuff From sChooseFont At ChooseFont.nSizeMin To iResult
412 Set FontSizeMin To iResult
413 GetBuff From sChooseFont At ChooseFont.nSizeMax To iResult
414 Set FontSizeMax To iResult
415 Function_Return True
416 End_Function // FontDialog
417
418// ************************************************************************** //
419// ** Old interface... ** //
420// ************************************************************************** //
421
422 { MethodType=Property Visibility=Private Obsolete=True }
423 Procedure Set ShowEffects_State Integer iState
424 Set Effects_State To iState
425 End_Procedure // Set ShowEffects_State
426
427 { MethodType=Property Visibility=Private Obsolete=True }
428 Function ShowEffects Returns Integer
429 Function_Return (Effects_State(self))
430 End_Function // ShowEffects
431
432 { MethodType=Property Visibility=Private Obsolete=True }
433 Procedure Set InitialFont_State Integer iState
434 Set NoFaceSel_State To (Not(iState))
435 End_Procedure // Set InitialFont_State
436
437 { MethodType=Property Visibility=Private Obsolete=True }
438 Function InitialFontState Returns Integer
439 Function_Return (Not(NoFaceSel_State(self)))
440 End_Function // InitialFontState
441
442 { MethodType=Property Visibility=Private Obsolete=True }
443 Procedure Set InitialSize_State Integer iState
444 Set NoSizeSel_State To (Not(iState))
445 End_Procedure // Set InitialSize_State
446
447 { MethodType=Property Visibility=Private Obsolete=True }
448 Function InitialSize_State Returns Integer
449 Function_Return (Not(NoSizeSel_State(self)))
450 End_Function // InitialSize_State
451
452 { MethodType=Property Visibility=Private Obsolete=True }
453 Procedure Set InitialStyle_State Integer iState
454 Set NoStyleSel_State To (Not(iState))
455 End_Procedure // Set InitialStyle_State
456
457 { MethodType=Property Visibility=Private Obsolete=True }
458 Function InitialStyle_State Returns Integer
459 Function_Return (Not(NoStyleSel_State(self)))
460 End_Function // InitialStyle_State
461
462 { MethodType=Property Visibility=Private Obsolete=True }
463 Procedure Set FontExists_State Integer iState
464 Set ForceFontExist_State To iState
465 End_Procedure // Set FontExists_State
466
467 { MethodType=Property Visibility=Private Obsolete=True }
468 Function FontExists_State Returns Integer
469 Function_Return (ForceFontExist_State(self))
470 End_Function // FontExists_State
471
472 { MethodType=Property Visibility=Private Obsolete=True }
473 Procedure Set FontMinSize Integer iSize
474 Set FontSizeMin To iSize
475 End_Procedure // Set FontMinSize
476
477 { MethodType=Property Visibility=Private Obsolete=True }
478 Function FontMinSize Returns Integer
479 Function_Return (FontSizeMin(self))
480 End_Function // FontMinSize
481
482 { MethodType=Property Visibility=Private Obsolete=True }
483 Procedure Set FontMaxSize Integer iSize
484 Set FontSizeMax To iSize
485 End_Procedure // Set FontSizeMax
486
487 { MethodType=Property Visibility=Private Obsolete=True }
488 Function FontMaxSize Returns Integer
489 Function_Return (FontSizeMax(self))
490 End_Function // FontMaxSize
491
492 { MethodType=Property Visibility=Private Obsolete=True }
493 Procedure Set FontColor Integer iColor
494 Set FontRGBColors To iColor
495 End_Procedure // Set FontColor
496
497 { MethodType=Property Visibility=Private Obsolete=True }
498 Function FontColor Returns Integer
499 Function_Return (FontRGBColors(self))
500 End_Function // FontColor
501
502 { Visibility=Private Obsolete=True }
503 Function Show_Dialog Returns Integer
504 Function_Return (FontDialog(self))
505 End_Function // Show_Dialog
506
507End_Class // FontDialog
508