pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

if try edit closed TRxMemoryData in error message display TRxMemoryData.Name

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@506 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2008-07-05 06:55:49 +00:00
parent c8ea997a2b
commit 1552b81bc9
3 changed files with 5 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
components/rx/docs/WhatsNew.eng.txt
View File

@ -1,3 +1,4 @@
+ if try edit closed TRxMemoryData in error message display TRxMemoryData.Name
+ fix create resource from XPM image + fix create resource from XPM image
+ draw shadow on button image in TToolPanel + draw shadow on button image in TToolPanel
- Fix error in TDBComboBox.EditingDone if DataSet = nil - Fix error in TDBComboBox.EditingDone if DataSet = nil

3
components/rx/docs/WhatsNew.rus.txt
View File

@ -1,4 +1,5 @@
 + Исправлено создание ресурсов из XPM файлов + При попытке редактирования закрытого набора данных TRxMemoryData в сообщении об ошибке выдаётся наименование набора данных
+ Исправлено создание ресурсов из XPM файлов
+ Доработана отрисовка тени у кнопки на TToolPanel + Доработана отрисовка тени у кнопки на TToolPanel
- Исправлена ошибка в TDBComboBox.EditingDone; если не присвоен DataSet - Исправлена ошибка в TDBComboBox.EditingDone; если не присвоен DataSet
22.05.2008 - версия 2.0.0.136 (svn revision 100) 22.05.2008 - версия 2.0.0.136 (svn revision 100)

4
components/rx/rxmemds.pas
View File

@ -774,7 +774,7 @@ var
VarData: Variant; VarData: Variant;
PBl:PBoolean; PBl:PBoolean;
begin begin
if not (State in dsWriteModes) then Error(SNotEditing); if not (State in dsWriteModes) then ErrorFmt(SNotEditing, [Name]);
GetActiveRecBuf(RecBuf); GetActiveRecBuf(RecBuf);
with Field do with Field do
begin begin
@ -784,7 +784,7 @@ begin
if Field.FieldNo > 0 then if Field.FieldNo > 0 then
{$ENDIF} {$ENDIF}
begin 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 if ReadOnly and not (State in [dsSetKey, dsFilter]) then
ErrorFmt(SFieldReadOnly, [DisplayName]); ErrorFmt(SFieldReadOnly, [DisplayName]);
Validate(Buffer); Validate(Buffer);