Gambas-it

Archivi (sola lettura) => Programmazione (Gambas 2) => Topic aperto da: Taurus dei miracoli - 28 Gennaio 2011, 18:11:39

Titolo: [RISOLTO] Drawingarea: ritorno delle coordinate
Inserito da: Taurus dei miracoli - 28 Gennaio 2011, 18:11:39

Ho la necessità di scrivere in una drawingArea del testo mediante una for... next che scriva lettera per lettera e, nel caso trovi dei caratteri, scrivere alla riga sopra altre cose.

Io ho utilizzato il draw.fillX e draw.fillY ma non ritorna i valori dopo la scrittura.
Il mio codice è:

Codice: [Seleziona]

FOR a = 1 TO Len(sLine)
  IF cnt = 0 THEN
    IF Mid(sLine, a, 1) <> "[" THEN 
      Draw.Text(Mid(sLine, a, 1), lX, lY)
      lY = Draw.FillY
      lX = Draw.FillX
    ELSE 
      cnt = 1
      acc = ""
    ENDIF 
  ELSE 
    IF Mid(sline, a, 1) <> "]" THEN 
      acc = acc & Mid(sLine, a, 1)
    ELSE 
      IF Len(acc) > 1 THEN 
        IF Left(acc, 1) = "A" THEN 
          acc = "La" & Right(acc, Len(acc) - 1)
        ENDIF 
        IF Left(acc, 1) = "B" THEN 
          acc = "Si" & Right(acc, Len(acc) - 1)
        ENDIF 
        IF Left(acc, 1) = "C" THEN 
          acc = "Do" & Right(acc, Len(acc) - 1)
        ENDIF 
        IF Left(acc, 1) = "D" THEN 
          acc = "Re" & Right(acc, Len(acc) - 1)
        ENDIF 
        IF Left(acc, 1) = "E" THEN 
          acc = "Mi" & Right(acc, Len(acc) - 1)
        ENDIF 
        IF Left(acc, 1) = "F" THEN 
          acc = "Fa" & Right(acc, Len(acc) - 1)
        ENDIF 
        IF Left(acc, 1) = "G" THEN 
          acc = "Sol" & Right(acc, Len(acc) - 1)
        ENDIF 
      ELSE 
        IF Left(acc, 1) = "A" THEN 
          acc = "La"
        ENDIF 
        IF Left(acc, 1) = "B" THEN 
          acc = "Si"
        ENDIF 
        IF Left(acc, 1) = "C" THEN 
          acc = "Do"
        ENDIF 
        IF Left(acc, 1) = "D" THEN 
          acc = "Re"
        ENDIF 
        IF Left(acc, 1) = "E" THEN 
          acc = "Mi"
        ENDIF 
        IF Left(acc, 1) = "F" THEN 
          acc = "Fa"
        ENDIF 
        IF Left(acc, 1) = "G" THEN 
          acc = "Sol"
        ENDIF 
      ENDIF 
      draw.Text(acc, lX - 15, lY)
    ENDIF 
    acc = ""
    cnt = 0
  ENDIF 
NEXT 

Cosa sbaglio nella gestione di FillX e FillY?
 :hatecomputer:

Titolo: Re: Drawingarea: ritorno delle coordinate
Inserito da: fsurfing - 28 Gennaio 2011, 19:51:02

semplicemente fillx e filly non servono per fare quello che vuoi tu :)

tieni conto che tu non devi analizzare quello che scrivi nella drawing , la draw è solo un modo vi far vedere i tuoi dati , devi analizzare tutto cio che ti serve prima tramite vario codice ed infine mostrare nella drawing il risultato del tuo codice.

Titolo: Re: Drawingarea: ritorno delle coordinate
Inserito da: Taurus dei miracoli - 29 Gennaio 2011, 08:44:33

Ho fatto tutto molto diverso per cui chiudo la discussione con un Risolto anche se non sono riuscito nell'intento che mi ero proposto. :2birre:

Titolo: Re: Drawingarea: ritorno delle coordinate
Inserito da: Ceskho - 29 Gennaio 2011, 16:20:03

Citazione da: Taurus dei miracoli - 29 Gennaio 2011, 08:44:33

Ho fatto tutto molto diverso per cui chiudo la discussione con un Risolto anche se non sono riuscito nell'intento che mi ero proposto. :2birre:

Posta la soluzione così da poter aiutare eventuali utenti futuri interessati alla questione. Grazie.

Titolo: Re: [RISOLTO] Drawingarea: ritorno delle coordinate
Inserito da: Taurus dei miracoli - 29 Gennaio 2011, 19:49:15

Citazione da: Ceskho - 29 Gennaio 2011, 16:20:03

Posta la soluzione così da poter aiutare eventuali utenti futuri interessati alla questione. Grazie.

Non mi sembra una soluzione grancchè:
ho usato una TextEdit e ho agito con la definizione carattere a carattere della stringa per valorizzare la TextEdit.

...in pratica ho scelto una strada totalmente diversa.
 :(