|
|
Visits:
2577
(29 on line)
|
Last Update: Dec 21, 2003
|
|
|
|
|
| | |
| Description Inheritance Example Properties Methods |
| |
| Description |
The TChooseFont5 object is an object implementation of the ChooseFont standard Windows dialog. |
| Description Inheritance Example Properties Methods |
| |
| Inheritance |
Inherits from: TObject5 |
| Description Inheritance Example Properties Methods |
| |
| Example |
| |
 |
| |
The above form is generated by the following APL+Win Objects™ code: |
'ff'Świ'*Create' 'TForm5'
'cf'Świ'*Create' 'TChooseFont5'('flags'256 32768)('color'255)('parent' 'ff')
aaa„'cf'Świ'ShowDialog' © must be called on a separate line (returns empty matrix if closed by Esc)
Śucmd']display aaa'
0
'cf'Świ'APLFont'(1śaaa)
0
'cf'Świ'LogFont'('cf'Świ'APLFont'(1śaaa))
0
|
| |
| Description Inheritance Example Properties Methods |
| |
| Properties |
| |
|
| class |
Description: Return current object class
Syntax: class„'obj' Świ 'class' |
| color |
Description: Get or set a 1 or 3-element color vector
Syntax: 'obj' Świ 'color'color
color: a color scalar or 3-element color vector
Example:
'cf' Świ 'color'0 0 255 |
| dc |
Description: Get or set a device context
Syntax: 'obj' Świ 'dc'hdc
hdc: a device context
Example:
'cf' Świ 'dc'... |
| flags |
Description: Get or set flags. Scalar. Sum of one or more of the following:
1: CF_SCREENFONTS - Show screen fonts only.
2: CF_PRINTERFONTS -Show fonts for the device identified by hDC.
256: CF_EFFECTS - Enable strikeout, underline, and color effects.
1024: CF_ANSIONLY - Limit font selection to Windows char set fonts.
2048: CF_NOOEMFONTS - Disallow vector-fonts.
4096: CF_NOSIMULATIONS - Disallow (GDI) font simulations.
16384: CF_FIXEDPITCHONLY - Select monospace fonts only.
32768: CF_WYSIWYG - Allow only fonts avail on both printer and screen.
65536: CF_FORCEFONTEXIST - Signal an error if an unknown font is picked
131072: CF_SCALABLEONLY - Allow only scalable fonts.
262144: CF_TTONLY - Allow only TrueType fonts
Example:
'cf' Świ 'flags'256 32768 |
| help |
Example:
0 0˝'ff' Świ '*Create' 'TForm5'
0 0˝'cf' Świ '*Create' 'TChooseFont5' ('flags'256 32768) ('color'255) ('parent' 'ff')
aaa„'cf' Świ 'ShowDialog' © must be called on a separate line (returns empty matrix if closed by Esc)
Śucmd']display aaa'
'cf' Świ 'APLFont' (1śaaa)
'cf' Świ 'LogFont' ('cf' Świ 'APLFont' (1śaaa)) |
| logfont |
Description: Get or set a 14-element LOGFONT structure. May also be an empty character vector
Syntax: 'obj' Świ 'logfont' {aplfont}
aplfont: an APL font definition (fontname fontsize fontstyle fontcharset)
Example:
'cf' Świ 'logfont' 'APLPLUS'9 0'symbol'
'cf' Świ '*‘‘logfont' |
| parent |
Description: Get or set the parent of the Choose Font dialog
Syntax: 'obj' Świ 'parent'parent
parent: a Windows object name or handle
Example:
'ff' Świ '*Create' 'TForm5' ('*size'400 500') 'DemoShow'
'cf' Świ 'parent' 'ff' |
|
| Description Inheritance Example Properties Methods |
| |
| Methods |
| |
|
| APLFont |
Description: Converts an APL-style 4- 5- or 14-element font structure to a 4-element APL font structure
If the argument is a 5-element structure, the 1st element is the scale
(1=chrs, 2=dialogunits, 3=pts, 4=twips)
Syntax: logfont„'obj' Świ 'LogFont'fontspec
fontspec: a 4-element or 14-element font specification
logfont: a 14-element LOGFONT structure (as required by TChooseFont5)
Example:
'cf' Świ 'APLFont'Ż11 0 0 0 700 0 0 0 0 1 2 1 34'MS Sans Serif'
MS Sans Serif 9.75 1345 ansi |
| LogFont |
Description: Converts an APL-style 4- 5- or 14-element font structure to a 14-element LOGFONT structure
If the argument is a 5-element structure, the 1st element is the scale
(1=chrs, 2=dialogunits, 3=pts, 4=twips)
Syntax: logfont„'obj' Świ 'LogFont'fontspec
fontspec: a 4-element or 14-element font specification
logfont: a 14-element LOGFONT structure (as required by TChooseFont5)
Example:
'cf' Świ 'LogFont' ('Arial'12 1'ansi') |
| New |
Description: Create a new instance of TChooseFont5
Example:
'obj' Świ '*Create' 'TChooseFont5'
|
| Wait |
Description: Call the Windows Choose Font common dialog
Syntax: logfont„'obj' Świ 'ShowDialog'
logfont: (14-element LOGFONT structure) (color scalar)
or scalar error code
Note: use flag 256 to enable colors
Example:
'cf' Świ 'ShowDialog' |
|
| Description Inheritance Example Properties Methods |
| |
|
TChooseFont5 