 | 
 
| 
| ChooseFont | METHOD | CHOOSEFONT | | Description | CHOOSEFONT executes a `Choose Font' dialog box. Although this dialog is basically the same as the 16-bit version, this one allows the selection of a font color as well. | | | | | PARAM1 | A field mark delimited array representing the font and color to initially select: <1> - A valid OI font struct (@svm delimited)
<2> - The font color See ZZ_UTILITY_DLL_EQUATES for details. | | PARAM2 | Returns the font and color chosen by the user, using the same structure as Param1 above. If the user presses `Cancel' this parameter will return null. | | PARAM3 | n/a | | PARAM4 | n/a | | PARAM5 | n/a | | PARAM6 | n/a | | | | | Example: | ctrlArray = @window : ".TEST_EDITBOX"
propArray = "FONT"
ctrlArray := @rm : @window : ".TEST_EDITBOX"
propArray := @rm : "FORECOLOR"
oldFontInfo = get_Property( ctrlArray, propArray )
convert @rm to @fm in oldFontInfo
newFontInfo = ""
if zz_Utility_Dll("CHOOSEFONT", oldFontInfo, newFontInfo, "", "", "", "", errorText ) then
if len( newFontInfo ) then
ctrlArray = @window : ".TEST_EDITBOX"
propArray = "FONT"
dataArray = newFontInfo<ZZ16CFT_FONTSTRUCT$>
ctrlArray := @rm : @window : ".TEST_EDITBOX"
propArray := @rm : "FORECOLOR"
dataArray := @rm : newFontInfo<ZZ16CFT_FONTCOLOR$>
call set_Property( ctrlArray, propArray, dataArray )
end
end else
* Handle error - see errorText var
end |
[top] 
| | | |  |
