In order for this site to work correctly we need to store a small file (called a cookie) on your computer. Most every site in the world does this, however since the 25th of May 2011, by law we have to get your permission first. Please abandon the forum if you disagree.

Para que este foro funcione correctamente es necesario guardar un pequeño fichero (llamado cookie) en su ordenador. La mayoría de los sitios de Internet lo hacen, no obstante desde el 25 de Marzo de 2011 y por ley, necesitamos de su permiso con antelación. Abandone este foro si no está conforme.

Imagenes en un Brose

Foro público de Xailer en español
Responder
zeasoftware
Mensajes: 1831
Registrado: Mar Oct 11, 2005 9:53 am

Imagenes en un Brose

Mensaje por zeasoftware »

He estado analizando los comentarios para poner una imagen en una celda de
un browse.
Lo he estado haciendo con un tdbbrowse, hago la modificacion al oncreate,
pero no me muestra las imagenes.
Ahora, lo ke kiero es guardar el nombre de la imagen en un campo y mostrarlo
en lugar del nombre, o sea, ke me aparezca la imagen y no el nombre de la
imagen.
Con los ejemples ke tienen de JFG e IOZ no lo he logrado, asi ke les pido si
me pueden dar una manita de un ejemplo sencillo, o si me dicen como hacerlo
para ponerlo en practica.
De antemano mil gracias.
Por otro lado, recuerdo haber leido de una clase para ver paginas web, es
esto posible?
cual es la clases.
Saludos.
Ramon Zea
rcardenas
Mensajes: 55
Registrado: Lun Oct 11, 2004 2:11 am

Imagenes en un Brose

Mensaje por rcardenas »

Ramon
Yo hize una función para que los campos lógicos de mis Browse mostraran una imagen de un boton Rojo o Amarillo de tener valor Cierto o Falso, con el Evento OnGetData además me indica un texto SI o NO, la tabla de imagenes fueron previamente cargada:
:OnGetData := {| o, c, n | IIF(o:oDataField:Value, (c := "Si", n := 1), (c := "No", n := 2 ) ) }
Ademas, en el evento OnChange del TdbBrowse, le indique que actualizara una celda del StatusBar, creo de la misma forma puedes actualizar un control con la Imagen que deseas.
:OnChange := {|| oSBar:SetText(2,"Registro: "+ALLTRIM(STR(oDbf:KeyNo() )) +" / "+;
ALLTRIM(STR(oDbf:KeyCount() )) ),oSBar:Refresh()}
Espero te sirva, dejame saber los resultados
--
Saludos

Raúl Eduardo Cárdenas S.
Law & Accounting System's, Inc.
Gerente General
Celular: (507) 672-8838
Email: rcardenas@fgs2002.com
"Ramon Zea" <zeasoftware@hotmail.com> escribió en el mensaje news:41a85722$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
> He estado analizando los comentarios para poner una imagen en una celda de
> un browse.
> Lo he estado haciendo con un tdbbrowse, hago la modificacion al oncreate,
> pero no me muestra las imagenes.
> Ahora, lo ke kiero es guardar el nombre de la imagen en un campo y mostrarlo
> en lugar del nombre, o sea, ke me aparezca la imagen y no el nombre de la
> imagen.
> Con los ejemples ke tienen de JFG e IOZ no lo he logrado, asi ke les pido si
> me pueden dar una manita de un ejemplo sencillo, o si me dicen como hacerlo
> para ponerlo en practica.
>
> De antemano mil gracias.
>
> Por otro lado, recuerdo haber leido de una clase para ver paginas web, es
> esto posible?
> cual es la clases.
>
> Saludos.
> Ramon Zea
>
>
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.799 / Virus Database: 543 - Release Date: 11/19/2004
--
zeasoftware
Mensajes: 1831
Registrado: Mar Oct 11, 2005 9:53 am

Imagenes en un Brose

Mensaje por zeasoftware »

Lo tengo asi, ahi dejo el metodo para ve rsi me hechan una manita.
Gracias.
Ramon Zea
METHOD DBBrowse1Create( oSender ) CLASS tFrmLineas
local oCol
oSender:Reset()
WITH OBJECT ::oDBBrowse1:oImageList := TImageList():New( ::oDBBrowse1 )
:nHeight := 20
:nWidth := 20
:Add("ok.bmp")
:Add("cancel.bmp")
:Create()
END WITH
with object oCol := TBrwColumn():New( oSender )
:cHeader := ""
:oDataField := ::oDataSet1:oFieldByName( "Activo" )
:nAlignment := taCenter
:nWidth := 50
:OnGetData := { | o, c, n| iif( ::oDataSet1:Activo, (c := "Si", n :=1), (c := "No", n := 2) ) }
end with
oSender:AddCol( oCol )
with object oCol := TBrwColumn():New( oSender )
:cHeader := "Descripción"
:nAlignment := taLeft
:nWidth := 500
:oDataField := ::oDataSet1:oFieldByName( "Descrip" )
end with
oSender:AddCol( oCol )
WITH OBJECT ::oDBBrowse1
:oDataSet := ::oDataSet1
// :lAutoHScroll := .t.
:nFreeze := 1
END WITH
RETURN Nil
--
rcardenas
Mensajes: 55
Registrado: Lun Oct 11, 2004 2:11 am

Imagenes en un Brose

Mensaje por rcardenas »

Ramón
Prueba con el Gestor de Recursos el tamaño de los "ok.bmp" y "cancel.bmp" para verificar sin son de 20, además verifica el alto las celdas del Browse, el Ide pone el nRowHeight = 18, tu imagen no cabe, prueba o agrandando el elnRowHeight o achicando el BMP. Yo uso el BMP a 14
WITH OBJECT oBrw:oImageList := TImageList():New( oBrw )
:nHeight := 14
:nWidth := 14
:Add( "LEVEL1" )
:Add( "LEVEL2" )
:Create()
END WITH
--
Saludos

Raúl Eduardo Cárdenas S.
Law & Accounting System's, Inc.
Gerente General
Celular: (507) 672-8838
Email: rcardenas@fgs2002.com
"Ramon Zea" <zeasoftware@hotmail.com> escribió en el mensaje news:[email=41a95671@ozsrv2.ozlan.local...]41a95671@ozsrv2.ozlan.local...[/email]
Lo tengo asi, ahi dejo el metodo para ve rsi me hechan una manita.
Gracias.
Ramon Zea
METHOD DBBrowse1Create( oSender ) CLASS tFrmLineas
local oCol
oSender:Reset()
WITH OBJECT ::oDBBrowse1:oImageList := TImageList():New( ::oDBBrowse1 )
:nHeight := 20
:nWidth := 20
:Add("ok.bmp")
:Add("cancel.bmp")
:Create()
END WITH
with object oCol := TBrwColumn():New( oSender )
:cHeader := ""
:oDataField := ::oDataSet1:oFieldByName( "Activo" )
:nAlignment := taCenter
:nWidth := 50
:OnGetData := { | o, c, n| iif( ::oDataSet1:Activo, (c := "Si", n :=1), (c := "No", n := 2) ) }
end with
oSender:AddCol( oCol )
with object oCol := TBrwColumn():New( oSender )
:cHeader := "Descripción"
:nAlignment := taLeft
:nWidth := 500
:oDataField := ::oDataSet1:oFieldByName( "Descrip" )
end with
oSender:AddCol( oCol )
WITH OBJECT ::oDBBrowse1
:oDataSet := ::oDataSet1
// :lAutoHScroll := .t.
:nFreeze := 1
END WITH
RETURN Nil
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.802 / Virus Database: 545 - Release Date: 11/26/2004
--
zeasoftware
Mensajes: 1831
Registrado: Mar Oct 11, 2005 9:53 am

Imagenes en un Brose

Mensaje por zeasoftware »

Mis imagenes son .bmp de 17x17, ahora los anexe al .RC pero aun no se ve, solo se ve SI y NO.
Alguna sugerencia?
Gracias.
Ramón Zea
--
Responder