une pitite source, modifier le texte sélectionné avec un qrichedit et un qbutton

' de moi ! hihi !

declare sub click_btn

create mainform as qform
caption = "test modifier texte"
create btn as qbutton
onClick = click_btn
align = 1
caption = "Clique moi dessu et tu vas voir ! NON MAIS !"
end create
create richedit as qrichedit
align = 5 'alclient
text = "Bonjour tout le monde "&chr$­­(10) & "Comment allez vous ? bien ? bah moi aussi !"
end create
end create

dim fonta as qfont
fonta.size = 32
' fonta.bold = true
' fonta.color = "bleu" ' ???

mainform.showmodal

sub click_btn
Richedit.selattributes = fonta
end sub