[RISOLTO] TextEdit con codice HTML

[Taurus dei miracoli]

Dovevo utilizzare l'enfatizzazione dei caratteri (grassetto, apice, ecc.) in una text in un progetto Gambas2 e avevo aperto un topic al seguente indirizzo:
http://www.gambas-it.org/smf/index.php?topic=1632.0

I suggerimenti che mi sono venuti sono stati quelli di utilizzare un TextEdit (QT) che permette di utilizzare i codici del linguaggio HTML per l'enfatizzazione dei caratteri.
Tutto ciò è stato risolutivo.

Ora sposto il progetto in Gambas3 e questa enfatizzazione non funziona più.
Sapete darmi una dritta sul perchè?

[leo72]

La prima risposta è che G3 è in beta, e quindi può variare qualunque cosa dall'oggi al domani e dopo 2 gg tornare tutto com'era prima... 

Detto questo, forse è una scelta degli sviluppatori, o forse no. Prova a vedere il changelog per verificare se sia una mossa voluta oppure è proprio un bug venuto fuori da sé.

[Taurus dei miracoli]

la cosa buffa è che nell'esempio del TextEdit presente in Gambas3 tutto funziona regolarmente (esattamente come in Gambas2) 

[fsurfing]

percui il problema non è g3 ma il tuo codice, ricontrolla , a volte delle piccole cavolate generano grandi problemi (basta guardare cesko per averne un esempio !)

[Taurus dei miracoli]

Cesko a parte...
in g2 il codice funziona perfettamente, comunque inserisco il codice così ci dai un'occhiata.

Codice: [Seleziona]

  Dim iCap As Integer
  iCap = ComboBox2.Index + 1
  sql = "select * from libri where libro = '" & sAbb & "' and capitolo = '" & iCap & "'"
  DBConnect
  MyRS = MyConn.Exec(sql)
  sStt = ""
  iCap = 0
  If MyRS.Available = True Then
    For Each MyRS
      If MyRS!capitolo <> iCap Then
        If icap <> 0 Then
          sStt = sStt & "<BR>"
        Endif
        sStt = sStt & "<b>[" & MyRS!libro & " " & MyRS!capitolo & "]</b><BR>"
        iCap = MyRS!capitolo
      Endif
      sStt = sStt & "<sup>" & MyRS!versetto & "</sup>"
      sStt = sStt & MyRS!testo
      If Right(Trim(MyRS!testo), 1) = "." Then
        sStt = sStt & "<BR>"
      Else
        sStt = sStt & " "
      Endif
    Next
    TextEdit1.Text = ""
    TextEdit1.Text = sStt
  Endif
  MyConn.close

Come dicevo lo stesso codice in g2 funziona perfettamente (grassetto, apice e a capo), in g3 inserisce i codici come testo.

[milio]

TextEdit1.Text = sStt

cambialo con:

TextEdit1.RichText = sStt

[Taurus dei miracoli]

TextEdit1.Text = sStt

cambialo con:

TextEdit1.RichText = sStt

Grandissimo milio.

[Taurus dei miracoli]

Conversione da G2 a G3 avvenuta con successo.
Tutto veramente ok.

Grazie a tutti, soprattutto a milio