FoxPro/Visual FoxPro - Formato en Messagebox

Hola a todos,

En una aplicación he puesto un messagebox pero quiero cambiar los formatos de los textos que aparecen. Se puede hacer?

Gracias

Que deceas que aparezca?

Saludos...
El commando messagebox envia el mensaje con su formato de letra predeteminado por el Windows, ya si deseas cambiar el formato de Fuente(size,name,style) debes usar APIS's, lo cual es un poco complicadillo, por si quieres saber como se hace aqui te pasteo el link:
http://www.news2news.com/vfp/?function=73
(How to change font name and size in the MessageBox dialog)

Suerte!

Puedes crear tu propia caja de texto y asi le personalizas todo lo que quieras

? msgboxvfp("mensaje",1,2)
function msgboxvfp
parameters letras,icono,numbot
retorno=0
do case
case numbot=1
mensaje = createobject('form')
mensaje.closable = .t.
mensaje.autocenter=.t.
mensaje.minbutton=.f.
mensaje.maxbutton=.f.
mensaje.caption='mensaje del sistema'
mensaje.borderstyle=3
mensaje.height=100
mensaje.alwaysontop=.t.
mensaje.addobject('imagen','icono')
mensaje.imagen.visible=.t.
mensaje.addobject('etiqueta','eti')
mensaje.etiqueta.caption=alltrim(letras)
mensaje.etiqueta.visible=.t.
mensaje.addobject('aceptar','boton1')
mensaje.aceptar.visible=.t.
mensaje.show
read events
return retorno
case numbot=2
mensaje = createobject('form')
mensaje.closable = .t.
mensaje.autocenter=.t.
mensaje.minbutton=.f.
mensaje.maxbutton=.f.
mensaje.caption='mensaje del sistema'
mensaje.borderstyle=3
mensaje.height=100
mensaje.alwaysontop=.t.
mensaje.addobject('imagen','icono')
mensaje.imagen.visible=.t.
mensaje.addobject('etiqueta','eti')
mensaje.etiqueta.caption=alltrim(letras)
mensaje.etiqueta.visible=.t.
mensaje.addobject('si','boton1')
mensaje.si.visible=.t.
mensaje.addobject('no','boton2')
mensaje.no.visible=.t.
mensaje.show
read events
return retorno
case numbot=3
mensaje = createobject('form')
mensaje.closable = .t.
mensaje.autocenter=.t.
mensaje.minbutton=.f.
mensaje.maxbutton=.f.
mensaje.caption='mensaje del sistema'
mensaje.borderstyle=3
mensaje.height=100
mensaje.alwaysontop=.t.
mensaje.addobject('imagen','icono')
mensaje.imagen.visible=.t.
mensaje.addobject('etiqueta','eti')
mensaje.etiqueta.caption=alltrim(letras)
mensaje.etiqueta.visible=.t.
mensaje.addobject('si','boton1')
mensaje.si.visible=.t.
mensaje.addobject('no','boton2')
mensaje.no.visible=.t.
mensaje.addobject('cancelar','boton3')
mensaje.cancelar.visible=.t.
mensaje.show
read events
return retorno
otherwise
messagebox('error',48,'sistema')
endcase
endfunc

define class eti as label
top=30
left=65
height=25
autosize=.t.
caption=alltrim(letras)
enabled=.t.
procedure init
thisform.width=(this.width)+(mensaje.imagen.width)+67
endproc
enddefine

define class icono as image
top=20
left=10
height=80

procedure init
do case
case icono=1
this.picture='c:\prestamos personales\iconitos.bank00a'
case icono=2
this.picture='c:\prestamos personales\iconitos\bill00b'
case icono=3
this.picture='c:\prestamos personales\iconitos\bill00d'
endcase
enddefine

define class boton1 as commandbutton
top = 75
height = 23
width = 100
procedure init
if numbot=1
this.left=(mensaje.width/2)-(this.width/2)
else
if numbot=2
thisform.width=(this.width*2)+4
if ((mensaje.etiqueta.width)+(mensaje.imagen.width)+67)>thisform.width
thisform.width=((mensaje.etiqueta.width)+(mensaje.imagen.width)+67)
this.left=(mensaje.width/2)-(this.width)
else
thisform.width=(this.width*2)+4
this.left=(mensaje.width/2)-(this.width)
endif
else
if numbot=3
thisform.width=(this.width*3)+4
if ((mensaje.etiqueta.width)+(mensaje.imagen.width)+67)>thisform.width
thisform.width=((mensaje.etiqueta.width)+(mensaje.imagen.width)+67)
this.left=(mensaje.width/2)-(this.width)-2-(this.width/2)
else
thisform.width=(this.width*3)+4
this.left=(mensaje.width/2)-(this.width)-2-(this.width/2)
endif
endif
endif
endif
endproc
procedure valid
retorno=1
mensaje.removeobject('etiqueta','eti')
letras=''
clear windows
clear events
endproc
enddefine

define class boton2 as commandbutton
top = 75
height = 23
width = 100
procedure init
this.left=(mensaje.si.left)+(mensaje.si.width)+2
endproc
procedure valid
retorno=2
clear windows
clear events
endproc
enddefine

define class boton3 as commandbutton
top = 75
height = 23
width = 100
procedure init
this.left=(mensaje.no.left)+(mensaje.no.width)+2
endproc
procedure valid
retorno=3
clear windows
clear events
endproc
enddefine


Suerte