diff --git a/components/rx/docs/WhatsNew.eng.txt b/components/rx/docs/WhatsNew.eng.txt index 6ba56552d..610840663 100644 --- a/components/rx/docs/WhatsNew.eng.txt +++ b/components/rx/docs/WhatsNew.eng.txt @@ -1,3 +1,4 @@ + + if try edit closed TRxMemoryData in error message display TRxMemoryData.Name + fix create resource from XPM image + draw shadow on button image in TToolPanel - Fix error in TDBComboBox.EditingDone if DataSet = nil diff --git a/components/rx/docs/WhatsNew.rus.txt b/components/rx/docs/WhatsNew.rus.txt index 7f3bd67fb..41b7ea726 100644 --- a/components/rx/docs/WhatsNew.rus.txt +++ b/components/rx/docs/WhatsNew.rus.txt @@ -1,4 +1,5 @@ - + Исправлено создание ресурсов из XPM файлов + + При попытке редактирования закрытого набора данных TRxMemoryData в сообщении об ошибке выдаётся наименование набора данных + + Исправлено создание ресурсов из XPM файлов + Доработана отрисовка тени у кнопки на TToolPanel - Исправлена ошибка в TDBComboBox.EditingDone; если не присвоен DataSet 22.05.2008 - версия 2.0.0.136 (svn revision 100) diff --git a/components/rx/rxmemds.pas b/components/rx/rxmemds.pas index 2ce5c39d0..9a2c2d322 100644 --- a/components/rx/rxmemds.pas +++ b/components/rx/rxmemds.pas @@ -774,7 +774,7 @@ var VarData: Variant; PBl:PBoolean; begin - if not (State in dsWriteModes) then Error(SNotEditing); + if not (State in dsWriteModes) then ErrorFmt(SNotEditing, [Name]); GetActiveRecBuf(RecBuf); with Field do begin @@ -784,7 +784,7 @@ begin if Field.FieldNo > 0 then {$ENDIF} begin - if State in [dsCalcFields, dsFilter] then Error(SNotEditing); + if State in [dsCalcFields, dsFilter] then ErrorFmt(SNotEditing, [Name]); if ReadOnly and not (State in [dsSetKey, dsFilter]) then ErrorFmt(SFieldReadOnly, [DisplayName]); Validate(Buffer);