topic-13758

AHF

Posts: 838

Joined: Fri Feb 10, 2006 12:14 PM

MGET can t change font
Posted: Fri Nov 28, 2008 12:00 PM

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

Regards

Antonio H Ferreira

Enrico Maria Giordano

Posts: 9022

Joined: Thu Oct 06, 2005 08:17 PM

Re: MGET can t change font
Posted: Fri Nov 28, 2008 12:26 PM

Try with

Code: Select all Collapse

oGet:oFont = oFont

EMG

Enrico Maria Giordano

e.m.giordano@emagsoftware.it
http://www.emagsoftware.it
http://www.emagsoftware.it/emgmusic
http://www.emagsoftware.it/spectrum
http://www.emagsoftware.it/tbosg

AHF

Posts: 838

Joined: Fri Feb 10, 2006 12:14 PM

MGET can t change font
Posted: Fri Nov 28, 2008 12:38 PM

didn't work !

Antonio

Regards

Antonio H Ferreira

Enrico Maria Giordano

Posts: 9022

Joined: Thu Oct 06, 2005 08:17 PM

MGET can t change font
Posted: Fri Nov 28, 2008 12:43 PM

This is a working sample:

Code: Select all Collapse

#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

Enrico Maria Giordano

e.m.giordano@emagsoftware.it
http://www.emagsoftware.it
http://www.emagsoftware.it/emgmusic
http://www.emagsoftware.it/spectrum
http://www.emagsoftware.it/tbosg

AHF

Posts: 838

Joined: Fri Feb 10, 2006 12:14 PM

MGET can t change font
Posted: Fri Nov 28, 2008 05:08 PM

Problem solved .
Thanks for your help

Antonio

Regards

Antonio H Ferreira

FiveTech Support Forums

Continue the discussion