HMGforum.com

Code: Select all

#include "hmg.ch"

function Main()
SET CENTURY ON
SET DELETED OFF
SET DATE TO BRITISH

REQUEST HB_LANG_PT
REQUEST HB_CODEPAGE_PT850

hb_langSelect( "pt" )
MSGINFO(">"+_HMG_SYSDATA[211]+"<")
MSGINFO(hb_UserLang()) // is returning "pt-BR"
_HMG_SYSDATA[211]:="PT"

/*
SET LANGUAGE TO PORTUGUESE
SET CODEPAGE TO PORTUGUESE

REQUEST HB_LANG_PT
HB_LANGSELECT( "PT" )
*/
// HB_CdpSelect( "PT850" ) 
// hb_langSelect( "pt" ) // hb_langSelect( hb_UserLang() ) 

DEFINE WINDOW Win_1                  ;
   AT         0,0                    ;
   WIDTH      getdesktopWidth()      ;
   HEIGHT     getDeskTopHeight()-27  ;
   TITLE      "EDIT EXTENDED Demo"   ;
   MAIN                              ;
   NOMAXIMIZE                        ;
   NOSIZE                            ;
   ON INIT    OpenTable()            ;
   ON RELEASE CloseTable()          

   DEFINE BUTTON Button_1
        ROW    250
        COL    240
        WIDTH  100
        HEIGHT 28
        ACTION BasicDemo( "TEST2" )
        CAPTION "Editar DBF"
        FONTNAME "Arial"
        FONTSIZE 9
        TOOLTIP ""
        FONTBOLD .F.
        FONTITALIC .F.
        FONTUNDERLINE .F.
        FONTSTRIKEOUT .F.
        ONGOTFOCUS Nil
        ONLOSTFOCUS Nil
        HELPID Nil
        FLAT .F.
        TABSTOP .T.
        VISIBLE .T.
        TRANSPARENT .F.
        MULTILINE .F.
        PICTURE Nil
        PICTALIGNMENT TOP
    END BUTTON
END WINDOW
ACTIVATE WINDOW Win_1
return NIL

procedure OpenTable()
USE TEST2
if !File( "TEST2COM.NTX" )
   // Create order by first field plus last field.
   // You can't search by this order. Only for test.
   TEST2->( ordCreate( "TEST2COM.NTX",                     ;
                       "First Name",                       ;
                       "TEST2->First + TEST2->Last",       ;
                       {|| TEST2->First  + TEST2->Last } ) )
endif
if !File( "TEST2LAS.NTX" )
   // Create order by last field.
   TEST2->( ordCreate( "TEST2LAS.NTX",                     ;
                       "Last Name",                        ;
                       "TEST2->Last",                      ;
                       {|| TEST2->Last } ) )
endif
if !File( "TEST2HIR.NTX" )
   // Create order by hiredate field.
   TEST2->( ordCreate( "TEST2HIR.NTX",                     ;
                       "Hire Date",                        ;
                       "TEST2->Hiredate",                  ;
                       {|| TEST2->Hiredate } ) )
endif
if !File( "TEST2AGE.NTX" )
   // Create order by age field.
   TEST2->( ordCreate( "TEST2AGE.NTX",                     ;
                       "Age",                              ;
                       "TEST2->Age",                       ;
                       {|| TEST2->Age } ) )
endif
if !File( "TEST2MAR.NTX" )
   // Create order by.
   // You can't search by this order. Only for test.
   TEST2->( ordCreate( "TEST2MAR.NTX",                     ;
                       "Married",                          ;
                       "TEST2->Married",                   ;
                       {|| TEST2->Married } ) )
endif
TEST2->( ordListAdd( "TEST2COM.NTX", "First Name" ) )
TEST2->( ordListAdd( "TEST2LAS.NTX", "Last Name" ) )
TEST2->( ordListAdd( "TEST2HIR.NTX", "Hire Date" ) )
TEST2->( ordListAdd( "TEST2AGE.NTX", "Age" ) )
TEST2->( ordListAdd( "TEST2MAR.NTX", "Married" ) )
TEST2->( ordSetFocus( 1 ) )
return

procedure CloseTable()
CLOSE TEST2
return

procedure BasicDemo( cArea )
EDIT EXTENDED WORKAREA &cArea
return

Code: Select all

#translate SET LANGUAGE TO PORTUGUESE  =>  _HMG_SYSDATA \[ 211 \] := '  ' ; REQUEST HB_LANG_PT     ; HB_LANGSELECT(hb_UserLang(), "PT850") ; InitMessages("PT")