Grid Column - GotSelectionAccept Event

GotSelectionAccept happens when item is gets focus

Member of Grid Column (PRIM_GDCL)

Parameters

Name

Type

Data Type

Description

Accept

*Both

Boolean

Set to false to prevent the event from proceeding

Reason

*Input

Enumeration

Action that triggered the event

Details

The ItemGotFocusAccept event is triggered immediately before the ItemGotFocus event.

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

Set the Accept parameter to False to prevent focus changing.

Example

In this example, selection can only be set to the first column if the check box is checked.

     Function Options(*DIRECT)
     Begin_Com Role(*EXTENDS #PRIM_FORM) Clientwidth(794) Clientheight(367) Componentversion(2) Top(227) Left(199) Layoutmanager(#TableLayout1)
 
        Define_Com Class(#PRIM_TBLO) Name(#TableLayout1)
        Define_Com Class(#PRIM_TBLO.Column) Name(#Column1) Displayposition(1) Parent(#TableLayout1)
        Define_Com Class(#PRIM_TBLO.Row) Name(#Row1) Displayposition(1) Parent(#TableLayout1) Height(1.78)
        Define_Com Class(#PRIM_TBLO.Row) Name(#Row2) Displayposition(2) Parent(#TableLayout1) Height(40) Units(Pixels)
        Define_Com Class(#PRIM_TBLO.Item) Name(#GridItem1) Column(#Column1) Manage(#Grid) Parent(#TableLayout1) Row(#Row1)
        Define_Com Class(#PRIM_TBLO.Item) Name(#AllowSelectionChangeItem1) Manage(#AllowSelectionChange) Parent(#TableLayout1) Row(#Row2) Sizing(None) Column(#Column1) Alignment(CenterLeft)
 
        Define_Com Class(#PRIM_GRID) Name(#Grid) Captionnoblanklines(True) Columnscroll(False) Componentversion(1) Displayposition(1) Left(0) Parent(#COM_OWNER) Showselection(True) Showselectionhilight(False) Showsortarrow(True) Tabposition(1) Top(0) Height(327) Width(794) Tabbingstyle(AroundGrid) Columnbuttonheight(22) Rowheight(22)
        Define_Com Class(#PRIM_GDCL) Name(#GridColumn1) Displayposition(1) Parent(#Grid) Source(#EMPNO) Width(14)
        Define_Com Class(#PRIM_GDCL) Name(#GridColumn2) Displayposition(2) Parent(#Grid) Source(#SURNAME)
        Define_Com Class(#PRIM_GDCL) Name(#GridColumn3) Displayposition(3) Parent(#Grid) Source(#GIVENAME)
        Define_Com Class(#PRIM_GDCL) Name(#GridColumn4) Displayposition(4) Parent(#Grid) Source(#ADDRESS1)
        Define_Com Class(#PRIM_GDCL) Name(#GridColumn5) Displayposition(5) Parent(#Grid) Source(#ADDRESS2)
        Define_Com Class(#PRIM_GDCL) Name(#GridColumn6) Displayposition(6) Parent(#Grid) Source(#ADDRESS3)
 
        Define_Com Class(#PRIM_CKBX) Name(#AllowSelectionChange) Caption('Allow Selection Change?') Displayposition(2) Left(0) Marginleft(2) Parent(#COM_OWNER) Tabposition(2) Top(335) Width(161) Buttonstate(Checked)
 
        Evtroutine Handling(#Com_Owner.CreateInstance)
 
           Select Fields(#Grid) From_File(pslmst)
 
              Add_Entry To_List(#Grid)
 
           Endselect
 
        Endroutine
 
           Evtroutine Handling(#GridColumn1.GotSelectionAccept) Accept(#Accept)
 
              #Accept := (#AllowSelectionChange.buttonState = Checked)
 
           Endroutine

     End_Com

See also

All Component Classes

Technical Reference

  • No labels