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

' Seleziona_lo_stile_dei_font

Dim Newfont As Qfont

Newfont.color=0

Dim Fontdialog As Qfontdialog

Declare Sub Fontdlg



Create Form as Qform     

                caption="Form"

                center

                Create Button1 As Qbutton caption = "GET FONT INFO"

                               left = 50:height = 30:width=150

                               align=1

                               onclick=fontdlg

                End Create

                Create edit as Qrichedit

                               align=5

                End Create

                Showmodal

End Create 



Sub Fontdlg

                FontDialog.color=newfont.color

                If fontDialog.execute then

                               fontDialog.SetFont(newfont)

                end if

                edit.text= "Name=" + newfont.name

                edit.addstrings "Color=" + Str$(newfont.color)

                edit.addstrings "Size=" + Str$(newfont.size)

                edit.addstrings "Bold=" + Str$(newfont.bold)

                edit.addstrings "Italic=" + Str$(newfont.italic)

                edit.addstrings "Underline=" + Str$(newfont.underline)

                edit.addstrings "Strikeout=" + Str$(newfont.strikeout)

                button1.font=newfont

End Sub




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