Control of the direction to move the cursor when entering in
Posted: Thu Jun 06, 2013 10:46 pm
How to do that when you enter information into the database after the close of the field cursor moves to the right?
Code: Select all
/* Create browse-3: БД Obi_Kpr.dbf, связанная отношением "Один ко многим" с БД Obi_Zag.dbf*/
DCSETPARENT TO
@14,54 DCBROWSE oBrowKpr ALIAS 'Obi_Kpr' SIZE 79,13 ;
EDIT xbeBRW_ItemSelected MODE DCGUI_BROWSE_EDITDOWN ;
NOSOFTTRACK ;
SCOPE ;
ITEMMARKED bItems
DCSETPARENT oBrowKpr
DCBROWSECOL FIELD Obi_Kpr->Kod_Obj HEADER 'Код объекта' WIDTH 1 PROTECT {|| .T. }
DCBROWSECOL FIELD Obi_Kpr->Atr1 HEADER 'Признак 1' WIDTH 5
DCBROWSECOL FIELD Obi_Kpr->Atr2 HEADER 'Признак 2' WIDTH 5
DCBROWSECOL FIELD Obi_Kpr->Atr3 HEADER 'Признак 3' WIDTH 5
DCBROWSECOL FIELD Obi_Kpr->Atr4 HEADER 'Признак 4' WIDTH 5
DCBROWSECOL FIELD Obi_Kpr->Atr5 HEADER 'Признак 5' WIDTH 5
DCBROWSECOL FIELD Obi_Kpr->Atr6 HEADER 'Признак 6' WIDTH 5
DCBROWSECOL FIELD Obi_Kpr->Atr7 HEADER 'Признак 7' WIDTH 5
DCGETOPTIONS SAYFONT '10.Helv Bold' TABSTOP AUTORESIZE
cTitle = '2.3.1. Ручной ввод-корректировка обучающей выборки'+'. Текущая модель: "'+UPPER(Ar_Model[M_CurrInf])+'"'
DCREAD GUI ;
FIT ;
OPTIONS GetOptions ;
MODAL ;
TITLE cTitle ;
EVAL {|o|SetAppFocus(oBrowZag:GetColumn(1))}