Name: dic.dbf
Two fields: dic->data, dic->translete
---------------------------------
Please create your own database and try to surf the Internet.
Use CTRL+C to copy, and ALT+TAB to view on Windows
Code: Select all
#include "hmg.ch"
Function Main
/* use dic index dic alias dic SHARED NEW READONLY */
DEFINE WINDOW Win AT 0,0 WIDTH 790 HEIGHT 200 TITLE 'DICTIONARY' MAIN
@ 10,10 LABEL data WIDTH 780 HEIGHT 80 VALUE ''
@ 100,10 LABEL translete WIDTH 780 HEIGHT 80 VALUE ''
DEFINE TIMER Timer_1 INTERVAL 1000 ACTION dictionary()
END WINDOW
ACTIVATE WINDOW Win
Return
FUNCTION dictionary()
LOCAL value1 := '' , value2 := ''
value1 := win.data.value
value2 := System.Clipboard
IF value1 <> value2
Win.data.value := value2
/*
select dic
seek alltrim(value2)
IF FOUND()
Win.translete.value := dic->translete
ENDIF
*/
ENDIF
RETURN