Trying with your Exe:
Let us take 4th line first column.
Enter 9 and press enter key. ( in your exe valid msg is shown only once).
and get retians focus and shows 9
click on some other program window outiside. Get still has focus.
Now come back to browse and click on any other cell.
9 is written and also wrongly justified ( as if painted by get object)
Please release your next exe with colored gets.
Path and name: C:\TESTS\Bin\mallorca1.exe (32 bits)
Size: 1,223,168 bytes
Time from start: 0 hours 0 mins 32 secs
Error occurred at: 12/24/07, 19:48:17
Error description: Error BASE/1005 No exported variable: NLASTKEY
Args:
[ 1] = U
[ 2] = N 13
Stack Calls
===========
Called from: => _NLASTKEY(0)
Called from: .\source\classes\XBROWSE.PRG => EDITGETKEYDOWN(0)
Called from: => (b)EDIT(0)
Called from: => TGET:KEYDOWN(0)
Called from: => TWINDOW:HANDLEEVENT(0)
Called from: => TCONTROL:HANDLEEVENT(0)
Called from: => TGET:HANDLEEVENT(0)
Called from: .\source\classes\WINDOW.PRG => _FWH(0)
Called from: => WINRUN(0)
Called from: => TWINDOW:ACTIVATE(0)
Called from: D:\FiveWin.20\samples\mallorca.prg => MAIN(34)
::oEditGet:bLostFocus := { | oGet, hWndFocus | If( GetWindowProcessId( hWndFocus ) != GetWindowProcessId( ::oBrw:hWnd ), ::oBrw:CancelEdit(), If( ::oEditGet != nil .and. ! ::oEditGet:lValidating, ::PostEdit(),) ) }HB_FUNC( GETWINDOWPROCESSID ) // hWnd --> nProcessId
{
DWORD dwProcessId;
GetWindowThreadProcessId( ( HWND ) hb_parnl( 1 ), &dwProcessId );
hb_retnl( dwProcessId );
}HB_FUNC( GETWINDOWTHREADPROCESSID ) // hWnd --> nThread
{
_retnl( GetWindowThreadProcessId( ( HWND ) _parnl( 1 ), NULL ) );
}New mallorca.exe for testing:
METHOD Edit( nKey ) CLASS TXBrwColumn
...
::oEditGet:bLostFocus := { | oGet, hWndFocus | EditGetLostFocus( oGet, hWndFocus, ::oBrw, ::oEditGet ) }
...static function EditGetLostFocus( oGet, hWndFocus, oBrw, oEditGet )
// focus goes to another control in the same application
if oWndFromHwnd( hWndFocus ) != nil
oBrw:CancelEdit()
return nil
endif
// focus goes to another application
if GetWindowThreadProcessId( hWndFocus ) != GetWindowThreadProcessId( oBrw:hWnd )
oBrw:CancelEdit()
return nil
endif
if oEditGet != nil .and. ! oEditGet:lValidating
oBrw:PostEdit()
endif
return nilA new mallorca.exe build:
http://www.hotshare.net/file/25841-7828226dca.html
Please try to break it, thanks 
I have tested the exe provided by you. I have also rebuilt the samples adopting your changes.
Both are now working fine. I continue my tests.
Only one thing I dont understand. In the exe provided by you the valid block is executed only once, but with the exe i built it is executed twice. I am trying to figure out the reason.
STATIC FUNCTION Valida( oGet )
local nnew := 0
IF oGet:Value() > 6
MsgAlert( "Must be lower than 7" )
if msgget('NEW VALUE','Enter number between 1 and 6',@nnew)
if nnew > 0 .and. nnew < 7
oGet:varput( nnew )
oget:refresh()
return .t.
else
return .f.
endif
endif
return .F.
ENDIF
RETURN .T.msginfo( oget:varget() ) shows the entered value of 6. Also at that moment I see 6 in the edit cell in the browse also ( we refreshed the get just before).
But after the valid function returns, the cell in xbrowse is repainted with orginal value.
Nageswararao,
That behavior is fine because the real assignment is done from here:
oBrw:aCols[1]:bOnPostEdit := { | oCol, xVal, nKey | If( nKey == VK_RETURN, aLin[ oBrw:nArrayAt,1] := xVal,) }
The VALID should not try to modify the edited value. It just jave to return .T. or .F., and a warning for the user, if needed
In case that you need to do the assignment from the VALID, then you could try:
oBrw:aCols[1]:bOnPostEdit := { || nil }
But thats not the recommended use
More Important problem. After using EditGetLostFocus function, even entering valid values are not getting assigned. The problem is there.