The Focus should be set before calling the action on the subcomponents of 
the dbGrid.

PROPERTY Measurements SET_FOCUS 'TRUE'
IF vEnableRefColumn = 'Y' THEN
  PROPERTY Measurements 'COLUMNS[6]->READONLY' 'FALSE'
  PROPERTY Measurements SELECTEDINDEX '6'
   ELSE
  PROPERTY Measurements 'COLUMNS[6]->READONLY' 'TRUE'
  PROPERTY Measurements SELECTEDINDEX '7'
ENDIF
RETURN

----- Original Message ----- 
From: "jan johansen" <[email protected]>
To: "RBASE-L Mailing List" <[email protected]>
Sent: Thursday, December 20, 2012 1:46 PM
Subject: [RBASE-L] - Re: DB-Grid Enable columns


: So the complete Custom Form Action looks like this.
:
:
: IF vEnableRefColumn = 'Y' THEN
:  PROPERTY Measurements 'COLUMNS[6]->READONLY' 'FALSE'
:  PROPERTY Measurements SELECTEDINDEX '6'
:  PROPERTY Measurements SET_FOCUS 'TRUE'
: ELSE
:  PROPERTY Measurements 'COLUMNS[6]->READONLY' 'TRUE'
:  PROPERTY Measurements SELECTEDINDEX '7'
:  PROPERTY Measurements SET_FOCUS 'TRUE'
: ENDIF
: RETURN
:
:
:
: -----Original Message-----
: From: "Mike Byerley" <[email protected]>
: To: [email protected] (RBASE-L Mailing List)
: Date: Thu, 20 Dec 2012 13:41:23 -0500
: Subject: [RBASE-L] - Re: DB-Grid Enable columns
:
:
: What I notice is "IF" the dbgrid in question doesn't have FOCUS, you can't
: set the SelectedIndex of the grid and "IF" the button used is of the type,
: other than SpeedButton or the like, that can't recieve focus, then the
: clicking of that button removes focus from the dbGrid, so your EEP should
: have in it's first line
:
: property <CompIDofEnhancedGrid> Set_Focus 'TRUE'
:
:
: At least this is what I noticed on that issue, it might be the case with 
the
: ReadOnly setting...   YMMV
:
:
:
:
:
: ----- Original Message -----
: From: "jan johansen" <[email protected]>
: To: "RBASE-L Mailing List" <[email protected]>
: Sent: Thursday, December 20, 2012 12:54 PM
: Subject: [RBASE-L] - DB-Grid Enable columns
:
:
:: Anyone got a working sample of an Enhanced DB-Grid?
::
:: I'm having trouble programatically setting focus to a column and setting 
a
:: column to read only. 


Reply via email to