Grid - ItemChangedAccept Event

ItemChangedAccept event is triggered when an item is about to be changed

Member of Grid (PRIM_GRID)

Parameters

Name

Type

Data Type

Description

Accept

*Both

Boolean

Set to false to prevent the change from being applied

Reason

*Input

Enumeration

Action that triggered the event

Continue

*Both

Boolean

Set to false to prevent focus moving to a different item

Value

*Input

Variant

Value of the item as it changes

Details

The ItemChangedAccept event is triggered immediately before the update of the underlying list item.

It is not a replacement for the ItemChanged event, instead providing an opportunity for edit processing to be interrupted.

Set the Accept parameter to False to prevent focus changing.

A number of different user actions can cause an ItemChangedAccept to fire. The Reason parameter contains an enumeration the provides feedback as to the cause.

Example

This example shows how the accept and continue parameters affect behavior in a grid.

     Function Options(*DIRECT)
     Begin_Com Role(*EXTENDS #PRIM_FORM) Clientwidth(792) Clientheight(394) Componentversion(2) Top(227) Left(222)
 
        Define_Com Class(#PRIM_GRID) Name(#Grid) Captionnoblanklines(True) Columnscroll(False) Componentversion(1) Displayposition(1) Height(337) Left(0) Parent(#COM_OWNER) Showselection(True) Showselectionhilight(False) Showsortarrow(True) Tabposition(1) Top(0) Width(792) Columnbuttonheight(25) Rowheight(28) Columnbuttonpress(True) Columnellipses(End) Frozencolumns(3)
        Define_Com Class(#PRIM_GDCL) Name(#GridColumn1) Displayposition(1) Parent(#Grid) Source(#EMPNO) Width(10) Widthtype(Fixed)
        Define_Com Class(#PRIM_GDCL) Name(#GridColumn2) Displayposition(2) Parent(#Grid) Source(#SURNAME) Width(18) Widthtype(Fixed) Readonly(False)
        Define_Com Class(#PRIM_GDCL) Name(#GridColumn3) Displayposition(3) Parent(#Grid) Source(#GIVENAME) Widthtype(Fixed) Readonly(False)
        Define_Com Class(#PRIM_CKBX) Name(#Accept) Caption('Accept value change?') Displayposition(2) Left(11) Marginleft(2) Parent(#COM_OWNER) Tabposition(2) Top(352) Width(214)
        Define_Com Class(#PRIM_CKBX) Name(#Continue) Caption('Continue to the next item?') Displayposition(3) Left(232) Marginleft(2) Parent(#COM_OWNER) Tabposition(3) Top(352) Width(241)
 
        Evtroutine Handling(#Com_Owner.CreateInstance)
 
           Select Fields(#Grid) From_File(pslmst)
              Add_Entry To_List(#Grid)
           Endselect
 
        Endroutine
 
        Evtroutine Handling(#Grid.ItemChangedAccept) Accept(#AcceptChange) Continue(#ContinueChange)
 
           #AcceptChange := #Accept.ButtonState = Checked
 
           #ContinueChange := #Continue.ButtonState = Checked
 
        Endroutine
 
     End_Com


See also

All Component Classes

Technical Reference

  • No labels