Comunidad Gambas-es

Shordi 23-09-2024, 12:24

Cuando juntas gb.Desktop y Drag&Drop, la cosa se pone interesante.

El proyecto del vídeo lo podéis bajar aquí:
http://https://drive.google.com/file/d/1...sp=sharing

Saludos

Videotutoriales Respuestas 6

Certificado para OpenSUSE

alberto-moyano 22-09-2024, 22:47

Hola gente, me encuentro frente al siguiente problema, creo que no es de Gambas, pero no estoy seguro.

La cuestión es que al realizar paquetes para la distro OpenSUSE, los paquetes se generan sin problemas y se pueden instalar con YAM, pero... al comenzar la instalación obtengo el mensaje de que falta la firma de la cabecera, este es el mensaje

Código:
Error: INVALID:gbtexpublisher-0.1.299-1.suse.noarch (file-98249e5d): Error de verificación de firma [6-El fichero no está firmado]

Header SHA256 digest: OK

Header SHA1 digest: OK

Payload SHA256 digest: OK

MD5 digest: OK ¡Cabecera del paquete sin firmar!

Si le digo ignorar (la ventana del mensaje tiene 3 opciones: ignorar, cancelar, aceptar) continua con la instalación y la aplicación no tiene errores de funcionamiento.

Puedo hacer una regla en el instalador de OpenSUSE para que ignore el pedido de firma, pero sigo sin saber si esto es algo que tiene que ver con Gambas o con la distro.

Saludos

Instalación Respuestas 1

Ejemplo de uso de alineación y otras propiedades de los organizadores o contenedores

Shell 22-09-2024, 12:38

Buenas!

La idea central del ejemplo es cargar y mostrar una imagen en su control Picturebox, sin importar su tamaño.
La imagen puede ser más pequeña o más grande que el propio formulario.

El ejemplo mostrará la imagen y recordará mediante los settings, la imagen (su ruta, nombre).
Así ademas podemos abrir el dialogo en la última ruta donde estuvimos. Si es que queremos ver más imágenes.

Este es el formulario

[Imagen: RKR2e1g.png]

Aquí su distribución:

Código:
Public Sub MostrarImagen(unaimagen As Picture)

  'Aquí se encuentra toda la distribución de los organizadores/contenedores del formulario

  'He dejado a posta el borde activo para ver como se muestra el espacio ocupado

  With Me

    .Center()

    .Arrangement = Arrange.Horizontal

    .Spacing = True

    .Margin = True

  End With

  With Panel1

    .Arrangement = Arrange.Vertical

    .Spacing = True

    .Margin = True

    .Border = Border.Plain

  End With

'Contenedor padre del PictureBox

  With Panel2

    .Arrangement = Arrange.Horizontal

    .Expand = True

  End With

  With PictureBox1

    .Border = Border.Plain

    .Picture = unaimagen

    .Expand = True

    .Mode = PictureBox.Contain 'La imagen se estrecha para que se ajuste a su contenedor

  End With

  'El efecto de maximizar puede cambiar la distribución de la imagen y mostrarse de un tamaño distinto o su ajuste en su contenedor

End

Y aquí todo el código completo del ejemplo:

Código:
Private nomimagen As String

Private rutadeimagenes As String

Public Sub Form_Open()

  Dim unaimagen As Picture

  Me.Title = "Ejemplo con Organizadores"

  Settings.Read(Me)

  'Imagen por defecto

  nomimagen = Settings["Imagen", "Gambas3.png"]

  rutadeimagenes = File.RealPath(nomimagen)

  unaimagen = Picture.Load(nomimagen)

  MostrarImagen(unaimagen)

End

Public Sub MostrarImagen(unaimagen As Picture)

  'Aquí se encuentra toda la distribución de los organizadores/contenedores del formulario

  'He dejado a posta el borde activo para ver como se muestra el espacio ocupado

  With Me

    .Center()

    .Arrangement = Arrange.Horizontal

    .Spacing = True

    .Margin = True

  End With

  With Panel1

    .Arrangement = Arrange.Vertical

    .Spacing = True

    .Margin = True

    .Border = Border.Plain

  End With

  With Panel2

    .Arrangement = Arrange.Horizontal

    .Expand = True

  End With

  With PictureBox1

    .Border = Border.Plain

    .Picture = unaimagen

    .Expand = True

    .Mode = PictureBox.Contain 'La imagen se estrecha para que se ajuste a su contenedor

  End With

  'El efecto de maximizar puede cambiar la distribución de la imagen y mostrarse de un tamaño distinto o su ajuste en su contenedor

End

Public Sub btLoadPicture_Click()

  Dim unaimagen As Picture

  Dialog.Title = Application.Name & ": Selecciona archivo"

  Dialog.Filter = ["*.jpg;*.jpeg;*.png;*.bmp;*.ico;*.xpm", "Ficheros de imágenes"]

  Dialog.Path = rutadeimagenes

  If Dialog.OpenFile() Then Return

  nomimagen = Dialog.Path

  unaimagen = Picture.Load(nomimagen)

  MostrarImagen(unaimagen)

End

Public Sub btnExit_Click()

  Me.Close

End

Public Sub Form_Close()

  Settings.Write(Me)

  Settings["Imagen"] = nomimagen

  Settings.Save()

End

Se debe probar con distintas imágenes para ver que hace con las dimensiones.
Por defecto he usado la del logo de Gambas3. Pero se puede usar otras del pc, cargando la que os interese.

Saludos

Archivos adjuntos