Comunidad Gambas-es

Gambas 3.16.0: Problemas en una aplicacion

jsbsan 15-04-2021, 19:12

Acabo de actualizar a gambas 3.16.0, (usando el ppa:gambas-team/gambas3 ), y una de las aplicaciones que uso, ha dejado de funcionar (al iniciarla la pantalla se inicia pero no salen los botones, textbox, etc....)

¿hay alguna forma de deshacer la instalacion de la version 3.16.0 y instalar la anterior 3.15 ?

Saludos

Instalación Respuestas 13

¿Es posible en geshi cambiar la posicion del cursor?

tincho 15-04-2021, 16:47

Cuando damos click en el boton de geshi aparece una caja de dialogo y allí ponemos el lenguaje de programación y acto seguido inserta las etiquetas en el cuerpo del mensaje, pero el cursor no se posiciona entre las etiquetas sino al final. Me pregunto si seria posible cambiarlo.
Por ejemplo en Atom cuando usas un fragmento de código el cursor se posiciona en el lugar de la variable

Gracias.

Sobre gambas-es.org Respuestas 3

TableView - Sort (3 estados) [Ejemplo]

tincho 15-04-2021, 16:38

Hola a todos.
En respuesta a Shell que proponía un ejemplo de como ordenar los elementos de un TableView, se me ocurrió proponer otra forma sin usar el evento _Data.

Código:
' Gambas class file

Private aState As Integer[]

Private aNamesSorted As New String[]

Private aAgesSorted As New Integer[]

Private aNames As String[] = ["Mercury", "Venus", "Earth", "Mars", "Jupiter", "Saturn", "Uranus", "Neptune"]

Private aAges As New Integer[]

Private iLast As Integer = -1

Public Sub Form_Open()

  Dim i As Integer

  For i = 0 To aNames.Max

    aAges.Add(Rand(1, 100))

  Next

  aState = [0, 0]

  FormatTable(TableView1)

  aNamesSorted = aNames.Copy()

  aAgesSorted = aAges.Copy()

  DataTable(TableView1)

End

Public Sub FormatTable(tv As TableView)

  Dim r As Integer

  tv.Header = GridView.Horizontal

  tv.Columns.Count = 2

  tv.Rows.Count = aNames.Count

  'tv.Sorted = True

  tv.Columns[0].Title = ("Name")

  tv.Columns[1].Title = ("Age")

End

Public Sub DataTable(tv As TableView)

  Dim r As Integer

  For r = 0 To aNamesSorted.Max

    tv[r, 0].Text = aNamesSorted[r]

    tv[r, 1].Text = aAgesSorted[r]

  Next

End

Public Sub TableView1_ColumnClick(Column As Integer)

  Dim age As Integer

  Dim Name As String

  Dim id As Integer

  Select Column

    Case 0

      aNamesSorted.Clear

      aAgesSorted.Clear

      If aState[Column] = 0 Then

        aNamesSorted = aNames.Copy()

        aAgesSorted = aAges.Copy()

        aState[Column] = 1

      Else

        If aState[Column] = 1 Then

          aNamesSorted = aNames.Copy().Sort(gb.Ascent)

          aState[Column] = -1

        Else

          aNamesSorted = aNames.Copy().Sort(gb.Descent)

          aState[Column] = 0

        Endif

        For Each Name In aNamesSorted

          id = aNames.Find(Name)

          If id > -1 Then

            aAgesSorted.Add(aAges[id])

          Endif

        Next

      Endif

    Case 1

      aNamesSorted.Clear

      aAgesSorted.Clear

      If aState[Column] = 0 Then

        aAgesSorted = aAges.Copy()

        aNamesSorted = aNames.Copy()

        aState[Column] = 1

      Else

        If aState[Column] = 1 Then

          aAgesSorted = aAges.Copy().Sort(gb.Ascent)

          aState[Column] = -1

        Else

          aAgesSorted = aAges.Copy().Sort(gb.Descent)

          aState[Column] = 0

        Endif

        For Each age In aAgesSorted

          id = aAges.Find(age)

          If id > -1 Then

            aNamesSorted.Add(aNames[id])

          Endif

        Next

      Endif

  End Select

  DataTable(TableView1)

End

Saludos.