Font en Folder

[Manuel Valdenebro]

Al utilizar en un Folder un Font > 12, se pierde la línea bajo los títulos de las pestañas. Acompaño una imagen y el código (modificado) de samples\testfld3:




#include "FiveWin.ch"
function Main()
local oDlg, oFld, oFon

DEFINE FONT oFon NAME "MS Sans Serif" SIZE 0, -14 BOLD

DEFINE DIALOG oDlg TITLE "FiveWin Dynamic folders" ;
FROM 5, 5 TO 20, 50 FONT oFon

@ 0.5, 1 FOLDER oFld PROMPT "&xBase", "&And OOP", "&Power" ;
OF oDlg SIZE 160, 90

@ 1, 1 BUTTON "&Hola" OF oFld:aDialogs[ 1 ] ;
ACTION MsgInfo( "Hola a todos" )

ACTIVATE DIALOG oDlg CENTERED

return nil