luisgulo/gambas-source-code
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity
gambas-source-code/comp/src/gb.form.dialog/.src/FFontDialog.class

45 lines
599 B
Text
Raw Normal View History

[DEVELOPMENT ENVIRONMENT] * 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
2014-10-07 02:01:13 +02:00
' Gambas class file
[GB.FORM] * 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
2014-10-10 21:23:44 +02:00
Static Public FixedOnly As Boolean
[DEVELOPMENT ENVIRONMENT] * 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
2014-10-07 02:01:13 +02:00
Static Public Function SelectFont() As Boolean
Return Not FFontDialog.ShowModal()
End
Public Sub btnOK_Click()
[GB.FORM] * 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
2014-10-10 21:23:44 +02:00
If dlgFont.SelectedFont Then
Dialog.Font = Font[dlgFont.SelectedFont]
Else
Dialog.Font = Null
Endif
[DEVELOPMENT ENVIRONMENT] * 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
2014-10-07 02:01:13 +02:00
Me.Close(True)
End
Public Sub btnCancel_Click()
Me.Close
End
Public Sub Form_Open()
[GB.FORM] * 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
2014-10-10 21:23:44 +02:00
dlgFont.FixedOnly = FixedOnly
If Dialog.Font Then
dlgFont.SelectedFont = Dialog.Font.ToString()
Else
dlgFont.SelectedFont = Null
Endif
[DEVELOPMENT ENVIRONMENT] * 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
2014-10-07 02:01:13 +02:00
End
Public Sub dlgFont_Activate()
btnOK.Value = True
End
Reference in a new issue Copy permalink