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
|