#include "hmg.ch"

FUNCTION Main
   Set Century On
   Set Date Britis
   SET DELETE ON
    
      set codepage to portuguese 
      set language to portuguese
   
   DEFINE WINDOW principal ;
   at 0,0;
   WIDTH 800  ;
   HEIGHT 600 ;
   title "SISTEMA";
   MAIN; 
       **************** MENU principal do sistema ******************************
        DEFINE MAIN MENU 
            DEFINE POPUP "Cadastros"
            MENUITEM "Clientes"                 Action MSGINFO("Chamar form CLIENTES")
        END POPUP
        END MENU   
         
         // AQUI COMEA O PROBLEMA
         vara="acentuao ansi"
         vara=upper(vara)
         @ 600,150 label testa_ansi width 1400 height 60 value vara font "bold" size 30
            DEFINE LABEL Label_1
                ROW    70
                COL    30
                WIDTH  1400
                HEIGHT 60
                VALUE upper("acentuao ANSI - So Paulo")
                FONTNAME "Arial"
                FONTSIZE 30
                TOOLTIP ""
                FONTBOLD .t.
                FONTITALIC .t.
                FONTUNDERLINE .F.
                FONTSTRIKEOUT .F.
                HELPID Nil
                VISIBLE .T.
                TRANSPARENT .F.
                ACTION Nil
                AUTOSIZE .F.
                BACKCOLOR NIL
                FONTCOLOR NIL
            END LABEL

   
   END WINDOW  
   
   principal.maximize
   activate window principal
    
RETURN
