diff --git a/components/rx/docs/WhatsNew.eng.txt b/components/rx/docs/WhatsNew.eng.txt index 13c04315d..b5e129bfe 100644 --- a/components/rx/docs/WhatsNew.eng.txt +++ b/components/rx/docs/WhatsNew.eng.txt @@ -1,3 +1,4 @@ + - Fix error in TDBComboBox.EditingDone if DataSet = nil 22.05.2008 - version 2.0.0.136 (svn revision 100) + In TRxCustomDBLookupCombo add check for CircularDataLink + in TRxCustomDBLookupCombo accelerated drawing data diff --git a/components/rx/docs/WhatsNew.rus.txt b/components/rx/docs/WhatsNew.rus.txt index 7b432ab15..7575a83ea 100644 --- a/components/rx/docs/WhatsNew.rus.txt +++ b/components/rx/docs/WhatsNew.rus.txt @@ -1,4 +1,5 @@ -22.05.2008 - версия 2.0.0.136 (svn revision 100) + - Исправлена ошибка в TDBComboBox.EditingDone; если не присвоен DataSet +22.05.2008 - версия 2.0.0.136 (svn revision 100) + У объекта TRxCustomDBLookupCombo введён контроль на CircularDataLink + У объекта TRxCustomDBLookupCombo ускорена отрисовка данных - У объекта TRxCustomDBLookupCombo исправлен выбор первой записи из справочника при diff --git a/components/rx/rxdbcomb.pas b/components/rx/rxdbcomb.pas index fbcaa9665..7489ca60a 100644 --- a/components/rx/rxdbcomb.pas +++ b/components/rx/rxdbcomb.pas @@ -363,15 +363,17 @@ end; procedure TCustomDBComboBox.EditingDone; begin - if not(FDataLink.DataSet.State in [dsinsert,dsedit]) then exit; - try - FDataLink.UpdateRecord; - except - SelectAll; - if CanFocus then SetFocus; - raise; + if Assigned(FDataLink.DataSet) and (FDataLink.DataSet.State in [dsinsert,dsedit]) then + begin + try + FDataLink.UpdateRecord; + except + SelectAll; + if CanFocus then SetFocus; + raise; + end; + inherited EditingDone; end; - inherited EditingDone; end;