| Subject | Re: attaching a method to MYTOOLBAR |
| From | Andy Taylor <andy.taylor.1959@outlook.com> |
| Date | Wed, 02 Sep 2020 17:04:02 -0400 |
| Newsgroups | dbase.getting-started |
Gaetano, Ok, I misunderstood. I don't use the export function to save custom controls in a cc file. I write them by hand. I suspect that the export function is not designed to export custom functions contained within controls in the control design form. Andy > Hi Andy, > > Here is the custom controls design form and the .cc file where those > controls are exported to. Look for Mytoolbar in the .cc file. It has a > function named resetToolbar. > > What I want to achieve is to include this function in the form and have > it exported together with the actual toolbar through the File-Save as > custom menu option. > > The way it is coded in the cc file, I can call that function in any form > where the toolbar is used. I have included teh reset in some buttons but > it doesn't make sense for the PBNEW button because I only want to reset > the buttons if the record is being saved or abandoned. As long as it is > in apend mode, I want the buttons disabled. That's why I need to call > this function from within the form in the canSave event handler (per my > other post about shortening references). > > Cheers, > Gaetano. > > > On 02/09/2020 10:26, Andy Taylor wrote: > > Gaetano, > > > > I have attached a simple form that has a floating toolbar (at 0,0 on screen). > > Right Clicking on the form changes the toolbar properties using a function within the toolbar class definition. > > Is that the sort of thing that you need? > > > > Andy > > > >> Gaetano, > >> > >> I don\'t think that\'s true. > >> The problem here is that it\'s hard to visualise what you want without some sample code. > >> Stripped down as much as you like... then we have something to work with. > >> It\'s easy for you to understand what you want... you can see your code and understand your problem... we have to guess. > >> > >> Regards, > >> Andy > >> > >> > >>> It\'s a lot easier to design visual components visually, in a form, so if > >>> I cannot include a function that is not tied to a baseclass event, I > >>> guess I just need to remember to add it manually to the cc file :) > >>> > >>> On 01/09/2020 19:37, Maurizio S. wrote: > >>>> I have very old approach with \'mytoolbar.cc\' > >>>> derived from dBulletin > >>>> never changed it, because is very useful > >>>> maybe there are better solutions, but... once works > >>>> rarely use constructor form and/or menu, as prefer editing by hand > >>>> > >>>> sincerely, I do not understand what are you looking for > >>>> > >>>> > >>>> tks > >>>> Maurizio > >>>> > >>>> Il 31/08/20 23:48, Gaetano ha scritto: > >>>>> > >>>>> Hi there, > >>>>> > >>>>> I need a simple function to reset all the MYTOOLBAR button\'s enabled > >>>>> property to true. > >>>>> > >>>>> In the tutorial, we design custom controls in a form, then export it > >>>>> to mycontrols.cc. However, I have not found a way to link a standalone > >>>>> function (i.e. a function that is not linked to an event) to the > >>>>> toolbar. If I add the function to the form, nothing links it to the > >>>>> toolbar and it is not included in the \"save as custom\" export to > >>>>> mycontrols.cc file. > >>>>> > >>>>> I can add it manually to the CC file but every time I make an update > >>>>> to the control in the form and re-export it, the function is lost > >>>>> because I don\'t know how to attach the function to the toolbar object > >>>>> inside the form. > >>>>> > >>>>> Is there a way around that or do I just need to remember to re-add the > >>>>> function manually in the .cc file inside the toolbar class definition? > >>>>> > >>>>> Thanks, > >>>>> Gaetano. > >>> > >> > > > > > ** END HEADER -- do not remove this line > // > // Generated on 01/09/2020 > // > parameter bModal > local f > f = new customControlsForm() > if (bModal) > f.mdi = false // ensure not MDI > f.readModal() > else > f.open() > endif > > class customControlsForm of FORM > set procedure to :DT_custom:MyControls.cc additive > with (this) > metric = 6 // Pixels > height = 511.0 > left = 468.0 > top = 122.0 > width = 706.0 > text = "" > endwith > > this.MYTEXT = new TEXT(this) > with (this.MYTEXT) > height = 22.0 > left = 14.0 > top = 55.0 > width = 84.0 > text = "MyText" > borderStyle = 10 // Etched Out > endwith > > this.MYENTRYFIELD1 = new MYENTRYFIELD(this) > with (this.MYENTRYFIELD1) > height = 22.0 > left = 126.0 > top = 11.0 > width = 56.0 > endwith > > this.MYTEXTLABEL = new TEXTLABEL(this) > with (this.MYTEXTLABEL) > height = 22.0 > left = 21.0 > top = 88.0 > width = 84.0 > transparent = true > text = "MyTextLabel" > fontBold = true > alignHorizontal = 2 // Right > endwith > > this.MYPUSHBUTTON = new PUSHBUTTON(this) > with (this.MYPUSHBUTTON) > height = 24.0 > left = 35.0 > top = 4.0 > width = 62.0 > text = "MyPushButton" > endwith > > this.MYSPINBOX = new SPINBOX(this) > with (this.MYSPINBOX) > onGotFocus = class::MYSPINBOX_ONGOTFOCUS > height = 22.0 > left = 60.0 > top = 202.0 > width = 56.0 > picture = "99999" > colorHighLight = "WindowText/0x80ffff" > rangeMax = 100 > rangeMin = 1 > value = 1 > endwith > > this.MYCOMBOBOX = new COMBOBOX(this) > with (this.MYCOMBOBOX) > onGotFocus = class::MYCOMBOBOX_ONGOTFOCUS > onChange = class::MYCOMBOBOX_ONCHANGE > height = 22.0 > left = 75.0 > top = 250.0 > width = 84.0 > colorHighLight = "WindowText/0x80ffff" > style = 2 // DropDownList > dropDownHeight = 132.0 > endwith > > this.MYRADIOBUTTON = new RADIOBUTTON(this) > with (this.MYRADIOBUTTON) > transparent = true > height = 24.0 > left = 217.0 > top = 22.0 > width = 110.0 > text = "Radiobutton" > endwith > > this.MYCONTAINER = new CONTAINER(this) > with (this.MYCONTAINER) > transparent = true > left = 432.0 > top = 42.0 > width = 184.0 > height = 101.0 > borderStyle = 4 // Single > endwith > > this.MYGRID = new GRID(this) > with (this.MYGRID) > colorHighLight = "WindowText/0x80ffff" > cellHeight = 22.0 > rowSelect = true > allowEditing = false > allowAddRows = false > height = 88.0 > left = 434.0 > top = 208.0 > width = 182.0 > endwith > > this.MYTABBOX = new TABBOX(this) > with (this.MYTABBOX) > onSelChange = class::TABBOX_ONSELCHANGE > onOpen = class::MYTABBOX_ONOPEN > id = 110 > height = 22.0 > left = 0.0 > top = 487.0 > width = 704.0 > colorHighLight = "WindowText/0x80ffff" > dataSource = 'ARRAY {"Individual Record","Find Record"}' > endwith > > this.MYIMAGE = new IMAGE(this) > with (this.MYIMAGE) > height = 88.0 > left = 209.0 > top = 80.0 > width = 99.0 > alignment = 3 // Keep Aspect Stretch > endwith > > this.MYEDITOR = new EDITOR(this) > with (this.MYEDITOR) > key = class::MYEDITOR_KEY > height = 88.0 > left = 196.0 > top = 187.0 > width = 221.0 > value = "" > colorHighLight = "WindowText/0x80ffff" > evalTags = false > popupEnable = false > endwith > > this.DISABLEDENTRY = new MYENTRYFIELD(this) > with (this.DISABLEDENTRY) > when = class::DISABLEDENTRY_WHEN > height = 22.0 > left = 71.0 > top = 324.0 > width = 56.0 > colorNormal = "White/Maroon" > value = "DisabledEntry" > mousePointer = 12 // No > endwith > > this.MYTITLETEXT = new MYTEXT(this) > with (this.MYTITLETEXT) > height = 28.0 > left = 247.0 > top = 324.0 > width = 84.0 > colorNormal = "Blue/BtnFace" > alignHorizontal = 1 // Center > fontSize = 14.0 > text = "MyTitle" > borderStyle = 1 // Raised > speedTip = "Form Title" > endwith > > this.MYTOOLBAR = new MYCONTAINER(this) > with (this.MYTOOLBAR) > onOpen = class::MYTOOLBAR_ONOPEN > left = 182.0 > top = 363.0 > width = 429.0 > height = 37.0 > endwith > > this.MYTOOLBAR.PBNEW = new MYPUSHBUTTON(this.MYTOOLBAR) > with (this.MYTOOLBAR.PBNEW) > onClick = class::PBNEW_ONCLICK > height = 24.0 > left = 7.0 > top = 6.0 > width = 64.0 > text = "&New" > upBitmap = "filename :Glyfx:\Aero\CE\Dbase Aero\PNG\16x16\favourites_16.png" > fontSize = 8.0 > speedTip = "Add new record" > pageno = 0 > endwith > > this.MYTOOLBAR.PBEDIT = new MYPUSHBUTTON(this.MYTOOLBAR) > with (this.MYTOOLBAR.PBEDIT) > onClick = class::PBEDIT_ONCLICK > height = 24.0 > left = 69.0 > top = 6.0 > width = 62.0 > text = "&Edit" > upBitmap = "filename :Glyfx:\Aero\CE\Dbase Aero\PNG\16x16\document_open_16.png" > fontSize = 8.0 > speedTip = "Edit current record" > pageno = 0 > endwith > > this.MYTOOLBAR.PBSAVE = new MYPUSHBUTTON(this.MYTOOLBAR) > with (this.MYTOOLBAR.PBSAVE) > onClick = class::PBSAVE_ONCLICK > height = 24.0 > left = 125.0 > top = 6.0 > width = 62.0 > text = "&Save" > upBitmap = "filename :Glyfx:\Aero\CE\Dbase Aero\PNG\16x16\save_16.png" > fontSize = 8.0 > speedTip = "Save current record" > pageno = 0 > endwith > > this.MYTOOLBAR.PBABANDON = new MYPUSHBUTTON(this.MYTOOLBAR) > with (this.MYTOOLBAR.PBABANDON) > onClick = class::PBABANDON_ONCLICK > height = 24.0 > left = 181.0 > top = 6.0 > width = 62.0 > text = "&Cancel" > upBitmap = "filename :Glyfx:\Aero\CE\Dbase Aero\PNG\16x16\stop_16.png" > fontSize = 8.0 > speedTip = "Cancel Changes" > pageno = 0 > endwith > > this.MYTOOLBAR.PBDELETE = new MYPUSHBUTTON(this.MYTOOLBAR) > with (this.MYTOOLBAR.PBDELETE) > onClick = class::PBDELETE_ONCLICK > height = 24.0 > left = 241.0 > top = 6.0 > width = 62.0 > text = "&Delete" > upBitmap = "filename :Glyfx:\Aero\CE\Dbase Aero\PNG\16x16\delete_16.png" > fontSize = 8.0 > speedTip = "Delete current record" > pageno = 0 > endwith > > this.MYTOOLBAR.PBNEXT = new MYPUSHBUTTON(this.MYTOOLBAR) > with (this.MYTOOLBAR.PBNEXT) > onClick = class::PBNEXT_ONCLICK > height = 24.0 > left = 360.0 > top = 6.0 > width = 62.0 > text = "&Next" > upBitmap = "filename :Glyfx:\Aero\CE\Dbase Aero\PNG\16x16\arrow_right_16.png" > fontSize = 8.0 > speedTip = "Next record" > pageno = 0 > endwith > > this.MYTOOLBAR.PBPREVIOUS = new MYPUSHBUTTON(this.MYTOOLBAR) > with (this.MYTOOLBAR.PBPREVIOUS) > onClick = class::PBPREVIOUS_ONCLICK > height = 24.0 > left = 300.0 > top = 6.0 > width = 62.0 > text = "&Previous" > upBitmap = "filename :Glyfx:\Aero\CE\Dbase Aero\PNG\16x16\arrow_left_16.png" > fontSize = 8.0 > speedTip = "Previous record" > pageno = 0 > endwith > > > function DISABLEDENTRY_when(bOpen) > > return false > > function MYCOMBOBOX_onChange() > // this = combobox > // datalink = field > // parent = field array > // parent = rowset > if this.datalink.parent.parent.state == 1 > this.value = this.savedValue > this.datalink.parent.parent.modified = false > this.datalink.parent.parent.abandon() > endif > return > > function MYCOMBOBOX_onGotFocus() > this.savedValue = this.value > return > > function MYEDITOR_key(nChar, nPosition,bShift,bControl) > /* > This code by Gary White is provided to > get around a problem with rowsets that > have the autoEdit property set to false, > and editors. The editor seems to be immune > to this property once you make a change > in it -- if you then save or abandon, you > can actually edit the contents of the editor > object ... > */ > // this = editor > // dataLink = field > // parent = fieldArray > // parent = rowset > if type( "this.datalink.parent.parent" ) # "U" > r = this.datalink.parent.parent > if r.autoEdit == false and ; > ( r.state # 2 and r.state # 3 ) > return 0 > endif > endif > return > > function MYENTRYFIELD_onGotFocus() > this.keyboard( "{Home}" ) > return > > function PBNEXT_onClick() > if ( not form.rowset.next() ) > form.rowset.next( -1 ) > msgbox( "At end of rowset", "Can't Navigate", 64 ) > endif > return > > function MYSPINBOX_onGotFocus() > this.keyboard( "{Home}" ) > return > > > function MYTABBOX_onOpen() > this.curSel := 1 > form.pageNo := 1 > return > > function resetToolbar() > this.pbabandon.enabled=true > this.pbsave.enabled=true > this.pbdelete.enabled=true > this.pbnext.enabled=true > this.pbprevious.enabled=true > this.pbedit.enabled=true > this.pbadd.enabled=true > return > > function MYTOOLBAR_onOpen() > this.pbabandon.enabled=true > this.pbsave.enabled=true > this.pbdelete.enabled=true > this.pbnext.enabled=true > this.pbprevious.enabled=true > this.pbedit.enabled=true > this.pbnew.enabled=true > return > > function PBABANDON_onClick() > if form.rowset.modified > if msgbox( "Abandon changes to this row?", "Abandon changes?", 36 ) == 6 > form.rowset.abandon() > endif > else > form.rowset.abandon() > endif > > return > > function PBDELETE_onClick() > if msgbox( "Delete this row?", "Delete Row?", 36 ) == 6 > form.rowset.delete() > endif > return > > function PBEDIT_onClick() > form.rowset.edit() > return > > function PBNEW_onClick() > this.parent.pbnext.enabled=false > this.parent.pbprevious.enabled=false > form.rowset.beginAppend() > return > > function PBPREVIOUS_onClick() > if ( not form.rowset.next(-1) ) > form.rowset.next() > msgbox( "At beginning of rowset", "Can't Navigate", 64 ) > endif > return > > function PBSAVE_onClick() > form.rowset.save() > return > > function TABBOX_onSelChange() > form.pageNo := this.curSel > return > > endclass > > class MYENTRYFIELD(parentObj) of ENTRYFIELD(parentObj) custom > with (this) > onGotFocus = class::MYENTRYFIELD_ONGOTFOCUS > height = 22.0 > left = 62.0 > top = 102.0 > width = 56.0 > metric = 6 // Pixels > colorHighLight = "WindowText/0x80ffff" > value = "MyEntryfield" > endwith > > function MYENTRYFIELD_onGotFocus() > this.keyboard( "{Home}" ) > return > endclass > > class MYTEXT(parentObj) of TEXT(parentObj) custom > with (this) > height = 22.0 > left = 14.0 > top = 55.0 > width = 84.0 > metric = 6 // Pixels > text = "MyText" > borderStyle = 10 // Etched Out > endwith > > endclass > > class MYTEXTLABEL(parentObj) of TEXTLABEL(parentObj) custom > with (this) > height = 22.0 > left = 53.0 > top = 107.0 > width = 84.0 > metric = 6 // Pixels > transparent = true > text = "MyTextLabel" > fontBold = true > alignHorizontal = 2 // Right > alignVertical = 1 // Middle > endwith > > endclass > > > class MYSPINBOX(parentObj) of SPINBOX(parentObj) custom > with (this) > onGotFocus = class::MYSPINBOX_ONGOTFOCUS > height = 22.0 > left = 60.0 > top = 202.0 > width = 56.0 > metric = 6 // Pixels > picture = "99999" > colorHighLight = "WindowText/0x80ffff" > rangeMax = 100 > rangeMin = 1 > value = 1 > endwith > > function MYSPINBOX_onGotFocus() > this.keyboard( "{Home}" ) > return > > endclass > > class MYCOMBOBOX(parentObj) of COMBOBOX(parentObj) custom > with (this) > onGotFocus = class::MYCOMBOBOX_ONGOTFOCUS > onChange = class::MYCOMBOBOX_ONCHANGE > height = 22.0 > left = 75.0 > top = 250.0 > width = 84.0 > metric = 6 // Pixels > colorHighLight = "WindowText/0x80ffff" > style = 2 // DropDownList > dropDownHeight = 132.0 > endwith > > function MYCOMBOBOX_onGotFocus() > this.savedValue = this.value > return > function MYCOMBOBOX_onChange() > // this = combobox > // datalink = field > // parent = field array > // parent = rowset > if this.datalink.parent.parent.state == 1 > this.value = this.savedValue > this.datalink.parent.parent.modified = false > this.datalink.parent.parent.abandon() > endif > return > endclass > > class MYRADIOBUTTON(parentObj) of RADIOBUTTON(parentObj) custom > with (this) > transparent = true > height = 24.0 > left = 217.0 > top = 22.0 > width = 110.0 > text = "Radiobutton" > metric = 6 // Pixels > endwith > > endclass > > class MYCONTAINER(parentObj) of CONTAINER(parentObj) custom > with (this) > transparent = true > left = 432.0 > top = 42.0 > width = 184.0 > height = 101.0 > metric = 6 // Pixels > borderStyle = 4 // Single > endwith > > endclass > > class MYGRID(parentObj) of GRID(parentObj) custom > with (this) > colorHighLight = "WindowText/0x80ffff" > cellHeight = 22.0 > rowSelect = true > allowEditing = false > allowAddRows = false > height = 88.0 > left = 434.0 > top = 208.0 > width = 182.0 > metric = 6 // Pixels > bgcolor="White" > endwith > > endclass > > class MYTABBOX(parentObj) of TABBOX(parentObj) custom > with (this) > onSelChange = class::TABBOX_ONSELCHANGE > onOpen = class::MYTABBOX_ONOPEN > id = 110 > height = 22.0 > left = 0.0 > top = 316.0 > width = 644.0 > metric = 6 // Pixels > colorHighLight = "WindowText/0x80ffff" > dataSource = 'ARRAY {"Individual Record","Find Record"}' > endwith > > function TABBOX_onSelChange() > form.pageNo := this.curSel > return > function MYTABBOX_onOpen() > this.curSel := 1 > form.pageNo := 1 > return > endclass > > class MYIMAGE(parentObj) of IMAGE(parentObj) custom > with (this) > height = 88.0 > left = 209.0 > top = 80.0 > width = 99.0 > metric = 6 // Pixels > alignment = 3 // Keep Aspect Stretch > endwith > > endclass > > class MYEDITOR(parentObj) of EDITOR(parentObj) custom > with (this) > key = class::MYEDITOR_KEY > height = 88.0 > left = 196.0 > top = 187.0 > width = 221.0 > metric = 6 // Pixels > value = "" > colorHighLight = "WindowText/0x80ffff" > evalTags = false > popupEnable = false > endwith > > function MYEDITOR_key(nChar, nPosition,bShift,bControl) > /* > This code by Gary White is provided to > get around a problem with rowsets that > have the autoEdit property set to false, > and editors. The editor seems to be immune > to this property once you make a change > in it -- if you then save or abandon, you > can actually edit the contents of the editor > object ... > */ > // this = editor > // dataLink = field > // parent = fieldArray > // parent = rowset > if type( "this.datalink.parent.parent" ) # "U" > r = this.datalink.parent.parent > if r.autoEdit == false and ; > ( r.state # 2 and r.state # 3 ) > return 0 > endif > endif > return > endclass > > class DISABLEDENTRY(parentObj) of MYENTRYFIELD(parentObj) custom > with (this) > when = class::DISABLEDENTRY_WHEN > height = 22.0 > left = 71.0 > top = 324.0 > width = 56.0 > colorNormal = "White/Maroon" > value = "DisabledEntry" > mousePointer = 12 // No > endwith > > function DISABLEDENTRY_when(bOpen) > > return false > endclass > > class MYPUSHBUTTON(parentObj) of PUSHBUTTON(parentObj) custom > with (this) > height = 24.0 > left = 35.0 > top = 4.0 > width = 62.0 > text = "MyPushButton" > metric = 6 // Pixels > endwith > > endclass > > class MYTITLETEXT(parentObj) of MYTEXT(parentObj) custom > with (this) > height = 28.0 > left = 247.0 > top = 324.0 > width = 84.0 > colorNormal = "Blue/BtnFace" > alignHorizontal = 1 // Center > fontSize = 14.0 > text = "MyTitle" > borderStyle = 1 // Raised > speedTip = "Form Title" > endwith > > endclass > class MYTOOLBAR(parentObj, name) of MYCONTAINER(parentObj, name) custom > with (this) > left = 182.0 > top = 363.0 > width = 429.0 > height = 37.0 > endwith > > this.PBNEW = new MYPUSHBUTTON(this) > with (this.PBNEW) > onClick = class::PBNEW_ONCLICK > height = 24.0 > left = 7.0 > top = 6.0 > width = 64.0 > text = "&New" > upBitmap = "filename :Glyfx:\Aero\CE\Dbase Aero\PNG\16x16\favourites_16.png" > fontSize = 8.0 > speedTip = "Add new record" > pageno = 0 > endwith > > this.PBEDIT = new MYPUSHBUTTON(this) > with (this.PBEDIT) > onClick = class::PBEDIT_ONCLICK > height = 24.0 > left = 69.0 > top = 6.0 > width = 62.0 > text = "&Edit" > upBitmap = "filename :Glyfx:\Aero\CE\Dbase Aero\PNG\16x16\document_open_16.png" > fontSize = 8.0 > speedTip = "Edit current record" > pageno = 0 > endwith > > this.PBSAVE = new MYPUSHBUTTON(this) > with (this.PBSAVE) > onClick = class::PBSAVE_ONCLICK > height = 24.0 > left = 125.0 > top = 6.0 > width = 62.0 > text = "&Save" > upBitmap = "filename :Glyfx:\Aero\CE\Dbase Aero\PNG\16x16\save_16.png" > fontSize = 8.0 > speedTip = "Save current record" > pageno = 0 > endwith > > this.PBABANDON = new MYPUSHBUTTON(this) > with (this.PBABANDON) > onClick = class::PBABANDON_ONCLICK > height = 24.0 > left = 181.0 > top = 6.0 > width = 62.0 > text = "&Cancel" > upBitmap = "filename :Glyfx:\Aero\CE\Dbase Aero\PNG\16x16\stop_16.png" > fontSize = 8.0 > speedTip = "Cancel Changes" > pageno = 0 > endwith > > this.PBDELETE = new MYPUSHBUTTON(this) > with (this.PBDELETE) > onClick = class::PBDELETE_ONCLICK > height = 24.0 > left = 241.0 > top = 6.0 > width = 62.0 > text = "&Delete" > upBitmap = "filename :Glyfx:\Aero\CE\Dbase Aero\PNG\16x16\delete_16.png" > fontSize = 8.0 > speedTip = "Delete current record" > pageno = 0 > endwith > > this.PBNEXT = new MYPUSHBUTTON(this) > with (this.PBNEXT) > onClick = class::PBNEXT_ONCLICK > height = 24.0 > left = 360.0 > top = 6.0 > width = 62.0 > text = "&Next" > upBitmap = "filename :Glyfx:\Aero\CE\Dbase Aero\PNG\16x16\arrow_right_16.png" > fontSize = 8.0 > speedTip = "Next record" > pageno = 0 > endwith > > this.PBPREVIOUS = new MYPUSHBUTTON(this) > with (this.PBPREVIOUS) > onClick = class::PBPREVIOUS_ONCLICK > height = 24.0 > left = 300.0 > top = 6.0 > width = 62.0 > text = "&Previous" > upBitmap = "filename :Glyfx:\Aero\CE\Dbase Aero\PNG\16x16\arrow_left_16.png" > fontSize = 8.0 > speedTip = "Previous record" > pageno = 0 > endwith > > > function PBDELETE_onClick() > if msgbox( "Delete this row?", "Delete Row?", 36 ) == 6 > form.rowset.delete() > this.parent.resettoolbar() > endif > return > function PBABANDON_onClick() > if form.rowset.modified > if msgbox( "Abandon changes to this row?", "Abandon changes?", 36 ) == 6 > form.rowset.abandon() > this.parent.resettoolbar() > endif > else > form.rowset.abandon() > endif > > return > function PBPREVIOUS_onClick() > if ( not form.rowset.next(-1) ) > form.rowset.next() > msgbox( "At beginning of rowset", "Can't Navigate", 64 ) > endif > return > function PBSAVE_onClick() > form.rowset.save() > this.parent.resettoolbar() > return > function PBNEW_onClick() > this.parent.pbnext.enabled=false > this.parent.pbprevious.enabled=false > form.rowset.beginAppend() > return > function PBNEXT_onClick() > if ( not form.rowset.next() ) > form.rowset.next( -1 ) > msgbox( "At end of rowset", "Can't Navigate", 64 ) > endif > return > function PBEDIT_onClick() > form.rowset.edit() > return > function resetToolbar > this.PBNEXT.enabled=true > this.PBprevious.enabled=true > endclass | |