Sample xbrowse:
Please excuse me if there are any mistakes or blunders in the translation. I just adopted Google's translation for demonstration purposes.
Sample of Report generated by XBrowse:
Sample of export to Excel:
How I created the above data: I do not know three of the above languages. First I created a DBF with all columns but data only in English field. Then I opened Google Translate page and sought translations of the English words in different languages. I copied the translated words and pasted into the XBrowse.
As you know, if the cells of xBrowse are made editable and oBrw:lCanPaste is set to .T., we can copy text from any external source and paste into xbrowse cells and the pasted data is automatically saved in the data source. From FWH15.08 it is possible to copy/paste Unicode text also.
What is the present level of Unicode support now:
On windows many common controls like Say, Buttons, BtnBmp. Buttonbars, Menus, Browses, etc support display of Unicode text. On dialogs only xbrowse, btnbmp can support unicode.
Editing is still not supported. While the controls display the unicode text correctly for the first time, subsequent modification of text may not work as expected.
With the support and help from all, we can expect our colleagues in the FWH team will soon provide us with a fully functional version.
By the way, this is a small and simple program I put together to create the DBF with the above data. Any one can try this program to create a DBF with different languages. (Need to wait for release of revised build)
- Code: Select all Expand view
- #include "FiveWin.Ch"
REQUEST DBFCDX
function Main()
local cDbf := "UTF8_02.DBF"
local oFont
RDDSETDEFAULT( "DBFCDX" )
FW_SetUnicode( .t. )
if ! File( cDBF ); CreateDBF( cDBF ); endif
USE ( cDBF ) NEW ALIAS UTF SHARED
DEFINE FONT oFont NAME "Segoe UI" SIZE 0,-16 BOLD
XBROWSER "UTF" TITLE FWVERSION + " UNICODE" FASTEDIT ;
SETUP ( oBrw:lCanPaste := .t., oBrw:Urdu:nDataStrAlign := AL_RIGHT, ;
oBrw:nHeadStrAligns := AL_CENTER, oBrw:SetFont( oFont ), oBrw:nWidths := 100 )
RELEASE FONT oFont
return (0)
static function CreateDBF( cDBF )
local aCols := { { "ENGLISH", 'C', 10, 0 } }
AEval( { "CHINESE", "KOREAN", "HINDI", "TELUGU", "URDU" }, ;
{ |c| AAdd( aCols, { c, 'C', 20, 0 } ) } )
DBCREATE( cDBF, aCols, "DBFCDX", .t., "UTF" )
FW_ArrayToDBF( { {"Apple"}, {"Ball"}, {"Cat"}, {"Doll"}, {"Engine"}, {"Fruit"}, {"Good"}, {"High"} }, "ENGLISH" )
CLOSE UTF
return nil
How xbrowse makes complex tasks simple?