Choosefont no funciona bien ? (fixed)

[Gabri]

Hola


Estoy utilizando la funcion Choosefont(), cuando selecciono un tipo de letra y la pongo en negrita, en el array que me devuelve no me lo devuelve con un tipo de letra en negrita, es que funciona mal esta funcion ?


aFont:=Choosefont() > AFont[8] siempre me devuelve .f.

[Antonio Linares]

Gabri,

Acabo de probar este ejemplo, y funciona correctamente. Pulsa el botón, selecciona negrita y verás como el botón se ve en negrita y muestra .t.. Y si luego le quitas negrita, sucede lo contrario. (Que version y build estás usando?):

Code: Select all  Expand view  RUN

#include "FiveWin.ch"

static oWnd

function Main()

   local oBtn

   DEFINE WINDOW oWnd TITLE "Testing ChooseFont"

   @ 2, 2 BUTTON oBtn PROMPT "&Choose" OF oWnd ;
      ACTION ( oBtn:GetFont(),;
               oBtn:SelFont(), MsgInfo( oBtn:oFont:lBold ) ) ;  // nSize()
      SIZE 80, 25

   ACTIVATE WINDOW oWnd

return nil


[Antonio Linares]

aFont:=Choosefont() > AFont[8] siempre me devuelve .f.

El valor negrita no se almacena en la posición 8. Se toma a partir del valor 5:

Code: Select all  Expand view  RUN

   
::lBold = If( lFromUser, ! ( ::nWeight == FW_NORMAL ), lBold )