serial KeyCodesCNTs,UILibCtrlCNTs Default %Library.TMFormClass 0 %Library.String 1 1 %Library.String 1 1 %Library.TMForm %TMLabel %TMButton %TMButton %TMComboBox %TMComboBox %TMCheckBox %TMLabel %Library.TMLabel initvalue:%String cache 0 %Status document literal cache 0 document literal cache 0 document literal initvalue:%String cache 0 MApplication document literal cache 0 document literal cache 0 %Library.Boolean document literal cache 0 document literal initvalue:%String cache 0 %Library.Status document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal Args:%String cache 0 document literal -1) Do . ; Move focus . If ..cboTemplateCode.Items.Count=1 Do . . ;Do:(..btnOK.CanFocus()) ..btnOK.SetFocus() . . Do ..btnOKClick($LB(..btnOK)) . Else Do . . Set ..cboTemplateCode.DroppedDown="True" . . Do ..cboTemplateCode.SetFocus() ;End of user code s Args=$lb(Sender,Key,Shift) q ]]> Args:%String cache 0 document literal Args:%String cache 0 document literal 0) ComboOref.SetIndex(0) ]]> Args:%String cache 0 document literal -1)&&(..btnOK.CanFocus()) ..btnOK.SetFocus() Do:(Key=$$$keyEnter)&&(..cboTemplateCode.ItemIndex>-1) ..btnOKClick($LB(..btnOK)) ;End of user code s Args=$lb(Sender,Key,Shift) q ]]> %Library.CacheSerialState "%Library.TMFormClass" Address Form btnCancel btnOK cboDesign cboTemplateCode chkPRO Label1 zzLabel1 zzLabel2