NoPaste Gambas

[leo72]

GeSHI non si può integrare facilmente.
Siccome è pubblicato sotto licenza GPL2, SMF ha qualche problema con questa licenza () per cui il MOD ufficiale è stato rimosso e non è più sviluppato.

Devo verificare se esiste un altro MOD integrabile e modificabile per gestire la sintassi di Gambas.

[leo72]

Codice: gambas [Seleziona]

PUBLIC SUB Button2_Click()
DIM i AS Integer
    
  Testo = NEW TextArea(TabStrip1) 
  Testo.Text = "1"
  Testo.Name = Testo.Text
  Testo.X = 50
  Testo.Y = 50
  Testi.Add(Testo)
  TabStrip1.Count += 1
  TabStrip1[1].Text = "Tab2"
  TabStrip1.Index = 1
  Testo = NEW TextArea(TabStrip1) 
  Testo.Text = "2"
  Testo.Name = Testo.Text
  Testo.X = 50
  Testo.Y = 50
  Testi.Add(Testo)

END

Codice: gambas [Seleziona]

PUBLIC SUB Button3_Click()
DIM hObject1, hObject2 AS Object

  TabStrip1.Index = 1
  FOR EACH hObject1 IN ME.Children
    IF Lower(Object.Type(hObject1)) = "tabstrip" THEN 
      FOR EACH hObject2 IN hObject1.Children
        IF hObject2.name = "2" THEN 
          hObject2.delete
        ENDIF 
      NEXT 
    ENDIF 
  NEXT 
  WAIT '-- questo non va tolto perché devi dare tempo al form di cancellare materialmente l'oggetto
  TabStrip1.Index = 0
  TabStrip1.Count -= 1

END

[leo72]

Uso:
{code=gambas}
{/code}

(Sostituire "{}" con "[]")

E' provvisorio, quindi non scrivetemi chiedendo di cambiare i colori od altro XD
Questa è la versione 1.5 di SintaxHighlighter: se mi riesce, cerco di mettere la 2.0.

[ealmuno]

Bello, proviamolo

Codice: gambas [Seleziona]

inizio.Center
IF NOT Exist(User.home) THEN 
ME.Close
ELSE
x.show
ENDIF 
END

PUBLIC SUB Button2_Click()
Desktop.Open("http://gambas-it.org")
END

Bel lavoro

[fsurfing]

Bel lavoro

identazione a parte

[Ceskho]

Codice: gambas [Seleziona]

IF User.Name = "f.surfing" THEN
  PRINT "Accontanti"
ELSE IF User.Name = "Ceskho" THEN
  FOR i = 0 TO 10
     PRINT "Il migliore"
  NEXT
ELSE
  PRINT "Ciao!!!"
END IF

A me non va o sbaglio?

[ealmuno]

sbagli, nell'anteprima non lo vedi ma qui si....

[Ceskho]

sbagli, nell'anteprima non lo vedi ma qui si....

In effetti ora lo vedo...

[leo72]

Lo vedi anche nell'anteprima. Devi aspettare qualche secondo perché lo script si collega al sito dello sviluppatore, non ho capito bene per far cosa dato che il codice del parsatore è in locale.

Cmq se riesco a mettere la versione 2.0 è meglio: questa fa distinzioni fra parole chiavi, funzioni ed operatori. Ma la vedo dura...

[ealmuno]

in effetti mancano molti "codici", ad esempio l'end non viene segnalato e neanche il for

[leo72]

La 2.0 la lascio stare, non esiste un MOD già fatto.
Però ho trovato una versione "potenziata" dell'attuale MOD. Provo con quello.

[leo72]

Ho modificato il MOD.
Adesso l'inserimento viene fatto col menu a tendina che è comparso nella maschera di inserimento di un nuovo post.
Basta incollare il codice, selezionarlo e poi cliccare sul menu a tendina e scegliere l'evidenziatura desiderata.
Rispetto a prima adesso evidenzia tutto (END e TO compresi). Non riesco ancora a cambiargli colore ma è già un altro piccolo passo fatto.

[ealmuno]

Nella scelta non compare gambas, è quello vuoto senza scritta.....

[leo72]

Ora è a posto.

[Ceskho]

Codice: gambas [Seleziona]

PRIVATE FUNCTION Prova()
  PRINT "Prova nuovo codice"
END

Spettacolare assai!!!!

Penso che questo farà piacere a Milio che, poverino, ogni volta si colorava il testo dei codici a mano!