paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-03 00:20:22 +02:00
Code Issues Packages Projects Releases Wiki Activity

reload property on write error

Browse Source 
git-svn-id: trunk@5693 -
This commit is contained in:
mattias 2004-07-18 09:42:14 +00:00
parent b70dfc1592
commit 66d9c63226
2 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/rtticontrols/examples/exampleproject1.lpi
View File

@ -9,7 +9,7 @@
<SaveOnlyProjectUnits Value="True"/>
</Flags>
<MainUnit Value="0"/>
<ActiveEditorIndexAtStart Value="2"/>
<ActiveEditorIndexAtStart Value="1"/>
<IconPath Value="./"/>
<TargetFileExt Value=""/>
<Title Value="exampleproject1"/>
@ -24,7 +24,7 @@
<UsageCount Value="29"/>
</Unit0>
<Unit1>
<CursorPos X="74" Y="26"/>
<CursorPos X="73" Y="26"/>
<EditorIndex Value="0"/>
<Filename Value="example1.pas"/>
<ComponentName Value="Form1"/>

2
components/rtticontrols/rttictrls.pas
View File

@ -1540,6 +1540,8 @@ begin
else
AText:='Error while reading property'#13+E.Message;
MessageDlg(ACaption,AText,mtError,[mbCancel],0);
if Writing then
LoadFromProperty;
end;
procedure TCustomPropertyLink.MapValues(Values, AliasStrings: TStrings;