26f3daa0c5
* NEW: FontChooser.ShowRelative is a new property that set if relative sizes are allowed or not. They are allowed by default. [GB.FORM.DIALOG] * NEW: Dialog.FixedOnly is a new property to set if the font chooser will show fixed fonts only. [GB.QT4] * BUG: DrawingArea.Clear now raises an error if the DrawingArea is cached and if it currently being painted. [GB.GTK] * BUG: DrawingArea.Clear() works as expected now. * BUG: DrawingArea.Clear now raises an error if the DrawingArea is cached and if it currently being painted. [GB.GTK3] * BUG: DrawingArea.Clear now raises an error if the DrawingArea is cached and if it currently being painted. * BUG: No more warning printed when paiting or clearing a DrawingArea. git-svn-id: svn://localhost/gambas/trunk@6528 867c0c6c-44f3-4631-809d-bfa615b0a4ec
44 lines
599 B
Text
44 lines
599 B
Text
' Gambas class file
|
|
|
|
Static Public FixedOnly As Boolean
|
|
|
|
Static Public Function SelectFont() As Boolean
|
|
|
|
Return Not FFontDialog.ShowModal()
|
|
|
|
End
|
|
|
|
|
|
Public Sub btnOK_Click()
|
|
|
|
If dlgFont.SelectedFont Then
|
|
Dialog.Font = Font[dlgFont.SelectedFont]
|
|
Else
|
|
Dialog.Font = Null
|
|
Endif
|
|
Me.Close(True)
|
|
|
|
End
|
|
|
|
Public Sub btnCancel_Click()
|
|
|
|
Me.Close
|
|
|
|
End
|
|
|
|
Public Sub Form_Open()
|
|
|
|
dlgFont.FixedOnly = FixedOnly
|
|
If Dialog.Font Then
|
|
dlgFont.SelectedFont = Dialog.Font.ToString()
|
|
Else
|
|
dlgFont.SelectedFont = Null
|
|
Endif
|
|
|
|
End
|
|
|
|
Public Sub dlgFont_Activate()
|
|
|
|
btnOK.Value = True
|
|
|
|
End
|