37 lines
457 B
Text
37 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
|