El ejemplo con el que estoy probando es este (Copiado de samples/3dobj.prg):
- Code: Select all Expand view
- function Main()
local oBar, oFont2
DEFINE FONT oFont2 Name "Ms Sans Serif" Size 0, -20
DEFINE WINDOW oWnd TITLE "3D objects"
DEFINE BUTTONBAR oBar _3D OF oWnd
DEFINE BUTTON OF oBar Prompt 'Hola'
SET MESSAGE OF oWnd TO "3D Objects" NOINSET CLOCK DATE KEYBOARD
ACTIVATE WINDOW oWnd
return nil
Ya he probado con:
- Code: Select all Expand view
- oBar:SetFont( oFont2 )
y con:
- Code: Select all Expand view
- DEFINE BUTTON OF oBar Prompt 'Hola' Font oFont2
e incluso con las dos a la vez