Resaltar un elemento en un ListBox y propiedad ItemsTips

Diógenes:

con respecto al resaltado en negrita:


DEFINE POPUP popTest
DEFINE BAR 1 OF popTest PROMPT "Uno" COLOR ,RGB(255,255,255 ,255,255,0)
DEFINE BAR 2 OF popTest PROMPT "Dos" COLOR ,RGB(255,255,255 ,0,255,0)
DEFINE BAR 3 OF popTest PROMPT "Tres" COLOR ,RGB(255,255,255 ,255,0,0)
DEFINE BAR 4 OF popTest PROMPT "Cuatro"
DEFINE BAR 5 OF popTest PROMPT "Cinco" STYLE "B" && Negrita
DEFINE BAR 6 OF popTest PROMPT "Seis" STYLE "I"

PUBLIC frmTest
frmTest = CREATEOBJECT("TestForm")
frmTest.Show()

RETURN


DEFINE CLASS TestForm as Form
ADD OBJECT lstTest as ListBox WITH Left = 10, Top = 10, Height = 100, RowSourceType = 9, RowSource = "popTest"

PROCEDURE Destroy
RELEASE POPUPS popTest
ENDPROC
ENDDEFINE



HTH
Mario

On Mon, 18 Sep 2006 11:59:37 -0400, "Diógenes Vilarroel \(Hotmail\)" wrote:

Saludos.

Quisiera saber si es posible o hay un truco para resaltar en negrita y/o
itálica uno o varios elementos de un objeto ListBox. La propiedad picture
del objeto ya la conozco y la estoy usando en mi proyecto y no me sirve para
lo que deseo hacer.

También quisiera saber si alguien ha usado la propiedad ItemTips en un
objeto Listbox, si le ha funcionado y como?

Gracias de antemano...

"Diógenes Vilarroel (Hotmail)" escribió en el mensaje
news:uTY1$

Saludos.

También quisiera saber si alguien ha usado la propiedad ItemTips en un
objeto Listbox, si le ha funcionado y como?

Gracias de antemano...

ItemTips = .T. muestra un tooltip con el texto completo de la opcion sobre
la que se posiciona el cursor del mouse, cuando el texto no entra completo
en el listbox porque el texto es mas ancho que el ancho del listbox.
Funciona.

Carlos Alloatti

Hola Carlos.

Si eso es lo que dice la ayuda y probé de nuevo y realmente funciona. Y
ahora que leo la ayuda con mas detenimiento me doy cuenta de que realmente
funciona siempre y cuando "el texto no entra completo en el listbox".

Pero en mi caso el ListBox maneja dos columnas cada columna con un ancho
establecido que me permite en algunos casos ver toda la información y en
otros no. Pero como la cantidad de caracteres en ninguna de las 2 columnas
supera el ancho del objeto (y no de la columna como yo pensaba) no me
muestra el tooltip. De paso solo funciona para la primera columna las demás
no las toma en cuenta.

"Carlos Alloatti" escribió en el mensaje
news:

"Diógenes Vilarroel (Hotmail)" escribió en el
mensaje news:uTY1$

Saludos.

También quisiera saber si alguien ha usado la propiedad ItemTips en un
objeto Listbox, si le ha funcionado y como?

Gracias de antemano...

ItemTips = .T. muestra un tooltip con el texto completo de la opcion sobre
la que se posiciona el cursor del mouse, cuando el texto no entra completo
en el listbox porque el texto es mas ancho que el ancho del listbox.
Funciona.

Carlos Alloatti

Gracias por tu respuesta, me parece útil esta respuesta para otras cosas que
estoy pensando. Pero como lo harías cuando RowSourceType del objeto es tipo
6 (campos de una tabla) o tipo 0 (ninguno) y los valores los incluyes por
programación. Y de paso tienes, dos o mas columnas.

Diógenes:

con respecto al resaltado en negrita:


DEFINE POPUP popTest
DEFINE BAR 1 OF popTest PROMPT "Uno" COLOR ,RGB(255,255,255 ,255,255,0)
DEFINE BAR 2 OF popTest PROMPT "Dos" COLOR ,RGB(255,255,255 ,0,255,0)
DEFINE BAR 3 OF popTest PROMPT "Tres" COLOR ,RGB(255,255,255 ,255,0,0)
DEFINE BAR 4 OF popTest PROMPT "Cuatro"
DEFINE BAR 5 OF popTest PROMPT "Cinco" STYLE "B" && Negrita
DEFINE BAR 6 OF popTest PROMPT "Seis" STYLE "I"

PUBLIC frmTest
frmTest = CREATEOBJECT("TestForm")
frmTest.Show()

RETURN


DEFINE CLASS TestForm as Form
ADD OBJECT lstTest as ListBox WITH Left = 10, Top = 10, Height = 100,
RowSourceType = 9, RowSource = "popTest"

PROCEDURE Destroy
RELEASE POPUPS popTest
ENDPROC
ENDDEFINE



HTH
Mario

On Mon, 18 Sep 2006 11:59:37 -0400, "Diógenes Vilarroel \(Hotmail\)"
wrote:

Saludos.

Quisiera saber si es posible o hay un truco para resaltar en negrita y/o
itálica uno o varios elementos de un objeto ListBox. La propiedad picture
del objeto ya la conozco y la estoy usando en mi proyecto y no me sirve
para
lo que deseo hacer.

También quisiera saber si alguien ha usado la propiedad ItemTips en un
objeto Listbox, si le ha funcionado y como?

Gracias de antemano...

Diógenes:

me parece que en ese caso tendrías que hacerlo con un grid simulando un listbox, seteando
las propiedades del mismo

AllowCellSelection = .F.
AllowAddNew = .F.
AllowAutoColumnFit = 2
AllowHeaderSizing = .F.
AllowRowSizing = .F.

DeleteMark = .F.
RecordMark = .F.
GridLines = 2 && Vertical
ScrollBars = 2
HeaderHeight = 0

y utilizando DynamicFontColor para las filas en negrita.

Saludos,
Mario


On Tue, 19 Sep 2006 18:28:11 -0400, "Diógenes Vilarroel \(Hotmail\)" wrote:

Gracias por tu respuesta, me parece útil esta respuesta para otras cosas que
estoy pensando. Pero como lo harías cuando RowSourceType del objeto es tipo
6 (campos de una tabla) o tipo 0 (ninguno) y los valores los incluyes por
programación. Y de paso tienes, dos o mas columnas.

Diógenes:

con respecto al resaltado en negrita:


DEFINE POPUP popTest
DEFINE BAR 1 OF popTest PROMPT "Uno" COLOR ,RGB(255,255,255 ,255,255,0)
DEFINE BAR 2 OF popTest PROMPT "Dos" COLOR ,RGB(255,255,255 ,0,255,0)
DEFINE BAR 3 OF popTest PROMPT "Tres" COLOR ,RGB(255,255,255 ,255,0,0)
DEFINE BAR 4 OF popTest PROMPT "Cuatro"
DEFINE BAR 5 OF popTest PROMPT "Cinco" STYLE "B" && Negrita
DEFINE BAR 6 OF popTest PROMPT "Seis" STYLE "I"

PUBLIC frmTest
frmTest = CREATEOBJECT("TestForm")
frmTest.Show()

RETURN


DEFINE CLASS TestForm as Form
ADD OBJECT lstTest as ListBox WITH Left = 10, Top = 10, Height = 100,
RowSourceType = 9, RowSource = "popTest"

PROCEDURE Destroy
RELEASE POPUPS popTest
ENDPROC
ENDDEFINE



HTH
Mario

On Mon, 18 Sep 2006 11:59:37 -0400, "Diógenes Vilarroel \(Hotmail\)"
wrote:

Saludos.

Quisiera saber si es posible o hay un truco para resaltar en negrita y/o
itálica uno o varios elementos de un objeto ListBox. La propiedad picture
del objeto ya la conozco y la estoy usando en mi proyecto y no me sirve
para
lo que deseo hacer.

También quisiera saber si alguien ha usado la propiedad ItemTips en un
objeto Listbox, si le ha funcionado y como?

Gracias de antemano...