RE:Tipo de letra y color en un list
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