Xailer forum

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

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
--

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
--

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
--

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
--