網緹資訊討論區

代碼: 選擇全部

1) @ r,c GET .... CHRGROUP CHR_ANSI
2) @ r,c GET .... CHRGROUP CHR_ANY // This is default if CHRGROUP clause is not used.
3) @ r,c GET .... CHRGROUP CHR_WIDE

代碼: 選擇全部

    #include "fivewin.ch"

    function Main()

       local oDlg
       local oCode, oDesc, cCode := space(10), cDesc := space(100)

       FW_SetUnicode( .T. )      // <----- problem here
                                 // if .F., the space key is running normally

       DEFINE DIALOG oDlg size 400, 200 pixel title "test read" ;
       STYLE nOR( DS_MODALFRAME, WS_POPUP, WS_CAPTION, WS_SYSMENU, WS_MAXIMIZEBOX, WS_MINIMIZEBOX, WS_THICKFRAME ) ;
            COLOR CLR_WHITE, CLR_CYAN
 
         @ 10, 5 SAY "CODE:"   OF oDlg size 30, 12 pixel transparent  
         @ 25, 5 SAY "DESC:"   OF oDlg size 30, 12 pixel transparent

         @ 10,35 get oCode var cCode of oDlg size 70, 12 pixel
         @ 25,35 get oDesc var cDesc of oDlg size 100, 12 pixel

         @ 60,40 BUTTON "OK" SIZE 50,12 PIXEL OF oDlg

       ACTIVATE DIALOG oDlg CENTERED

    return nil
 

代碼: 選擇全部

修改(fix): ::KeyWChar()
      1. 修正: 插入狀態下，當資料已滿狀態下無法繼續輸入資料自動移除尾端文字功能.
                   In the inserting state, when the data is full, you cannot continue to enter the data and automatically remove the trailing text function.
修改(fix): ::HandleEvent
      1. 修正: 當 ::cPicture 為 '@R' 格式時，貼上資料會亂掉問題, ex: '@R 999.99.99' 貼上日期 '110.09.22' 會亂掉.
                   When ::cPicture is in the format of '@R', the data will be messed up when pasting, ex: '@R 999.99.99' and the date '110.09.22' will be messed up when pasting the date.
修改(fix): ::DispText()
      1. 修正: 密碼欄位剛進入時不要顯示 '*' 符號.
                   Don't display the '*' symbol when entering the password field.
      2. 修正: 密碼欄位往回刪除所有字元時，又會跑出密碼欄位長度的 '*' 符號出來!
                   When deleting all characters in the password field, the '*' symbol of the length of the password field will come out again!