Imagenes en dbBrowse

[rcardenas]

Hola
Tengo un formulario con un dbBrowse de una Db que necesito mostrar un campo
Logico, al incluirlo en el dbBrowse me muestra logicamente .T. o .F., pero
me gustaria en vez de ello colocar un boton verde y uno rojo, por ejemplo
para indicar activo o inactivo. ¿Cómo puede hacer esto?
--
Saludos
Raúl Eduardo Cárdenas S.
Law & Accounting System's, Inc.
Gerente General
Celular: (507) 672-8838
Email: rcardenas@fgs2002.com
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.784 / Virus Database: 530 - Release Date: 10/27/2004

[ignacio]

Raúl,
Tan sólo tiene que añadir el bitmap al control oImageList del Browse y luego
indicar el ORDINAL de bitmap a utilizar en el evento OnGetData
Ejemplo:
oCol:OnGetData := {| o, c, n| iif( _FIELD->Married, (c := "Yes", n :=
1), (c := "No", n := 2) ) }
En este ejemplo cuando 'Married' es verdadero se pinta el bitmap número 1,
en caso contrario el 2
Vea también las propiedades de la clase TBrwColumn:
PROPERTY nBmpAlignment INIT taLEFT [A]
PROPERTY nBmpMargin INIT 10 [A]
Saludos,
--
Ignacio Ortiz
www.xailer.com
"Raúl Eduardo Cárdenas" <rcardenas@fgs2002.com> escribió en el mensaje
news:[email=41825020@ozsrv2.ozlan.local...]41825020@ozsrv2.ozlan.local...[/email]
> Hola
>
> Tengo un formulario con un dbBrowse de una Db que necesito mostrar un
> campo
> Logico, al incluirlo en el dbBrowse me muestra logicamente .T. o .F., pero
> me gustaria en vez de ello colocar un boton verde y uno rojo, por ejemplo
> para indicar activo o inactivo. ¿Cómo puede hacer esto?
>
> --
> Saludos
>
> Raúl Eduardo Cárdenas S.
> Law & Accounting System's, Inc.
> Gerente General
> Celular: (507) 672-8838
> Email: rcardenas@fgs2002.com
>
>
>
>
>
> ---
> Outgoing mail is certified Virus Free.
> Checked by AVG anti-virus system (http://www.grisoft.com).
> Version: 6.0.784 / Virus Database: 530 - Release Date: 10/27/2004
>
>

[rcardenas]

Ignacio
Disculpa la falta de conocimientos, pero estoy en una carrera para tener
listo mi sistema para lo antes posible y hay muchos aspectos que desconosco
pues vengo directamente de Clipper 5.2 y con muy poco manejo de BlockCodes.
He colocado la instrucción como me indicas pero el oImageList no se donde
colocarlo, lo puse en onInitialize de la siguiente manera:
WITH OBJECT ::oBmpList := TImageList():New( oSender )
:nHeight := 20
:nWidth := 20
:aBitmaps := { "BmpVerde", "BmpRojo" }
:Create()
END WITH
y en el evento onCreate del dbBrowse coloque:
With object oCol := TBrwColumn():New( oSender )
:cHeader := "Verificado"
:oDataField := ::oDataSet:oFieldByName( "Estado" )
:nAlignment := taCenter
:nWidth := 50
:OnGetData := { | o, c, n| iif( ::oDataSet:Estado, ;
(c := "Si", n := 1), (c := "No", n :=
2) ) }
end with
oSender:AddCol( oCol )
Logro ver el Texto "SI" y "NO" en vez de .t. y .f. pero no el BMP que me
falta ?
De antemano Gracias
--
Saludos
Raúl Eduardo Cárdenas S.
Law & Accounting System's, Inc.
Gerente General
Celular: (507) 672-8838
Email: rcardenas@fgs2002.com
"Ignacio Ortiz" <NoNameToAvoidSpam@ozs.com> escribió en el mensaje
news:41874ef1$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
> Raúl,
>
> Tan sólo tiene que añadir el bitmap al control oImageList del Browse y
luego
> indicar el ORDINAL de bitmap a utilizar en el evento OnGetData
>
> Ejemplo:
>
> oCol:OnGetData := {| o, c, n| iif( _FIELD->Married, (c := "Yes", n
:=
> 1), (c := "No", n := 2) ) }
>
> En este ejemplo cuando 'Married' es verdadero se pinta el bitmap número 1,
> en caso contrario el 2
>
> Vea también las propiedades de la clase TBrwColumn:
>
> PROPERTY nBmpAlignment INIT taLEFT [A]
> PROPERTY nBmpMargin INIT 10 [A]
>
> Saludos,
>
> --
> Ignacio Ortiz
> www.xailer.com
> "Raúl Eduardo Cárdenas" <rcardenas@fgs2002.com> escribió en el mensaje
> news:[email=41825020@ozsrv2.ozlan.local...]41825020@ozsrv2.ozlan.local...[/email]
> > Hola
> >
> > Tengo un formulario con un dbBrowse de una Db que necesito mostrar un
> > campo
> > Logico, al incluirlo en el dbBrowse me muestra logicamente .T. o .F.,
pero
> > me gustaria en vez de ello colocar un boton verde y uno rojo, por
ejemplo
> > para indicar activo o inactivo. ¿Cómo puede hacer esto?
> >
> > --
> > Saludos
> >
> > Raúl Eduardo Cárdenas S.
> > Law & Accounting System's, Inc.
> > Gerente General
> > Celular: (507) 672-8838
> > Email: rcardenas@fgs2002.com
> >
> >
> >
> >
> >
> > ---
> > Outgoing mail is certified Virus Free.
> > Checked by AVG anti-virus system (http://www.grisoft.com).
> > Version: 6.0.784 / Virus Database: 530 - Release Date: 10/27/2004
> >
> >
>
>
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.786 / Virus Database: 532 - Release Date: 10/29/2004

[jfgimenez]

Raúl,
> He colocado la instrucción como me indicas pero el oImageList no se donde
> colocarlo, lo puse en onInitialize de la siguiente manera:
>
> WITH OBJECT ::oBmpList := TImageList():New( oSender )
> :nHeight := 20
> :nWidth := 20
> :aBitmaps := { "BmpVerde", "BmpRojo" }
> :Create()
> END WITH
Prueba con:
WITH OBJECT ::oDBBrowse1:oImageList := TImageList():New( ::oDBBrowse1 )
....
(el resto igual)
END
--
Un saludo,
José F. Giménez

[rcardenas]

José
No me funciona el bitmap, me dejo el espacio pero no pinta el BMP
Tengoal inicio del OnCreate del Brwse
METHOD DBBrowse1Create( oSender ) CLASS TForm0501
Local oCol
oSender:Reset()
WITH OBJECT ::oDBBrowse1:oImageList := TImageList():New( ::oDBBrowse1 )
:nHeight := 14
:nWidth := 14
:aBitmaps := { "LEVEL1", "LEVEL2","LEVEL3", "LEVEL4", "LEVEL5" }
:Create()
END WITH
y luego defino varias columnas y al final
WITH object oCol := TBrwColumn():New( oSender )
:cHeader := "Estado"
:oDataField := ::oDataSet:oFieldByName( "Estado" )
:nAlignment := taCenter
:nWidth := 50
:OnGetData := { | o, c, n| iif( ::oDataSet:Estado, (c := "Si", n :=
1), (c := "No", n := 2) ) }
END WITH
oSender:AddCol( oCol )
WITH OBJECT ::oDBBrowse1
:oDataSet := ::oDataSet
:lAutoHScroll := .t.
:nFreeze := 1
END WITH
--
Saludos
Raúl Eduardo Cárdenas S.
Law & Accounting System's, Inc.
Gerente General
Celular: (507) 672-8838
Email: rcardenas@fgs2002.com
"Jose F. Gimenez" <jfgimenez@wanadoo.es> escribió en el mensaje
news:41879cfb$[email=1@ozsrv2.ozlan.local...]1@ozsrv2.ozlan.local...[/email]
> Raúl,
>
> > He colocado la instrucción como me indicas pero el oImageList no se
donde
> > colocarlo, lo puse en onInitialize de la siguiente manera:
> >
> > WITH OBJECT ::oBmpList := TImageList():New( oSender )
> > :nHeight := 20
> > :nWidth := 20
> > :aBitmaps := { "BmpVerde", "BmpRojo" }
> > :Create()
> > END WITH
>
> Prueba con:
>
> WITH OBJECT ::oDBBrowse1:oImageList := TImageList():New( ::oDBBrowse1 )
> ....
> (el resto igual)
> END
>
>
> --
> Un saludo,
>
> José F. Giménez
>
>
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.786 / Virus Database: 532 - Release Date: 10/29/2004

[jfgimenez]

Raúl,
> No me funciona el bitmap, me dejo el espacio pero no pinta el BMP
> Tengoal inicio del OnCreate del Brwse
>
> METHOD DBBrowse1Create( oSender ) CLASS TForm0501
> Local oCol
> oSender:Reset()
> WITH OBJECT ::oDBBrowse1:oImageList := TImageList():New( ::oDBBrowse1 )
> :nHeight := 14
> :nWidth := 14
> :aBitmaps := { "LEVEL1", "LEVEL2","LEVEL3", "LEVEL4", "LEVEL5" }
> :Create()
> END WITH
aBitmaps es una DATA interna de la clase TImageList. Por alguna razón
(segúramente un despiste) no está en ámbito PRIVATE y por eso no te ha dado
un error. Pero tampoco sirve para cargar imágenes en una imagelist. Lo
correcto es usar el método :Add(), de esta forma:
WITH OBJECT ::oDBBrowse1:oImageList := TImageList():New( ::oDBBrowse1 )
:nHeight := 14
:nWidth := 14
:Add( "LEVEL1" )
:Add( "LEVEL2" )
:Add( "LEVEL3" )
:Add( "LEVEL4" )
:Add( "LEVEL5" )
:Create()
END WITH
Aunque, tratándose de un browse, puedes simplificarlo todo de esta forma:
WITH OBJECT ::oDBBrowse1
:nImageHeight := 14
:nImageWidth := 14
:AddImage( "LEVEL1" )
:AddImage( "LEVEL2" )
:AddImage( "LEVEL3" )
:AddImage( "LEVEL4" )
:AddImage( "LEVEL5" )
END WITH
--
Un saludo,
José F. Giménez

[rcardenas]

Jose
Mil Gracias funciona perfectamente.
--
Saludos
Raúl Eduardo Cárdenas S.
Law & Accounting System's, Inc.
Gerente General
Celular: (507) 672-8838
Email: rcardenas@fgs2002.com
"Jose F. Gimenez" <jfgimenez@wanadoo.es> escribió en el mensaje
news:[email=41881527@ozsrv2.ozlan.local...]41881527@ozsrv2.ozlan.local...[/email]
> Raúl,
>
> > No me funciona el bitmap, me dejo el espacio pero no pinta el BMP
> > Tengoal inicio del OnCreate del Brwse
> >
> > METHOD DBBrowse1Create( oSender ) CLASS TForm0501
> > Local oCol
> > oSender:Reset()
> > WITH OBJECT ::oDBBrowse1:oImageList := TImageList():New(
::oDBBrowse1 )
> > :nHeight := 14
> > :nWidth := 14
> > :aBitmaps := { "LEVEL1", "LEVEL2","LEVEL3", "LEVEL4", "LEVEL5" }
> > :Create()
> > END WITH
>
> aBitmaps es una DATA interna de la clase TImageList. Por alguna razón
> (segúramente un despiste) no está en ámbito PRIVATE y por eso no te ha
dado
> un error. Pero tampoco sirve para cargar imágenes en una imagelist. Lo
> correcto es usar el método :Add(), de esta forma:
>
> WITH OBJECT ::oDBBrowse1:oImageList := TImageList():New( ::oDBBrowse1 )
> :nHeight := 14
> :nWidth := 14
> :Add( "LEVEL1" )
> :Add( "LEVEL2" )
> :Add( "LEVEL3" )
> :Add( "LEVEL4" )
> :Add( "LEVEL5" )
> :Create()
> END WITH
>
> Aunque, tratándose de un browse, puedes simplificarlo todo de esta forma:
>
> WITH OBJECT ::oDBBrowse1
> :nImageHeight := 14
> :nImageWidth := 14
> :AddImage( "LEVEL1" )
> :AddImage( "LEVEL2" )
> :AddImage( "LEVEL3" )
> :AddImage( "LEVEL4" )
> :AddImage( "LEVEL5" )
> END WITH
>
>
> --
> Un saludo,
>
> José F. Giménez
>
>
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.786 / Virus Database: 532 - Release Date: 10/29/2004