c6d37cf4b8
* NEW: Use the FontBox control in the option dialog. [WIKI CGI SCRIPT] * NEW: Add a preview button in editing mode. [GB.DB] * NEW: Database driver now have a flag to tell if they support collation or not. [GB.DB.POSTGRESQL] * BUG: Use collation only if database version is greater or equal than 9.1. [GB.FORM] * NEW: Little design changes in the FontChooser control. * BUG: Fix the FontBox control. * NEW: FontBox.Default is a new property that defines which text is displayed in the control when no font is set. By default, the application default font name is used. [GB.FORM.DIALOG] * NEW: Add a custom font chooser dialog for Dialog.SelectFont(). git-svn-id: svn://localhost/gambas/trunk@6520 867c0c6c-44f3-4631-809d-bfa615b0a4ec
36 lines
457 B
Text
36 lines
457 B
Text
' Gambas class file
|
|
|
|
Static Public ShowFixed As Boolean
|
|
|
|
Static Public Function SelectFont() As Boolean
|
|
|
|
Return Not FFontDialog.ShowModal()
|
|
|
|
End
|
|
|
|
|
|
Public Sub btnOK_Click()
|
|
|
|
Dialog.Font = Font[dlgFont.SelectedFont]
|
|
Me.Close(True)
|
|
|
|
End
|
|
|
|
Public Sub btnCancel_Click()
|
|
|
|
Me.Close
|
|
|
|
End
|
|
|
|
Public Sub Form_Open()
|
|
|
|
dlgFont.FixedOnly = ShowFixed
|
|
dlgFont.SelectedFont = Dialog.Font.ToString()
|
|
|
|
End
|
|
|
|
Public Sub dlgFont_Activate()
|
|
|
|
btnOK.Value = True
|
|
|
|
End
|