There have been a lot of great sessions done over the years about Intellisense, builders, etc. (usually by Rick Schummer or Doug Hennig). Every time I've been able to sit in on these sessions, I end up leaving all geeked up to write some cool routine or code that will make my life easier. A few days go by and reality sets in - I don't really have the time to actually write any of that stuff. 6 months go by, someone shows some other slick utility they wrote and I get all excited about it again.

With that in mind, here are a few easy changes you can make (that won't take more than a few minutes) that can help save you some time. Just think how many times a day you type some of these things:

Tools > Intellisense Manager > Custom

CreateObject

In the Replace field, enter CO in the With field, enter CREATEOBJECT. Change the Type combo to Function. Then click Add.

MessageBox

Now type MB in the Replace field and MESSAGEBOX in the With field, again make sure the type combo is set to Function.

Now close the Intellisense Manager. At the command window enter:

USE (_foxcode) IN 0 AGAIN SHARED
SELECT FoxCode
APPEND BLANK
BROWSE

IF ENDIF

In the new record enter:

Type: U
Abbrev: IF
Cmd: {stmthandler}
Data: Double click on it and enter:
IF ~
<<lcSpace>>ENDIF

Save: T
The timestamp & UniqueID are optional.

SCAN ENDSCAN

APPEND BLANK

Type: U
Abbrev: SCAN
Cmd: {stmthandler}
Data: Double click on it and enter:
SCAN ~
<<lcSpace>>ENDSCAN

FOR ENDFOR

APPEND BLANK

Type: U
Abbrev: FOR
Cmd: {stmthandler}
Data: Double click on it and enter:
FOR ~
<<lcSpace>>ENDFOR

WITH

(can you guess?)

APPEND BLANK

Type: U
Abbrev: WITH
Cmd: {stmthandler}
Data: Double click on it and enter:
WITH ~
<<lcSpace>>ENDWITH

TRY CATCH

APPEND BLANK

Type: U
Abbrev: TC
Cmd: {stmthandler}
Data: Double click on it and enter:
TRY
   ~
CATCH TO loEx
ENDTRY

TRY CATCH FINALLY

APPEND BLANK

Type: U
Abbrev: TCF
Cmd: {stmthandler}
Data: Double click on it and enter:
TRY
   ~
CATCH TO loEx
FINALLY
ENDTRY

Close the browse window and the foxcode table.

Hotkeys:

This one will reset the dev. environment for you.

Select Tools > Macros. Click on New. Hit F4 as the key, enter "ClearIt" as the macro name. Paste this into the macro contents:

_genscrn=_foxcode{ENTER}
_foxcode{SPACEBAR}={SPACEBAR}""{ENTER}
set{SPACEBAR}development{SPACEBAR}on{ENTER}
execscript("do{SPACEBAR}while{SPACEBAR}txnlevel(0{BACKSPACE})>0"+chr(13)+"rollback"+chr(13)+"enddo"){ENTER}
clear{SPACEBAR}all{ENTER}
release{SPACEBAR}all{ENTER}
clear{SPACEBAR}program{ENTER}
set{SPACEBAR}procedure{SPACEBAR}to{ENTER}
set{SPACEBAR}classlib{SPACEBAR}to{ENTER}
clear{ENTER}
_foxcode=_genscrn{ENTER}

 

Hit OK.

Now try everything out - open a program window:

CO(
MB(

Hit the spacebar after these:

IF
SCAN
FOR
WITH
TC
TCF

 

Links

http://rickschummer.com/blog
http://doughennig.blogspot.com