cGetDir for utf8 fix

文章由 **admin** » 2020-09-04, 23:33

fwh 20.xx 版本的 cGetDir() 功能，到目前為止(2020.09.04) 尚未支援初始目錄顯示、初始目錄展開功能.
我自己修改完成!!

// 測試 cGetDir()
#include "fivewin.ch"
Func    Main()

       local oDlg
       local oDir, cDir := space(256)

       FW_SetUnicode( .T. )

       DEFINE DIALOG oDlg size 400, 200 pixel title "cGetDir Test" ;
            COLOR CLR_WHITE, CLR_CYAN
 
         @ 12, 5 SAY "Directory:"   OF oDlg size 60, 12 pixel transparent  

         @ 10,35 get oDir var cDir of oDlg size 100, 12 pixel UPDATE
         @ 10,136 BUTTON "&Sel" SIZE 20,11 PIXEL OF oDlg;
                  ACTION SelDir(oDlg, oDir, @cDir)

         @ 60,40 BUTTON "OK" SIZE 50,12 PIXEL OF oDlg;
                 ACTION oDlg:End()

       ACTIVATE DIALOG oDlg CENTERED

return nil

Function SelDir(oDlg, oDir, cDir)
Local   cTitle  := "請選擇目錄(龍礱咙)"
Local   cInitDir:= cDir
Local   cTmpDir := AllTrim( cGetDir( cTitle, cInitDir ))
        If ! Empty( cTmpDir )
           cDir := cTmpDir
           oDlg:UpDate()
        EndIf
RETURN  NIL

未修改前:

修改後:

兩者最大差異處: