MGET can t change font

[AHF]

I'm trying to change the font in megt control but I can't.

I've tried it with defining the font and include it on the redefine and with megt:setfont(ofont)

None works. Any ideas?

Antonio

[Enrico Maria Giordano]

Try with

Code: Select all  Expand view

oGet:oFont = oFont

EMG

[AHF]

didn't work !

Antonio

[Enrico Maria Giordano]

This is a working sample:

Code: Select all  Expand view

#include "Fivewin.ch"


FUNCTION MAIN()

    LOCAL oDlg, oFnt

    LOCAL oGet, cVar := ""

    DEFINE FONT oFnt NAME "Arial" SIZE 0, -20

    DEFINE DIALOG oDlg

    @ 1, 1 GET oGet VAR cVar MEMO;
           SIZE 100, 30;
           FONT oFnt

    @ 3, 1 BUTTON "&Close" ACTION oDlg:End()

    ACTIVATE DIALOG oDlg;
             CENTER

    RELEASE FONT oFnt

    RETURN NIL

EMG

[AHF]

Problem solved .
Thanks for your help

Antonio