Porque no me coge la fuente

[Xevi]

Code: Select all

//...
   DEFINE FONT oFont1 NAME "Calibri" SIZE 0, -16
   DEFINE WINDOW oWnd FROM 1, 1 TO 800, 1450 PIXEL
//...

WITH OBJECT TExplorerBar():New( 0, 0, 250, 730, oWnd )
:SetFont( oFont1 )
:AddPanel( "Fitxers", "MenuFitxers" )
:AddPanel( "Assentaments", "MenuAssentaments" )
:Refresh()   //No hace nada
END WITH

   ACTIVATE WINDOW oWnd CENTERED

 

Me coge la imagen, el texto, pero el tipo de letra no se corresponde a oFont1

Que hago mal???


Gracias.

[Antonio Linares]

Prueba asi:

Code: Select all

WITH OBJECT TExplorerBar():New( 0, 0, 250, 730, oWnd )
   :AddPanel( "Fitxers", "MenuFitxers" ):SetFont( oFont1 )
   :AddPanel( "Assentaments", "MenuAssentaments" ):SetFont( oFont1 )
END WITH