' Rapid-Q by William Yu (c)1999-2000                                             .
' ================================================================================
' Upload_il_tuo_script_su_Rapidq.it

' Qfontdialog

****** QFONTDIALOG Component ******
QFontDialog displays Window's font selection dialog

QFontDialog Properties
Field               Type                R/W                 Default
=================== =================== =================== ===================
Color               INTEGER             RW
FontCount           INTEGER             R
FontName            ARRAY of STRING     R
MaxFontSize         INTEGER             RW
MinFontSize         INTEGER             RW
Name                STRING              RW
Size                INTEGER             RW

QFontDialog Methods
Method              Type                Description         Params
=================== =================== =================== ===================
AddStyles           SUBI                Add styles [bold,   INTEGER, Infinite
                                        italic, etc]
DelStyles           SUBI                Delete styles       INTEGER, Infinite
                                        [bold, italic, etc]
                                        Add options
AddOptions          SUBI                [fdLimitSize,       INTEGER, Infinite
                                        fdNoSizeSel, etc.]
                                        Delete options
DelOptions          SUBI                [fdNoStyleSel,      INTEGER, Infinite
                                        fdScalableOnly,
                                        etc.]
Execute             FUNCTION            Returns TRUE or     0
                                        FALSE
GetFont             SUB GetFont(F AS    Get font attributes 1
                    QFONT)
SetFont             SUB SetFont(F AS    Set font attributes 1
                    QFONT)

QFontDialog Events
Event               Type                Occurs when...      Params
=================== =================== =================== ===================
OnApply             VOID                User clicks on      0
                                        apply button


QFontDialog Examples
  '-- Simple demo
  DIM FontDialog AS QFontDialog
  DIM Font AS QFont
      Font.Name = "Arial"

  FontDialog.GetFont(Font)
  IF FontDialog.Execute THEN
    ShowMessage "You selected "+FontDialog.Name
    FontDialog.SetFont(Font)
  END IF



' ===============================================================================
'                      2003 Holyguard.net - 2007_Abruzzoweb