Comunidad Gambas-es

Esconder texto de una fila de un ComboBox o ListBox

gambafeliz 25-03-2021, 11:49

Hola,

Alguien se le ocurre la manera de esconder parte del texto de cada fila de un ComboBox o un ListBox, pero, ojo, debe poderse esconder algo que uno quiera por ejemplo:

Filas:
Esconder el ID
1 Fútbol
2 Baloncesto
3 Tenis

Después debe poderse recuperar por cada fila el ID

Gracias.

General Respuestas 3

Desktop.GetFileIcon no me muestra el mismo icono que el navegador Caja

Shell 24-03-2021, 14:04

Buenas!.

Haciendo una prueba con el navegador Caja de Linux Mint Mate me muestra esto:

[Imagen: 4hknHmi.png]

Si uso la instrucción de Gambas :

[code]

Me muestra esto:

[Imagen: v3SerDr.png]

Si hago esto:

[code]

Obtengo esto:

[Imagen: E97ve1C.png]

Pero se supone que yo no sé el tipo de mime asociado. Pretendo mostrar el icono sin conocer su tipo asociado.
Quiero ver el icono asociado especificando el archivo con su ruta.

La clase DesktopFile no tiene método FromFile.

Esto crea lo mismo que en la segunda imagen mostrada arriba:

[code]

Saludos

General Sin respuestas

gb.Task - Tareas en segundo plano.

tincho 24-03-2021, 10:05

Hola a todos. [Imagen: qfHcNAI.png]

Debido a la lentitud que la extracción de imágenes de un pdf confería a Control-Book decidí investigar el tema de las tareas en segundo plano que, como saben, están disponibles desde la versión 3.3. El resultado promete y hace mas "pro" la app.
Para usarla hay que crear una clase y luego instanciarla. Dentro de la clase tiene que haber un método Main sin parámetros. para enviarle parámetros a la clase se ponen variables globales públicas.
Ejemplo de lo que hay dentro de la clase:

Código:
Inherits Task

Public filePDF As String

Public dirOutput As String

Public Sub Main()

  Dim documentPDF As PdfDocument

  Dim page As Integer

  Dim fileImage As String

  Dim imageRam As Image

  If Exist(filePDF) Then

    documentPDF = New PdfDocument(filePDF)

    If Exist(dirOutput) Then

      For page = 0 To documentPDF.Max

        fileImage = dirOutput &/ Format(page, "0000") & ".png"

        If Exist(fileImage) = False Then

          imageRam = documentPDF[page].Render(, 150)

          imageRam.Save(fileImage, 80)

        Endif

      Next

    Endif

  Endif

End

Ejemplo de como "llamar" la clase desde el programa principal

Código:
Public Sub Form_Open()

  Dim back As Extract

  back = New Extract  ' Creacion de una nueva instancia de la clase en segundo plano

  back.filePDF = User.Home &/ "tmp.pdf" 'Asignación del primer parámetro

  back.dirOutput = "/tmp" 'Asignación del segundo parámetro

End

Espero que les resulte de utilidad.
Saludos.

Aplicaciones/Fragmentos de Código Respuestas 2