Font en Folder
Posted: Sun Apr 09, 2006 9:53 am
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
#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