Tree View - ItemChangedAccept Event

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

Member of Tree View (PRIM_TRVW)

Parameters

NameTypeData TypeDescription
Accept*BothBooleanSet to false to prevent the change from being applied
Reason*InputEnumerationAction that triggered the event
Continue*BothBooleanSet to false to prevent focus moving to a different item
Value*InputVariantValue 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

Febuary 18 V14SP2