Dialog.SelectFont (gb.qt4)
Static Function SelectFont ( ) As Boolean
调用标准字体对话框。
如果用户点击取消按钮返回
TRUE，如果用户点击确定按钮返回
FALSE。
本例设置
TextArea的
字体为用户选择的字体。如果用户取消对话框，那么字体不会被更新。
Examples
PUBLIC SUB ButtonFont_Click()
Dialog.Font = TextAreaEdit.Font
IF Dialog.SelectFont() THEN RETURN
TextAreaEdit.Font = Dialog.Font
END