Joe, The Wait window is waiting for keystrokes. Add "nowait noclear" to the end of the wait command. Without it the wait command requires key entry to terminate it.
The logic of the validation seems a little perverse though in that you look to require a "D" in the text field but specifically stop that character from being entered. Dave Crozier -----Original Message----- From: [email protected] [mailto:[email protected]] On Behalf Of Joe Yoder Sent: 23 December 2008 13:42 To: [email protected] Subject: RE: Newbee - working with a programmatically created text box Thanks Dave and all for the patient help - I've gotten to first base! Now I'm stuck again when I try to add code to the KeyPress event of the programmatically created text box. The code works fine to limit the characters I accept in the textbox originally on the form. The programmatically created textbox seems to ignore it. Here is the Class definition: DEFINE CLASS WSbox as TextBox FUNCTION valid RETURN IIF('D' $ this.Value, .t., .f.) ENDFUNC FUNCTION KeyPress LPARAMETERS nKeyCode, nShiftAltCtrl IF NOT (CHR(nKeyCode) $ '0123456789:.' OR INLIST(nKeyCode, 4, 5, 7,9, 13, 19, 24, 127)) WAIT WINDOW nKeyCode NODEFAULT ENDIF ENDFUNC ENDDEFINE Thanks for any further help - Joe On Monday, December 22, 2008 12:03 PM, Dave Crozier wrote: > >Date: Mon, 22 Dec 2008 17:03:56 -0000 >From: Dave Crozier >To: [email protected] >cc: >Subject: RE: Newbee - working with a programmatically created text box > >Joe, >I've been a bit of a "Dick Head" here for the sake of saving time. Sorry, >but I forgot to say that you need to put the VFP_Classes file into the "Set >Procedure to ..." i.e > >Assuming that the folder structure of your project is as follows: > >+VFP_Project >--Data >--Programs > Init.prg > Subroutines.prg > .... >--Forms > Form1.scx > .... >--Menus >--Classes > VFP_Classes.prg > >Assuming the VFP_Classes.prg is in the subfolder Classes of the main project >then your initialization program - I usually call it init.prg would be as >follows: > > >*************** >* Init.prg >* This program sets up the defaults for the Program >* >Set talk off >Set echo off >* Set the home folder to be the location of the project >Set default to Application.ActiveProject.HomeDir > >Set path to Data; Classes; Programs; Forms; Menus >Set procedure to Subroutines,VFP_Classes > >Do VFP_Classes >Return > >Return >* >* END OF PROGRAM >*************** > >************ >* VFP_Classes.Prg >Return > >Define class clsMyTextBox as TextBox > BackColor=rgb(255,0,0) >EndDefine >* >* End of Program >************* > > > >Now you can use the: > >...AddProperty("txtText","clsMyTextBox") >...CreateObject("txtText", "clsMyTextBox") >Or NewObject() as rewuired. > >Remember that when you create an object it is initially set to be invisible, >so you need to set the Visible property to .T. after the instantiation or in >the object Init()if you want to see it!!! > >Sorry about that slight slip up but I hold all this in my framework and >going back to basics again made me forget the "set Proc to" command. > >Now to thrash myself within an inch of my life for such a stupid error!!! > >Dave Crozier > > >-----Original Message----- >From: [email protected] [mailto:[email protected]] On Behalf >Of Joe Yoder >Sent: 22 December 2008 16:15 >To: [email protected] >Subject: RE: Newbee - working with a programmatically created text box > >Dave, > >I've tried what you suggested but VFP is not finding the class I define. >I suspect my problem is with setting the path as I don't fully understand >your example. At this point I set the path to the full path of the >classes.prg file. > >I'm pretty sure you are doing something tricky with a return as the first >line in the Classes file. Since I don't understand the trick I tried it >both ways with the same results. > >Here is the contents of the classes.prg file: - maybe there is something >else I am missing: >RETURN >DEFINE CLASS WSbox as TextBox > FUNCTION valid > RETURN .f. > ENDFUNC >ENDDEFINE > >Here is the line from the form that fails with "Class definition WSbox >is not found.": > thisform.AddObject('TBTmCalc', 'WSbox') > >Thanks - Joe > >On Monday, December 22, 2008 9:30 AM, Dave Crozier wrote: >> >>Date: Mon, 22 Dec 2008 14:30:35 -0000 >>From: Dave Crozier >>To: [email protected] >>cc: >>Subject: RE: Newbee - working with a programmatically created text box >> >>Joe, >>Put all your class code into a separate .prg file eg >>\Classes\VFP_Classes.prg. >>Make sure the path to this file is in the VFP path eg set path to >.\Classes\ >> >>In the VFP_Classes.prg make the first statement a return: >> >>* VFP_Classes.prg >> >>Return >> >>Define class clsMyTextBox as Textbox >> ... >>Enddefine >> >>Define class clsMyGrid as Grid >>... >>Enddefine >> >>...etc etc >> >>In your initialization program you can then simply "do VFP_Classes". From >>then on you can create classes/objects using CreateObject() etc. whenever >>you want. >> >>This is not the only way to do it as you can create classes in many other >>ways for example from Visual class libraries etc. but it is the easiest way >>when you are starting out. >> >>Dave Crozier >> >> >>-----Original Message----- >>From: [email protected] [mailto:[email protected]] On Behalf >>Of Joe Yoder >>Sent: 22 December 2008 14:16 >>To: [email protected] >>Subject: Re: Newbee - working with a programmatically created text box >> >>Further question - I tried the code you suggested immediately before the >>addobject in the procedure that adds the text box. VFP tells me that I >>have broken the rules with a "Statement is not a procedure" compiler >>error message. Where do I put the class definition code? Does it need >>to be a part of a library for all time or can it be limited to a project >>until I really understand what I am doing? Thanks - Joe >> >>On Monday, December 22, 2008 7:37 AM, Joe Yoder wrote: >>> >>>Date: Mon, 22 Dec 2008 07:37:54 -0500 >>>From: Joe Yoder >>>To: [email protected] >>>cc: >>>Subject: Re: Newbee - working with a programmatically created text box >>> >>>Thanks for the answer. I have never fully understood the process off >>>defining my own classes. I thought in this case I could simply use an >>>existing class but could not figure out how to set the Valid function. >>>Do I understand correctly that the only way to control such functions is >>>to define my own class? Thanks - Joe >>> >>>On Sunday, December 21, 2008 11:33 PM, MB Software Solutions General >>>Account wrote: >>>> >>>>Date: Sun, 21 Dec 2008 23:33:02 -0500 (EST) >>>>From: MB Software Solutions General Account >>>>To: [email protected] >>>>cc: >>>>Subject: Re: Newbee - working with a programmatically created text box >>>> >>>>Joe Yoder wrote: >>>>> I like the approach used by QuickBooks where pressing a mathematical >>>>operator in a numeric field brings up a mini worksheet where one can do >>>>math on the value in the field. I'm working a similar implementation >>>>for time entry. >>>>> >>>>> A text box overlays a field used for time entry when a plus or minus >>>>operator is pressed in that field. The text box expands to display a >>>>separate line for each value added or subtracted from the original value >>>>and serves as a mini worksheet. When the entry is complete and the user >>>>presses the "Enter" key, The text box is eliminated and the result of >>>>the math on the worksheet is entered in the original text field. >>>>> >>>>> I need to force all entry into the worksheet until it is complete so >>>>that program can finish the calculation and close the worksheet. I >>>>think setting the valid as always false until an "Enter" is pressed will >>>>give the desired result. >>>>> >>>>> Can someone enlighten me about how to set the Valid function on a >>>>programmatically created text box? Suggest a better approach? >>>>> >>>> >>>> >>>>Hi Joe, >>>> >>>>If you're "stickbuilding it" by creating it in a PRG, just define the >>>>Valid event of your class. >>>> >>>>DEFINE CLASS cboSample as Combobox >>>> >>>> FUNCTION Valid >>>> * This code runs just like it would if you set the code inside a VCX >>object >>>> ENDFUNC >>>> >>>>ENDDEF >>>> >>>> >>>> >>>> >>>> [excessive quoting removed by server] _______________________________________________ Post Messages to: [email protected] Subscription Maintenance: http://leafe.com/mailman/listinfo/profox OT-free version of this list: http://leafe.com/mailman/listinfo/profoxtech Searchable Archive: http://leafe.com/archives/search/profox This message: http://leafe.com/archives/byMID/profox/97b798a0099e47b3bdc138b0f7620...@develop ** All postings, unless explicitly stated otherwise, are the opinions of the author, and do not constitute legal or medical advice. This statement is added to the messages for those lawyers who are too stupid to see the obvious.
