FoxPro/Visual FoxPro - Tipo de letra y color en un list

   
Vista:

Tipo de letra y color en un list

Publicado por kong (681 intervenciones) el 20/03/2008 23:14:15
Saludos foro.
Como hago para que en una misma linea dentro de un LISTBOX tenga dos distintos tipos de letra (font) y color de la letra?
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Tipo de letra y color en un list

Publicado por Plinio (7771 intervenciones) el 20/03/2008 23:45:39
1- Yo usaria un Grid, este puede simular facilmente una lista y es mas facil de usar.

2- Si la lista depende de un Popup, tambien puedes hacerlo. Ejemplo
Public oForm
oForm = Createobject('myForm')
oForm.Show

Define Class myForm As Form
Add Object myListBox As ListBox With ;
top = 10, Left = 10, Height = 200, Width = 180

Procedure myListBox.Init
Define Popup myPop Font [Arial],12 Style [B]
Define Bar 1 Of myPop Prompt 'element 1' ;
FONT [Arial],12 Style [B] ;
COLOR ,Rgb(,,,212,208,200),,,,Rgb(255,255,255,0,0,128)
Define Bar 2 Of myPop Prompt 'element 2' ;
FONT [Arial],12 Style [BI] ;
COLOR ,Rgb(,,,212,208,200),,,,Rgb(255,255,255,0,0,128)
Define Bar 3 Of myPop Prompt 'element 3' ;
FONT [Arial],12 Style [I] ;
COLOR ,Rgb(255,255,255,255,0,0),,,,Rgb(255,0,0,255,255,0)
Define Bar 4 Of myPop Prompt 'element 4' ;
FONT [Arial],8 ;
COLOR ,Rgb(0,255,0,255,255,0),,,,Rgb(255,0,0,0,255,255)

With This
.RowSourceType = 9
.RowSource = 'myPop'
.ColumnCount = 2
.ColumnLines = .T.
.ColumnWidths = '130,20'
For ix=1 To 4
.List(m.ix,2) = 'C'+Trans(m.ix)
Endfor
Endwith
Endproc
Enddefine
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Tipo de letra y color en un list

Publicado por kong (681 intervenciones) el 21/03/2008 00:55:56
Gracias plinio. Esta rutina esta bastante interesante, pero creo que me va acomplicar la vida un poco mas. Asi que: O conformarse con un solo tipo de letra, o cambiarse al grid.
Gracias otra vez.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar