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

IdeIntf: Improve an exception error message in OI for issue #35322. Rename variables to avoid confusion.

Browse Source 
git-svn-id: trunk@62091 -
This commit is contained in:
juha 2019-10-19 11:17:35 +00:00
parent 6e36102baf
commit 79519f5acc
1 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
components/ideintf/objectinspector.pp
View File

@ -1558,8 +1558,8 @@ var
CompEditDsg: TComponentEditorDesigner;
APersistent: TPersistent;
i: integer;
NewVal: string;
oldVal: array of string;
UndoVal: string;
OldUndoValues: array of string;
isExcept: boolean;
prpInfo: PPropInfo;
Editor: TPropertyEditor;
@ -1590,11 +1590,11 @@ begin
Editor:=CurRow.Editor;
prpInfo := nil;
if CompEditDsg<>nil then begin
SetLength(oldVal, Editor.PropCount);
SetLength(OldUndoValues, Editor.PropCount);
prpInfo := Editor.GetPropInfo;
if prpInfo<>nil then begin
for i := 0 to Editor.PropCount - 1 do
oldVal[i] := GetPropValue(Editor,i);
OldUndoValues[i] := GetPropValue(Editor,i);
end;
end;
@ -1610,7 +1610,7 @@ begin
{$IFNDEF DoNotCatchOIExceptions}
except
on E: Exception do begin
MessageDlg(oisError, E.Message, mtError, [mbOk], 0);
MessageDlg(oisError, E.Message + ' with value "'+NewValue+'"', mtError, [mbOk], 0);
isExcept := true;
end;
end;
@ -1627,9 +1627,9 @@ begin
begin
APersistent := Editor.GetComponent(i);
if APersistent=nil then continue;
NewVal := GetPropValue(Editor,i);
UndoVal := GetPropValue(Editor,i);
CompEditDsg.AddUndoAction(APersistent, uopChange, i = 0,
Editor.GetName, oldVal[i], NewVal);
Editor.GetName, OldUndoValues[i], UndoVal);
end;
end;