------------------------------------------------------------------- I admit, it could be better commented. But, you get the idea, right? David in Dallas. --- Maximus/2 3.01 * Origin: * MacSavvy OS/2 BBS * Dallas, Texas * 972-250-4479 * (1:124/1208) --------------- FIDO MESSAGE AREA==> TOPIC: 139 FOXPRO Ref: E2C00006 Date: 02/06/97 From: BRUCE GILMOUR Time: 09:50pm \/To: ABB NAKLIE (Read 2 times) Subj: Re: SETFOCUS() On 02-01-97 21:58, Abb Naklie was heard to bellow to David Powell about SETFOCUS(). AN> A solution I got off the internet for that problem of the cursor not AN> going to the 1st field after hitting an "Add" button (produced by the AN> wizards, or me using Append Blank, or even in any examples from books AN> that I have) was to add the following code to an Add button: AN> ThisForm.Text1.SetFocus() Hi Abb. Pardon me for jumping in here. I am still learning this stuff but your question intrigued me so I looked a couple of things up. I believe the example you got above was intended to be generic where "Text1" is the name of the field where you want to set focus. The help in VFP5 gives the format of the setfocus command as control.SetFocus. Thus, if you want your Customer Name field (say CustNAme) to get the focus you would say CustName.SetFocus() AN> Well, it doesn't work and I'm not surprised because the SetFocus() AN> (don't laugh) didn't turn blue when I typed it. Having even searched AN> the CD and not found SetFocus(), I don't think this solution applies AN> VFP 5. Just out of curiosity, would the above worked VFP 3? What would AN> be the VFP equivalent. You know, in the Tasmanian Traders, when you AN> want to add something, the cursor _does_ go to the 1st field, but for AN> the life of me, I haven't figured out how it does it yet!!!! Other AN> than that, the damn thing is great! In Tasmanian Traders if you open the tastrade project and go to classes, under tsbase classes you will find tstoolbar. If you modify tstoolbar, click on the add button and bring up code using the right click, you will see a procedure called Addnew. Now under tsbaseform, they define addnew which does a buch of stuff. The Key however is under each form. If you go to the Customer form for example and bring up the Code area and go to the form section you will find the addform procedure. This procedure is modified to call the default operations from the base form class and then you will see the command that places focus on the first field - Thisform.pageframes.page1.cntCustomerInfo.txtCustomer_ID.SetFocus() which is juat a more specific definition but the same as the one I gave above in layout. They do it this way because the SetFocus, I believe, has to name a specific field in each form. I hope I am being clear and this helps because, as I said, I am still learning this object oriented approach. - Bruce - ... Your E-Mail has been returned due to insufficient voltage. ___ Blue Wave/QWK v2.12 --- PCBoard 15.2 * Origin: 32 lines 40 Gig BBS, Realtime InterNet SLIP (403)247-7900 (1:134/10) --------------- FIDO MESSAGE AREA==> TOPIC: 139 FOXPRO Ref: E2D00000 Date: 02/07/97 From: DEN BARNES Time: 11:15pm \/To: DAVID POWELL (Read 2 times) Subj: BILL, HOW DO YOU SPEND $9 BILLION ? Cheers David, I noticed that there is a tiny diamond in the February FoxPro Advisor. It is only a 1/4 page long, but it tells how to use SQL Statements to allow creating a Customized Report in a FP .EXE !!! I did not think it could be done and I never would have thought of the SQL backdoor. When I read it, I thought, this seems like the way Dave might do it, and if He has not, then He will love this one. About FoxPro 2.6B, I got some more information from Microsoft. I am more than a little embarrassed to say that, 2.6A did not fix most of the Known bugs in 2.6. as I had been told. It now appears to me that more like 6 or 8 of the 50 or so bugs Known to Ms. were fixed and so I assume the rest are still with us Today in 2.6A, not to mention the ones discovered since then. An Upgrade, of course You are right, we have no chance, but just a straight Maintenance release, I am not so sure. I appreciate Your sediments, den One Hundred BORLAND Ways - Not just an address, a confused state of mind ! --- TMail v1.31.5 * Origin: Diablo Valley PCUG-BBS, Walnut Creek, CA 510/943-6238 (1:161/55) --------------- FIDO MESSAGE AREA==> TOPIC: 139 FOXPRO Ref: E2D00001 Date: 02/08/97 From: GERRY DANEN Time: 11:02am \/To: OLEG SANDUL (Read 2 times) Subj: Hiding passwords and FPW26 On 06 Feb 97 16:33:00, Oleg was going on about "Hiding passwords and FPW26"... OS> I know the solution of this problem but I don't know Bruce McKinnon's OS> address. Would you like to give me his address :-) ? I don't have his address, but if you post a message in this echo, addressed to Bruce McKinnon, I'm certain he'll get it. Gerry Danen gdanen@accessweb.com CompuServe: 102736,3352 ... Power corrupts. Absolute power is kinda neat. --- Maximus 3.01 * Origin: C+Net BBS. Programming & Networking. (1:342/1017) --------------- FIDO MESSAGE AREA==> TOPIC: 139 FOXPRO Ref: E2D00002 Date: 02/09/97 From: GERRY DANEN Time: 11:26am \/To: DAVID POWELL (Read 2 times) Subj: Hiding passwords and FPW26 DP> Here it is: DP> *:********************************************************************* DP> *: Procedure file: PassCard Thanks, David. --- Maximus 3.01 * Origin: C+Net BBS. Programming & Networking. (1:342/1017) --------------- FIDO MESSAGE AREA==> TOPIC: 139 FOXPRO Ref: E2D00003 Date: 02/09/97 From: DAVID POWELL Time: 03:36pm \/To: ALL (Read 2 times) Subj: FPLib(): AUser() Hi All: Last night I was reading the Jan 97 FoxTalk and came across Doug Hennig's article, "Working with Arrays." In it he includes his code for CloseOpenedTables, which he could pull from an array generated by VFP's AUSED() function. I've used AUSED() and have come to appreciate its value. (Remember when YOU discovered ADIR() in FP 2.x?) Well, I thought we needed an AUSER() in FP 2.x, too. Here it is. *!******************************************************************* *! Function..........: AUsed() *! Author............: David Lee Powell *! Project...........: Visual FoxPro Functions for FoxPro 2.x *! Created...........: 09-Feb-97 *! Copyright.........: (c) 1997, Data-Train MicroComputing *! : I grant usage to anyone interested, however, *! : in hopes that increased functionality for our *! : earlier FoxPro versions will result. *) Description.......: Emulates the AUSED() function of VFP *! Syntax/Usage......: DIME laUsed[ 1, 2 ] *! : jnOpen = AUsed( @laUsed ) *! Note..............: The array variable is passed by reference, *! : unlike that of VFP. The first column of the *! : array is filled with the ALIAS() and the second *! : column is filled with the SELECT() value. *! Parameter list....: laUsed - array variable to be filled with *! : the aliases currently open *! Platform..........: DOS/WIN *! Major change list.: None *! Called by.........: Any *! Calls.............: None *!******************************************************************* FUNC AUsed PARA laUsed jnArrows = 0 && "Array row" count :^) FOR jj = 1 TO 225 && Loop through the work areas IF ! EMPT( ALIA( jj ) ) && If an ALIAS occurs here jnArrows = jnArrows + 1 && Increase the row count DIME laUsed[ jnArrows, 2 ] && Re-dimension array by 1 row laUsed[ jk, 1 ] = ALIA( jj ) && First column: ALIAS laUsed[ jk, 2 ] = jj && Second column: SELECT area ENDI NEXT (jj) RELE jj && Clean up memvar space a little RETU jk ---------------------------------------------------------------------- Admittedly, there is more documentation than code, but so what? Can you use this? I hope so. David in Dallas. --- Maximus/2 3.01 * Origin: * MacSavvy OS/2 BBS * Dallas, Texas * 972-250-4479 * (1:124/1208) --------------- FIDO MESSAGE AREA==> TOPIC: 139 FOXPRO Ref: E2E00000 Date: 02/09/97 From: DAVID POWELL Time: 03:45pm \/To: BRUCE GILMOUR (Read 2 times) Subj: Re: SETFOCUS() Hi Bruce: BG> in layout. They do it this way because the SetFocus, I believe, has to name BG> a specific field in each form. I hope I am being clear and this helps BG> because, as I said, I am still learning this object oriented approach. Very clear! And thanks! I learned something here, too. Your efforts are appreciated. David in Dallas. --- Maximus/2 3.01 * Origin: * MacSavvy OS/2 BBS * Dallas, Texas * 972-250-4479 * (1:124/1208) --------------- FIDO MESSAGE AREA==> TOPIC: 139 FOXPRO Ref: E2E00001 Date: 02/09/97 From: DAVID POWELL Time: 03:48pm \/To: DEN BARNES (Read 2 times) Subj: BILL, HOW DO YOU SPEND $9 BILLION ? Hi Den: Are you suggesting, then, that we might INDIVIDUALLY and FREQUENTLY harangue the folks at Microsoft about the bugs in FP 2.6A? And perhaps through osting them here, we all might have access (no pun) to them to remind M$ of another job left uncompleted? If we were to become as insistent upon their correcting these problems as MY clients are, perhaps they would. David in Dallas. --- Maximus/2 3.01 * Origin: * MacSavvy OS/2 BBS * Dallas, Texas * 972-250-4479 * (1:124/1208) --------------- FIDO MESSAGE AREA==> TOPIC: 139 FOXPRO Ref: E2F00000 Date: 02/09/97 From: DEN BARNES Time: 09:41pm \/To: DAVID POWELL (Read 2 times) Subj: BILL, HOW DO YOU SPEND $9 BILLION ? Greetings David, Did You know that Ray Nordia, the founder of Novell, started a new company Caldera, in Utah a bit over a year ago? They have developed the first Office Suite of business applications for Linux, which includes WordPerfect6. They also have their own version of Linux, Network Desktop, with built-in WWW server, Internet E-mail, Netscape Navigator and NetWare connectivity. Now they have purchased the DR-DOS operating system from the Digital Research division of Novell. They are going to release a New version and are writing Internet access extensions for it. Ray is a very shrewd businessman and it appears that he saw Gary's brilliance after all and the potential hidden inside DR-DOS. Now if they can acquire FoxPro, then the Skys the limit! He he, ha ha, ho ho, den P. S. (Even though they stopped selling it, DR/Novell has continued to support it with 4 Maintenance updates to each DR-DOS 6.x & 7.) --- TMail v1.31.5 * Origin: Diablo Valley PCUG-BBS, Walnut Creek, CA 510/943-6238 (1:161/55)