Comunidad Gambas-es

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

Selección de un tipo de fuente en propiedades de un control

Shell 23-03-2021, 15:42

Buenas!.

Me gustaría saber vuestra opinión. Creo que debemos comentárselo a Benoît en caso positivo.

Cuando seleccionamos un tipo letra de las disponibles en la lista.

[Imagen: g0fuFKA.png]

Observamos que para que se muestra la previsualización abajo de como va a quedar, debemos hacer uso del evento click de la lista (parece un treeview).
Hasta que el evento no se produce no vemos el cambio. Entonces podemos estar subiendo y bajando por todas las fuentes disponibles con las teclas
de cursor pero no vemos cambio abajo en la previsualización. ¿ No sería mejor usar el evento Change ?. Debería mostrarse instantáneamente, ¿ no ?.

A ver que opináis. Que lo mismo existe un motivo por el que se hace así. Si estamos de acuerdo, que alguien escriba a la lista internacional y se lo
comente a Benoît. Por ejemplo el defensor de las causas nobles, nuestro administrador. Big Grin