Cambiar fuente en una buttonbar (Para Antonio)

[fgondi]

Estoy probando a intentar cambiar la fuente del texto en los botones de una barra de botones y no consiguo que lo cambie

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

[jrestojeda]

Hola amigo...
Yo me cruzé con ese tema en su momento.
La solución fue modificar la clase TBtnBmp.

Verifica esta pequeña modificación en el método Paint()
Antes:

Code: Select all  Expand view

if ::oWnd:oFont != nil
   if ::oWnd:oFont:cFaceName != "Tahoma"
      DEFINE FONT oFont NAME "Tahoma" SIZE 0, -11
      ::oWnd:SetFont( oFont )
   endif
else
   DEFINE FONT oFont NAME "Tahoma" SIZE 0, -11
   ::oWnd:SetFont( oFont )
endif
 

Después:

Code: Select all  Expand view

IF ::oFont == NIL
   if ::oWnd:oFont != nil
      if ::oWnd:oFont:cFaceName != "Tahoma"
         DEFINE FONT oFont NAME "Tahoma" SIZE 0, -11
      endif
   else
       DEFINE FONT oFont NAME "Tahoma" SIZE 0, -11
   endif
   ::oWnd:SetFont( oFont )
else
   ::oWnd:SetFont( ::oFont )
endif
 

Con esta modificación defino los botones de la siguiente manera:

Code: Select all  Expand view

DEFINE BUTTON oBtn5 OF oBar RESOURCE "AGENDA" LEFT;
   PROMPT "ABM de"+CRLF+"actividades diarias";
   TOOLTIP "ABM de actividades diarias";
   FONT oFont1 NOBORDER;
   ACTION Calendario(oWnd,Empresa)
 

Espero te sirva..

[fgondi]

jrestojeda,

Funciona a las mil maravillas.

Muchisimas gracias por tu ayuda

[jrestojeda]

Me alegro de saber que te funcionó perfectamente!
Saludos,

[fgondi]

Antonio,

¿Se puede incluir esta modificación para futuras revisiones?

[Daniel Garcia-Gil]

Saludos fgondi, jrestojeda

¿Se puede incluir esta modificación para futuras revisiones?

si, de hecho jrestojeda lo habia solicitado hace un tiempo y no se habia incluido, esperamos tenerlo incluido en la proxima version

[Daniel Garcia-Gil]

Listo...

el cambio esta incluido en la proxima version