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

Designer: an attempt to fix a Undo-bug with non-visible components. Now the index for FUndoList goes over. :(

Browse Source 
git-svn-id: trunk@46466 -
This commit is contained in:
juha 2014-10-07 20:53:26 +00:00
parent 001970dd85
commit fe55929cd6
1 changed files with 5 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
designer/designer.pp
View File

@ -1629,11 +1629,6 @@ begin
if not Result then Exit; if not Result then Exit;
APropInfo := GetPropInfo(aPersistent, aFieldName); APropInfo := GetPropInfo(aPersistent, aFieldName);
{property is not published ?} {property is not published ?}
if APropInfo = nil then
begin
DebugLn('TDesigner.AddUndoAction: error ',dbgsName(aPersistent),' property "',AFieldName,'". Property is not published ? ');
exit;
end;
Inc(FUndoLock); Inc(FUndoLock);
try try
if FUndoCurr > High(FUndoList) then if FUndoCurr > High(FUndoList) then
@ -1685,7 +1680,11 @@ begin
opType := aOpType; opType := aOpType;
isValid := true; isValid := true;
id := FUndoActId; id := FUndoActId;
propInfo := APropInfo^; if APropInfo <> nil then
propInfo := APropInfo^
else begin
// ToDo: Clear propInfo.
end;
end; end;
Inc(FUndoCurr); Inc(FUndoCurr);
finally finally