FiveTech Support Forums

#include "FiveWin.ch"

function Main()
   LOCAL oDlg, oGet
   LOCAL cCad := pad("Testing Gets",40)
   LOCAL nNum := 0
   LOCAL dDat := Date()
   
    FW_SetUnicode( .f. )
    TGet():lDefaultANSI := .F.
   

   Set century On
   Set Date Ansi
   Set Date format "mm/dd/yyyy"

   SET _3DLOOK ON

//   DEFINE DIALOG oDlg TITLE "TGet from " + FWDESCRIPTION
   DEFINE DIALOG oDlg from 0,0 to 180,600 pixel TITLE "TGet from " + FWDESCRIPTION

   @ 10, 15 SAY "Text..:" OF oDlg PIXEL
   @ 10, 35 GET oGet VAR cCad OF oDlg SIZE 240, 10 PIXEL ;
        ACTION (cCad := cGetFile32(cCad))

   @ 70,   15 BUTTON "&Ok" OF oDlg SIZE 30, 12 PIXEL ACTION oDlg:End()
   @ 70,   65 BUTTON "&Cancel" SIZE 30, 12 PIXEL OF oDlg ACTION oDlg:End() CANCEL
   
   // TGet():SetColorFocus( nRGB( 200, 120, 120 ) )

   ACTIVATE DIALOG oDlg CENTERED
   
  MsgInfo(cCad)

return nil

cFileName := MyUnicodeToAnsi(cGetFile32(oData:cDosya))

...
FUNCTION MyUnicodeToAnsi(cText)
    Copy_Clipboard(cText)
    cText := Get_Clipboard()    
RETURN cText
*-------------------------------------------------------------------------------
PROCEDURE Copy_Clipboard(cText)
LOCAL oClp, i
DEFAULT cText := ""
    DEFINE CLIPBOARD oClp OF oApp:oDlg
    cText := ALLTRIM(cText)
    oClp:SetText(cText)
    oClp:End()
RETURN
*-------------------------------------------------------------------------
FUNCTION Get_Clipboard()
LOCAL oClipBoard, oDlg, i, cText:=""

    DEFINE DIALOG oDlg TITLE "Test"
    DEFINE CLIPBOARD oClipBoard OF oDlg FORMAT TEXT
    ACTIVATE DIALOG oDlg CENTERED ON INIT ( cText := ALLTRIM(oClipBoard:GetText()),;
                                        oClipBoard:End(), oDlg:End())
RETURN cText

   FW_SetUnicode( .t. )
   HB_CDPSELECT( "UTF8" )

December 2017
=============

* Enhancement: cGetFile(), aGetFiles() and cGetDir() now 
work with Unicode file and directory names also, even in 
an ANSI application (i.e., even when FW_SetUnicode(.F.) )