FiveTech Software tech support forums

by **ukservice** » Fri Jun 17, 2011 12:57 pm

Hi,

Is there a new version of this class?.

Thank you.

by **RAMESHBABU** » Sun Jun 19, 2011 3:41 am

Hi Friends,
A small additon to TAutoGet to select any case by the user while typing in the GET.

New parameter [ CASE [<UPPER>] [<LOWER>] [<PROPER>] is added.

- Ramesh Babu P

TAutoGet.Prg

Code: Select all Expand view RUN: // TAutoGet.prg // Auto complete text in get features // By: Maurilio Viana, mouri_ryo@hotmail.com // Date: 4/25/2007 // New features, bug fixes and enhancements are welcome :-) // Please, let me now when you include new features, bug fixes etc in this class // // ToDo: Show drop down window with possible options when typing // /* Revisions 4/25/2007 10:49AM by James Bott Method AutoFill: nKey was not defined as a LOCAL. Fixed. Method AutoFill: nLength was mispelled (as nLenght). Fixed. Method AutoFill: ::Cargo changed to ::lAuto (see reason below) Method AutoFill: Changed to using vkey.ch manifest constants instead of numbers. Method Redefine: Was passing aItems to the parent method (not needed). Method LostFocus: Added this method. Methos New() and Redefine(). Was passing bChanged, and then ::bChange to parent. Fixed. Functin Proper() was added by RAMESH BABU P on 19-06-2011 DATA nCase was added by RAMESH BABU P on 19-06-2011 It is not a good idea to use ::Cargo, ::bPostKey, or ::bLostFocus in the class since these then cannot be used by the programmer. It would be better to subclass the needed methods and add whatever functionality needed. So, ::Cargo and ::bLostFocus were eliminated. Unfortuneately, not using ::bPostKey is somewhat of a challenge. We can subclass KeyDown() and KeyChar() but some of each method will have to be copied into the new methods and thus if there are any changes to these sections of code in future versions of TGET, then this method in TAutoGet will have to be updated also. Bug?: If the items in ::aArray are in proper case, e.g. "Mauro," they are automatically converted to proper case when autofilled, however, if you backspace they are converted to all lower case. */ #include "fivewin.ch" //---------------------------------------------------------------------------// CLASS TAutoGet FROM TGet DATA aItems AS ARRAY DATA lAuto AS LOGICAL DATA nCase AS NUMERIC INIT 3 // 1 UPPER CASE, 2 lower case, 3 Proper Case - Added by RAMESH BABU P METHOD New( nRow , nCol , bSetGet , oWnd , nWidth , nHeight,; cPict , bValid , nClrFore , nClrBack , oFont , lDesign,; oCursor , lPixel , cMsg , lUpdate , bWhen , lCenter,; lRight , bChanged, lReadOnly, lPassword, lNoBorder, nHelpID,; lSpinner, bUp , bDown , bMin , bMax , aItems ) CONSTRUCTOR METHOD ReDefine( nID , bSetGet , oWnd , nHelpId , cPict, bValid ,; nClrFore, nClrBack, oFont , oCursor , cMsg , lUpdate,; bWhen , bChanged, lReadOnly, lSpinner, bUp , bDown ,; bMin , bMax, aItems ) CONSTRUCTOR METHOD SetItems( aItems ) METHOD AutoFill() METHOD LostFocus( hWndGetFocus ) inline ::SetPos(1), ::lAuto := .T., ::super:LostFocus( hWndGetFocus ) END CLASS //---------------------------------------------------------------------------// METHOD New(nRow , nCol , bSetGet , oWnd , nWidth , nHeight , cPict ,; bValid , nClrFore , nClrBack, oFont , lDesign, oCursor , lPixel ,; cMsg , lUpdate , bWhen , lCenter , lRight , bChanged, lReadOnly,; lPassword, lNoBorder, nHelpId , lSpinner, bUp , bDown , bMin ,; bMax , aItems, nCase) CLASS TAutoGet local nLen, i DEFAULT nCase := 3 Super:New(nRow , nCol , bSetGet , oWnd , nWidth , nHeight,; cPict , bValid , nClrFore , nClrBack , oFont , lDesign,; oCursor, lPixel , cMsg , lUpdate , bWhen , lCenter,; lRight , bChanged, lReadOnly, lPassword, lNoBorder, nHelpId,; lSpinner, bUp , bDown , bMin , bMax ) if(aItems == Nil, aItems := {}, ) ::nCase := nCase ::aItems := aItems ::bPostKey := {|oGet, cBuffer| ::AutoFill() } return( Self ) //---------------------------------------------------------------------------// METHOD ReDefine(nID , bSetGet , oWnd , nHelpId, cPict , bValid, nClrFore,; nClrBack , oFont , oCursor, cMsg , lUpdate, bWhen , bChanged,; lReadOnly, lSpinner, bUp , bDown , bMin , bMax , aItems, nCase ) CLASS TAutoGet DEFAULT nCase := 3 Super:ReDefine(nID , bSetGet , oWnd , nHelpId, cPict , bValid, nClrFore ,; nClrBack , oFont , oCursor, cMsg , lUpdate, bWhen , bChanged,; lReadOnly, lSpinner, bUp , bDown , bMin , bMax ) if(aItems == Nil, aItems := {}, ) ::nCase := nCase ::aItems := aItems ::bPostKey := {|oGet, cBuffer| ::AutoFill() } return( Self ) //---------------------------------------------------------------------------// // Set items of AutoGet //---------------------------------------------------------------------------// METHOD SetItems( aItems ) CLASS TAutoGet if(aItems == Nil, aItems := {}, ) ::aItems := aItems return( Nil ) //---------------------------------------------------------------------------// // Auto fill text when typed based on aItems // Return: Always returns .T. //---------------------------------------------------------------------------// METHOD AutoFill() CLASS TAutoGet local nPosItem := 0 // Text position into ::aItems local nPosCursor := ::nPos // Current cursor position local nLength := len(::cText) // Text length local cStartTxt := left(::cText, nPosCursor-1) // Start text (position 1 to cursor position -1) local cItem := "" local nKey := 0 if len(::aItems) = 0 // We have no items to search in this GET return(.T.) endif //------------------------------------------------------------------------- // We use ::lAuto to control when we must search in ::aItems for typed text // We must seek in ::aItems when GET is blank or when user clear it //------------------------------------------------------------------------- if valtype(::lAuto) != "L" // Cargo isn't logical yet -> GET received focus now if ! empty(::Value) // GET isn't empty ::lAuto := .F. // We don't use autofill else // GET is empty ::lAuto := .T. // Use autofill endif else // We are controlling if use or no autofill if empty(::Value) // User could cleaned the GET text ::lAuto := .T. // Use autofill endif endif if ! ::lAuto // If don't control autofill return(.t.) endif nKey := ::nLastKey do case case nKey == VK_TAB .or. ; nKey == VK_RETURN .or. ; nKey == VK_DELETE ::Assign() // Assign typed text case nKey >= 32 .and. nKey <= 256 FOR EACH cItem IN ::aItems nPosItem += 1 //if ToUpper( cItem ) = ToUpper( cStartTxt ) // REMOVED BY RAMESH BABU P on 19-06-2011 cItem := ToUpper( cItem,::nCase ) // ADDED BY RAMESH BABU P on 19-06-2011 if cItem = ToUpper(cStartTxt, ::nCase) // ADDED BY RAMESH BABU P on 19-06-2011 nLength := len( rtrim( cItem ) ) cItem += space( nLength - len(cItem) ) ::SetText( cItem ) ::SetSel( nPosCursor -1, nLength) // Select found text ::oGet:Buffer = Pad( cItem, Len( ::oGet:Buffer )) // add by:ss-bbs return(.t.) endif NEXT ::HideSel() // Text not found -> Undo selected text endcase return( .T. ) //---------------------------------------------------------------------------// // Convert latin characters to ANSI upper case // (for some reason AnsiUpper causes a GPF with Commercial xHB) //---------------------------------------------------------------------------// STATIC function ToUpper( cString, nCase ) if nCase = 2 cString := lower( cString ) elseif nCase = 3 cString := proper( cString ) else cString := upper( cString ) endif cString := strtran(strtran(strtran(strtran(cString,"á","Á"),"à","À"),"ã","Ã"),"â","Â") cString := strtran(strtran(cString,"é","É"),"ê","Ê") cString := strtran(cString,"í","Í") cString := strtran(strtran(strtran(cString,"ó","Ó"),"õ","Õ"),"ô","Ô") cString := strtran(strtran(strtran(cString,"ú","Ú"),"ñ","Ñ"),"ç","Ç") return( cString ) //---------------------------------------------------------------------------// // ADDED BY RAMESH BABU P on 19-06-2011 STATIC FUNCTION proper(cString) LOCAL point,spot,times,char1,char2,char3,char4,char5 STORE 1 TO point,spot,times STORE " " TO char1 STORE "." TO char2 STORE "/" TO char3 STORE "-" TO char4 STORE "_" TO char5 * Convert beginning letter of string to Upper Case & last letter to lower case cString = UPPER(LEFT(cString,1))+LOWER(RIGHT(cString,LEN(cString)-1)) * First capitalise every 1st letter in a word after a space and after a dot DO WHILE point >0 .AND. times <= 5 point = AT(char1,SUBSTR(cString,spot,LEN(TRIM(cString))-spot)) IF point >0 spot = point + spot cString = STUFF(cString,spot,1,UPPER(SUBSTR(cString,spot,1))) ELSE IF times = 1 char1 = char2 ELSEIF times = 2 char1 = char3 ELSEIF times = 3 char1 = char4 ELSEIF times = 4 char1 = char5 ENDIF STORE 1 TO point,spot times = times + 1 IF times >5 EXIT ELSE LOOP ENDIF ENDIF ENDDO RETURN cString //---------------------------------------------------------------------------//

New AutoGet.CH

Code: Select all Expand view RUN: /*----------------------------------------------------------------------------// !short: AUTOGET */ #define UPPER 1 #define LOWER 2 #define PROPER 3 #xcommand REDEFINE AUTOGET [ <oGet> VAR ] <uVar> ; [ ID <nId> ] ; [ <dlg: OF, WINDOW, DIALOG> <oDlg> ] ; [ <help:HELPID, HELP ID> <nHelpId> ] ; [ VALID <ValidFunc> ] ; [ <pict: PICTURE, PICT> <cPict> ] ; [ <color:COLOR,COLORS> <nClrFore> [,<nClrBack>] ] ; [ FONT <oFont> ] ; [ CURSOR <oCursor> ] ; [ MESSAGE <cMsg> ] ; [ <update: UPDATE> ] ; [ WHEN <uWhen> ] ; [ ON CHANGE <uChange> ] ; [ <readonly: READONLY, NO MODIFY> ] ; [ <spin: SPINNER> [ON UP <SpnUp>] [ON DOWN <SpnDn>] [MIN <Min>] [MAX <Max>] ] ; [ ITEMS <aItems>] ; [ CASE <nCase> ]; => ; [ <oGet> := ] TAutoGet():ReDefine( <nId>, bSETGET(<uVar>), <oDlg>,; <nHelpId>, <cPict>, <{ValidFunc}>, <nClrFore>, <nClrBack>,; <oFont>, <oCursor>, <cMsg>, .T., <{uWhen}>,; [ \{|nKey,nFlags,Self| <uChange> \}], <.readonly.>,; <.spin.>, <{SpnUp}>, <{SpnDn}>, <{Min}>, <{Max}>, <aItems>, <nCase>) #command @ <nRow>, <nCol> AUTOGET [ <oGet> VAR ] <uVar> ; [ <dlg: OF, WINDOW, DIALOG> <oWnd> ] ; [ <pict: PICTURE, PICT> <cPict> ] ; [ VALID <ValidFunc> ] ; [ <color:COLOR,COLORS> <nClrFore> [,<nClrBack>] ] ; [ SIZE <nWidth>, <nHeight> ] ; [ FONT <oFont> ] ; [ <design: DESIGN> ] ; [ CURSOR <oCursor> ] ; [ <pixel: PIXEL> ] ; [ MESSAGE <cMsg> ] ; [ <update: UPDATE> ] ; [ WHEN <uWhen> ] ; [ <lCenter: CENTER, CENTERED> ] ; [ <lRight: RIGHT> ] ; [ ON CHANGE <uChange> ] ; [ <readonly: READONLY, NO MODIFY> ] ; [ <pass: PASSWORD> ] ; [ <lNoBorder: NO BORDER, NOBORDER> ] ; [ <help:HELPID, HELP ID> <nHelpId> ] ; [ ITEMS <aItems>] ; [ CASE <nCase> ] ; => ; [ <oGet> := ] TAutoGet():New( <nRow>, <nCol>, bSETGET(<uVar>),; [<oWnd>], <nWidth>, <nHeight>, <cPict>, <{ValidFunc}>,; <nClrFore>, <nClrBack>, <oFont>, <.design.>,; <oCursor>, <.pixel.>, <cMsg>, .T., <{uWhen}>,; <.lCenter.>, <.lRight.>,; [\{|nKey, nFlags, Self| <uChange>\}], <.readonly.>,; <.pass.>, [<.lNoBorder.>], <nHelpId>,,,,,,<aItems>, <nCase> ) #command @ <nRow>, <nCol> AUTOGET [ <oGet> VAR ] <uVar> ; [ <dlg: OF, WINDOW, DIALOG> <oWnd> ] ; [ <pict: PICTURE, PICT> <cPict> ] ; [ VALID <ValidFunc> ] ; [ <color:COLOR,COLORS> <nClrFore> [,<nClrBack>] ] ; [ SIZE <nWidth>, <nHeight> ] ; [ FONT <oFont> ] ; [ <design: DESIGN> ] ; [ CURSOR <oCursor> ] ; [ <pixel: PIXEL> ] ; [ MESSAGE <cMsg> ] ; [ <update: UPDATE> ] ; [ WHEN <uWhen> ] ; [ <lCenter: CENTER, CENTERED> ] ; [ <lRight: RIGHT> ] ; [ ON CHANGE <uChange> ] ; [ <readonly: READONLY, NO MODIFY> ] ; [ <help:HELPID, HELP ID> <nHelpId> ] ; [ <spin: SPINNER> [ON UP <SpnUp>] [ON DOWN <SpnDn>] [MIN <Min>] [MAX <Max>] ] ; [ ITEMS <aItems>] ; [ CASE <nCase> ] ; => ; [ <oGet> := ] TAutoGet():New( <nRow>, <nCol>, bSETGET(<uVar>),; [<oWnd>], <nWidth>, <nHeight>, <cPict>, <{ValidFunc}>,; <nClrFore>, <nClrBack>, <oFont>, <.design.>,; <oCursor>, <.pixel.>, <cMsg>, .T., <{uWhen}>,; <.lCenter.>, <.lRight.>,; [\{|nKey, nFlags, Self| <uChange>\}], <.readonly.>,; .f., .f., <nHelpId>,; <.spin.>, <{SpnUp}>, <{SpnDn}>, <{Min}>, <{Max}>, <aItems>, <nCase> )

To test TAutoget : AUTOGET.PRG

Code: Select all Expand view RUN: #include "fivewin.ch" #include "autoget.ch" FUNCTION main() LOCAL oDlg, oGet, cName, aNames cName := space(20) aNames := {"RAmeSh", "rAmA rAo", "rAmDev", "rAM kUMAR", "raMADevi", "ramanA"} DEFINE DIALOG oDlg TITLE "Test Autoget" @ 2,2 AUTOGET oGet VAR cName OF oDlg ITEMS aNames CASE UPPER ACTIVATE DIALOG oDlg CENTERED RETURN nil

by **ukservice** » Sun Jun 19, 2011 11:17 am

Hi,

I can´t compile with Harbour.

I get two errors:

autoget.prg(216) Error E0030 Syntax error "syntax error at '('"

autoget.prg(225) Error E0030 Syntax error "syntax error at '('"

Lines:

216:

Code: Select all Expand view RUN: cString = UPPER( left(cString,1) ) + LOWER( RIGHT(cString,LEN(cString)-1) )

225:

Code: Select all Expand view RUN: cString = STUFF(cString,spot,1,UPPER(SUBSTR(cString,spot,1)))

But sintaxs is OK.

I don´t understand...

by **Enrico Maria Giordano** » Sun Jun 19, 2011 11:39 am

Compiles fine here using xHarbour. I don't think Harbour is different. Maybe the error is elsewhere?

EMG

by **Euclides** » Sun Jun 19, 2011 12:58 pm

Hi there!
in AUTOGET.CH there are defines of UPPER and LOWER who are RESERVED WORDS.
I changed them to UPPERC and LOWERC (and of course, also the parameters on the AUTOGET call) and could compile all the test and the class in an unique PRG.
Regards, Euclides

by **RAMESHBABU** » Mon Jun 20, 2011 7:25 am

Mr.Euclides,

Thanks for your suggestion. I have changed it in AUTOGET.CH

Hi Friends,

One more addition to TAutoGet Class:

With the following code, you can now optionally add the new items you are typing, to the existing Array of Items.
Once you finish the entry you can even save the Array to disk using your own function.

Regards,

- Ramesh Babu P

TAutoGet.prg

Code: Select all Expand view RUN: // TAutoGet.prg // Auto complete text in get features // By: Maurilio Viana, mouri_ryo@hotmail.com // Date: 4/25/2007 // New features, bug fixes and enhancements are welcome :-) // Please, let me now when you include new features, bug fixes etc in this class // // ToDo: Show drop down window with possible options when typing // /* Revisions 4/25/2007 10:49AM by James Bott Method AutoFill: nKey was not defined as a LOCAL. Fixed. Method AutoFill: nLength was mispelled (as nLenght). Fixed. Method AutoFill: ::Cargo changed to ::lAuto (see reason below) Method AutoFill: Changed to using vkey.ch manifest constants instead of numbers. Method Redefine: Was passing aItems to the parent method (not needed). Method LostFocus: Added this method. Methos New() and Redefine(). Was passing bChanged, and then ::bChange to parent. Fixed. Functin Proper() was added by RAMESH BABU P on 19-06-2011 DATA nCase was added by RAMESH BABU P on 19-06-2011 DATA lAddNewItems was added by RAMESH BABU P on 20-06-2011 FUNCTION AddNewItem(aItems,cText) was added by RAMESH BABU P on 20-06-2011 It is not a good idea to use ::Cargo, ::bPostKey, or ::bLostFocus in the class since these then cannot be used by the programmer. It would be better to subclass the needed methods and add whatever functionality needed. So, ::Cargo and ::bLostFocus were eliminated. Unfortuneately, not using ::bPostKey is somewhat of a challenge. We can subclass KeyDown() and KeyChar() but some of each method will have to be copied into the new methods and thus if there are any changes to these sections of code in future versions of TGET, then this method in TAutoGet will have to be updated also. Bug?: If the items in ::aArray are in proper case, e.g. "Mauro," they are automatically converted to proper case when autofilled, however, if you backspace they are converted to all lower case. */ #include "fivewin.ch" #include "xbrowse.ch" //---------------------------------------------------------------------------// CLASS TAutoGet FROM TGet DATA aItems AS ARRAY DATA lAuto AS LOGICAL DATA nCase AS NUMERIC INIT 3 // 1 UPPER CASE, 2 lower case, 3 Proper Case - Added by RAMESH BABU P DATA lAddNewItems AS LOGICAL INIT .T. // .T. to Add New Items to aItems, .F. Don't Add - Added by RAMESH BABU P METHOD New( nRow , nCol , bSetGet , oWnd , nWidth , nHeight,; cPict , bValid , nClrFore , nClrBack , oFont , lDesign,; oCursor , lPixel , cMsg , lUpdate , bWhen , lCenter,; lRight , bChanged, lReadOnly, lPassword, lNoBorder, nHelpID,; lSpinner, bUp , bDown , bMin , bMax , aItems ,; nCase , lAddNewItems) CONSTRUCTOR METHOD ReDefine( nID , bSetGet , oWnd , nHelpId , cPict, bValid ,; nClrFore, nClrBack, oFont , oCursor , cMsg , lUpdate,; bWhen , bChanged, lReadOnly, lSpinner, bUp , bDown ,; bMin , bMax, aItems, nCase, lAddNewItems ) CONSTRUCTOR METHOD SetItems( aItems ) METHOD AutoFill() METHOD LostFocus( hWndGetFocus ) inline ::SetPos(1), ::lAuto := .T., IF(::lAddNewItems,AddNewItem(@::aItems,::cText),) ,::super:LostFocus( hWndGetFocus ) END CLASS //---------------------------------------------------------------------------// METHOD New(nRow , nCol , bSetGet , oWnd , nWidth , nHeight , cPict ,; bValid , nClrFore , nClrBack, oFont , lDesign, oCursor , lPixel ,; cMsg , lUpdate , bWhen , lCenter , lRight , bChanged, lReadOnly,; lPassword, lNoBorder, nHelpId , lSpinner, bUp , bDown , bMin ,; bMax , aItems, nCase, lAddNewItems) CLASS TAutoGet local nLen, i DEFAULT nCase := 3, lAddNewItems := .T. Super:New(nRow , nCol , bSetGet , oWnd , nWidth , nHeight,; cPict , bValid , nClrFore , nClrBack , oFont , lDesign,; oCursor, lPixel , cMsg , lUpdate , bWhen , lCenter,; lRight , bChanged, lReadOnly, lPassword, lNoBorder, nHelpId,; lSpinner, bUp , bDown , bMin , bMax ) if(aItems == Nil, aItems := {}, ) ::nCase := nCase // Added by RAMESH BABU P ::lAddNewItems := lAddNewItems // Added by RAMESH BABU P ::aItems := aItems ::bPostKey := {|oGet, cBuffer| ::AutoFill()} return( Self ) //---------------------------------------------------------------------------// METHOD ReDefine(nID , bSetGet , oWnd , nHelpId, cPict , bValid, nClrFore,; nClrBack , oFont , oCursor, cMsg , lUpdate, bWhen , bChanged,; lReadOnly, lSpinner, bUp , bDown , bMin , bMax , aItems ,; nCase, lAddNewItems ) CLASS TAutoGet DEFAULT nCase := 3, lAddNewItems := .T. Super:ReDefine(nID , bSetGet , oWnd , nHelpId, cPict , bValid, nClrFore ,; nClrBack , oFont , oCursor, cMsg , lUpdate, bWhen , bChanged,; lReadOnly, lSpinner, bUp , bDown , bMin , bMax ) if(aItems == Nil, aItems := {}, ) ::nCase := nCase ::lAddNewItems := lAddNewItems ::aItems := aItems ::bPostKey := {|oGet, cBuffer| ::AutoFill()} return( Self ) //---------------------------------------------------------------------------// // Set items of AutoGet //---------------------------------------------------------------------------// METHOD SetItems( aItems ) CLASS TAutoGet if(aItems == Nil, aItems := {}, ) ::aItems := aItems return( Nil ) //---------------------------------------------------------------------------// // Auto fill text when typed based on aItems // Return: Always returns .T. //---------------------------------------------------------------------------// METHOD AutoFill() CLASS TAutoGet local nPosItem := 0 // Text position into ::aItems local nPosCursor := ::nPos // Current cursor position local nLength := len(::cText) // Text length local cStartTxt := left(::cText, nPosCursor-1) // Start text (position 1 to cursor position -1) local cItem := "" local nKey := 0 if len(::aItems) = 0 // We have no items to search in this GET return(.T.) endif //------------------------------------------------------------------------- // We use ::lAuto to control when we must search in ::aItems for typed text // We must seek in ::aItems when GET is blank or when user clear it //------------------------------------------------------------------------- if valtype(::lAuto) != "L" // Cargo isn't logical yet -> GET received focus now if ! empty(::Value) // GET isn't empty ::lAuto := .F. // We don't use autofill else // GET is empty ::lAuto := .T. // Use autofill endif else // We are controlling if use or no autofill if empty(::Value) // User could cleaned the GET text ::lAuto := .T. // Use autofill endif endif if ! ::lAuto // If don't control autofill return(.t.) endif nKey := ::nLastKey do case case nKey == VK_TAB .or. ; nKey == VK_RETURN .or. ; nKey == VK_DELETE ::Assign() // Assign typed text case nKey >= 32 .and. nKey <= 256 FOR EACH cItem IN ::aItems nPosItem += 1 //if ToUpper( cItem ) = ToUpper( cStartTxt ) // REMOVED BY RAMESH BABU P on 19-06-2011 cItem := ToUpper( cItem,::nCase ) // ADDED BY RAMESH BABU P on 19-06-2011 if cItem = ToUpper(cStartTxt, ::nCase) // ADDED BY RAMESH BABU P on 19-06-2011 nLength := len( rtrim( cItem ) ) cItem += space( nLength - len(cItem) ) ::SetText( cItem ) ::SetSel( nPosCursor -1, nLength) // Select found text ::oGet:Buffer = Pad( cItem, Len( ::oGet:Buffer )) // add by:ss-bbs return(.t.) endif NEXT ::HideSel() // Text not found -> Undo selected text endcase return( .T. ) //---------------------------------------------------------------------------// // Convert latin characters to ANSI upper case // (for some reason AnsiUpper causes a GPF with Commercial xHB) //---------------------------------------------------------------------------// STATIC function ToUpper( cString, nCase ) if nCase = 2 cString := lower( cString ) elseif nCase = 3 cString := proper( cString ) else cString := upper( cString ) endif cString := strtran(strtran(strtran(strtran(cString,"á","Á"),"à","À"),"ã","Ã"),"â","Â") cString := strtran(strtran(cString,"é","É"),"ê","Ê") cString := strtran(cString,"í","Í") cString := strtran(strtran(strtran(cString,"ó","Ó"),"õ","Õ"),"ô","Ô") cString := strtran(strtran(strtran(cString,"ú","Ú"),"ñ","Ñ"),"ç","Ç") return( cString ) //---------------------------------------------------------------------------// // ADDED BY RAMESH BABU P on 19-06-2011 STATIC FUNCTION proper(cString) LOCAL point,spot,times,char1,char2,char3,char4,char5 STORE 1 TO point,spot,times STORE " " TO char1 STORE "." TO char2 STORE "/" TO char3 STORE "-" TO char4 STORE "_" TO char5 * Convert beginning letter of string to Upper Case & last letter to lower case cString = UPPER(LEFT(cString,1))+LOWER(RIGHT(cString,LEN(cString)-1)) * First capitalise every 1st letter in a word after a space and after a dot DO WHILE point >0 .AND. times <= 5 point = AT(char1,SUBSTR(cString,spot,LEN(TRIM(cString))-spot)) IF point >0 spot = point + spot cString = STUFF(cString,spot,1,UPPER(SUBSTR(cString,spot,1))) ELSE IF times = 1 char1 = char2 ELSEIF times = 2 char1 = char3 ELSEIF times = 3 char1 = char4 ELSEIF times = 4 char1 = char5 ENDIF STORE 1 TO point,spot times = times + 1 IF times >5 EXIT ELSE LOOP ENDIF ENDIF ENDDO RETURN cString //---------------------------------------------------------------------------// FUNCTION AddNewItem(aItems,cText) IF ASCAN(aItems,{|x|UPPER(ALLTRIM(x)) == UPPER(ALLTRIM(cText))}) = 0 AADD(aItems,cText) ENDIF RETURN nil //---------------------------------------------------------------------------//

AutoGet.CH

Code: Select all Expand view RUN: /*----------------------------------------------------------------------------// !short: AUTOGET */ #define CUPPER 1 #define CLOWER 2 #define CPROPER 3 #xcommand REDEFINE AUTOGET [ <oGet> VAR ] <uVar> ; [ ID <nId> ] ; [ <dlg: OF, WINDOW, DIALOG> <oDlg> ] ; [ <help:HELPID, HELP ID> <nHelpId> ] ; [ VALID <ValidFunc> ] ; [ <pict: PICTURE, PICT> <cPict> ] ; [ <color:COLOR,COLORS> <nClrFore> [,<nClrBack>] ] ; [ FONT <oFont> ] ; [ CURSOR <oCursor> ] ; [ MESSAGE <cMsg> ] ; [ <update: UPDATE> ] ; [ WHEN <uWhen> ] ; [ ON CHANGE <uChange> ] ; [ <readonly: READONLY, NO MODIFY> ] ; [ <spin: SPINNER> [ON UP <SpnUp>] [ON DOWN <SpnDn>] [MIN <Min>] [MAX <Max>] ] ; [ ITEMS <aItems>] ; [ CASE <nCase> ] ; [ <lAddNewItem: ADD ITEMS> ] ; => ; [ <oGet> := ] TAutoGet():ReDefine( <nId>, bSETGET(<uVar>), <oDlg>,; <nHelpId>, <cPict>, <{ValidFunc}>, <nClrFore>, <nClrBack>,; <oFont>, <oCursor>, <cMsg>, .T., <{uWhen}>,; [ \{|nKey,nFlags,Self| <uChange> \}], <.readonly.>,; <.spin.>, <{SpnUp}>, <{SpnDn}>, <{Min}>, <{Max}>, <aItems>, <nCase>, <.lAddNewItem.>) #command @ <nRow>, <nCol> AUTOGET [ <oGet> VAR ] <uVar> ; [ <dlg: OF, WINDOW, DIALOG> <oWnd> ] ; [ <pict: PICTURE, PICT> <cPict> ] ; [ VALID <ValidFunc> ] ; [ <color:COLOR,COLORS> <nClrFore> [,<nClrBack>] ] ; [ SIZE <nWidth>, <nHeight> ] ; [ FONT <oFont> ] ; [ <design: DESIGN> ] ; [ CURSOR <oCursor> ] ; [ <pixel: PIXEL> ] ; [ MESSAGE <cMsg> ] ; [ <update: UPDATE> ] ; [ WHEN <uWhen> ] ; [ <lCenter: CENTER, CENTERED> ] ; [ <lRight: RIGHT> ] ; [ ON CHANGE <uChange> ] ; [ <readonly: READONLY, NO MODIFY> ] ; [ <pass: PASSWORD> ] ; [ <lNoBorder: NO BORDER, NOBORDER> ] ; [ <help:HELPID, HELP ID> <nHelpId> ] ; [ ITEMS <aItems>] ; [ CASE <nCase> ] ; [ <lAddNewItem: ADD ITEMS> ] ; => ; [ <oGet> := ] TAutoGet():New( <nRow>, <nCol>, bSETGET(<uVar>),; [<oWnd>], <nWidth>, <nHeight>, <cPict>, <{ValidFunc}>,; <nClrFore>, <nClrBack>, <oFont>, <.design.>,; <oCursor>, <.pixel.>, <cMsg>, .T., <{uWhen}>,; <.lCenter.>, <.lRight.>,; [\{|nKey, nFlags, Self| <uChange>\}], <.readonly.>,; <.pass.>, [<.lNoBorder.>], <nHelpId>,,,,,,<aItems>, <nCase>, <.lAddNewItem.>) #command @ <nRow>, <nCol> AUTOGET [ <oGet> VAR ] <uVar> ; [ <dlg: OF, WINDOW, DIALOG> <oWnd> ] ; [ <pict: PICTURE, PICT> <cPict> ] ; [ VALID <ValidFunc> ] ; [ <color:COLOR,COLORS> <nClrFore> [,<nClrBack>] ] ; [ SIZE <nWidth>, <nHeight> ] ; [ FONT <oFont> ] ; [ <design: DESIGN> ] ; [ CURSOR <oCursor> ] ; [ <pixel: PIXEL> ] ; [ MESSAGE <cMsg> ] ; [ <update: UPDATE> ] ; [ WHEN <uWhen> ] ; [ <lCenter: CENTER, CENTERED> ] ; [ <lRight: RIGHT> ] ; [ ON CHANGE <uChange> ] ; [ <readonly: READONLY, NO MODIFY> ] ; [ <help:HELPID, HELP ID> <nHelpId> ] ; [ <spin: SPINNER> [ON UP <SpnUp>] [ON DOWN <SpnDn>] [MIN <Min>] [MAX <Max>] ] ; [ ITEMS <aItems>] ; [ CASE <nCase> ] ; [ <lAddNewItem: ADD ITEMS> ] ; => ; [ <oGet> := ] TAutoGet():New( <nRow>, <nCol>, bSETGET(<uVar>),; [<oWnd>], <nWidth>, <nHeight>, <cPict>, <{ValidFunc}>,; <nClrFore>, <nClrBack>, <oFont>, <.design.>,; <oCursor>, <.pixel.>, <cMsg>, .T., <{uWhen}>,; <.lCenter.>, <.lRight.>,; [\{|nKey, nFlags, Self| <uChange>\}], <.readonly.>,; .f., .f., <nHelpId>,; <.spin.>, <{SpnUp}>, <{SpnDn}>, <{Min}>, <{Max}>, <aItems>, <nCase>, <.lAddNewItem.>)

AutoGet.prg - To test TAutoGet

Code: Select all Expand view RUN: #include "fivewin.ch" #include "autoget.ch" #include "xbrowse.ch" FUNCTION main() LOCAL oDlg, oGet1, cName1, oGet2, cName2, aNames, lOk := .F. cName := space(20) cCity := space(20) aNames := {"RAmeSh", "rAmA rAo", "rAmDev", "rAM kUMAR", "raMADevi", "ramanA"} aCities := {"HYDERABAD", "SECUNDERABAD", "VIJAYAWADA", "VISAKHAPATNAM", "WARANGAL", "TIRUPATHI"} DEFINE DIALOG oDlg TITLE "Test Autoget" @ 1.2,1.2 SAY oSay1 PROMPT "Enter Name" oF oDlg @ 1.4,5.1 AUTOGET oGet1 VAR cName OF oDlg SIZE 110,12 ITEMS aNames CASE CUPPER ADD ITEMS @ 2.1,1.2 SAY oSay1 PROMPT "Enter City" OF oDlg @ 2.4,5.1 AUTOGET oGet2 VAR cCity OF oDlg SIZE 110,12 ITEMS aCities CASE CPROPER ADD ITEMS @ 3.0,19 BUTTON oOk PROMPT "&Finish" SIZE 35,12 OF oDlg ACTION (lOk := .T., oDlg:End()) ACTIVATE DIALOG oDlg CENTERED IF lOk XBROWSER aNames XBROWSER aCities ENDIF RETURN nil **********

FiveTech Software tech support forums

auto complete feature

Re: auto complete feature

Re: auto complete feature - a small addition

Re: auto complete feature

Re: auto complete feature

Re: auto complete feature

Re: auto complete feature

Who is online