Re: Como Hago Para Reducurle El Tamaño A Una Imagen E Insertala A Un Campo Grid???
Hola mesm82.
Hay una aplicación en Linux llamada convert con la que puedes cambiar el tamaño a una imagen.
http://algunostutoriales.blogspot.c...cos-usando.html
Quiere decir que vas a tener que hacer uso de comando externos a
gambas y llamarlos desde
gambas.
Para ello tendrás que aprender a usar o la instrucción de
gambas Shell o Exec. Puedes ver esto en el manual
de
gambas. Veras que es sencillo.Diferentes , pero hacen lo mismo de distinta manera.
Hay una manual en la comunidad llamado Listín creada por Julio. No es solo la creación de una aplicación,
es un manual de
gambas también. En esta aplicación encontraras esta función para crear las miniaturas.
En la aplicación del listín desde un checkbox llama al procedimiento rellena que a su vez este hace uso de la función anterior, fíjate como lo hace:
Public Sub rellena()
Dim a As Integer
FMain.grdDatos.Rows.Count = var.id.Count
For a = 0 To var.id.Count - 1
With FMain
If FMain.chkmini.Value = False Then
.grdDatos.Rows.Height = 25
.grdDatos[a, 0].Picture = Picture[var.foto[a]]
Else
.grdDatos[a, 0].Alignment = 1
.grdDatos.Rows.Height = 100
.grdDatos[a, 0].Picture = Picture[miniaturas.hacer(var.foto[a], "96x96")]
Endif
.grdDatos[a, 1].Text = var.nombre[a]
.grdDatos[a, 2].Text = var.apellidos[a]
.grdDatos[a, 3].Text = var.dni[a]
.grdDatos[a, 4].Text = var.empresa[a]
.grdDatos[a, 5].Text = var.puesto[a]
.grdDatos[a, 6].Text = var.telf_empresa[a]
.grdDatos[a, 7].Text = var.movil_empresa[a]
.grdDatos[a, 8].Text = var.telf_particular[a]
.grdDatos[a, 9].Text = var.movil_particular[a]
.grdDatos[a, 10].Text = var.fax[a]
.grdDatos[a, 11].Text = var.correo[a]
.grdDatos[a, 12].Text = var.pagweb[a]
.grdDatos[a, 13].Text = var.direccion[a]
.grdDatos[a, 14].Text = var.observaciones[a]
.grdDatos[a, 15].Text = var.fecha_datos[a]
.grdDatos[a, 16].Text = var.id[a]
End With
Next
FMain.grdDatos.Refresh
End
Aquí tienes también ayuda en GambasDoc para que veas el componente GridView. Viene mas simplificado.
http://www.gambasdoc.org/help/comp/gb.qt/gridview?es
Ya ves, que todo consiste en aprender como otras personas lo hacen, tomando lo que te interesa para tus necesidades y mejorando lo presente.
Eso te lo dará la practica y la experiencia.
Saludos
===================
Gambas Básico
"No es un bug, es una característica no documentada"