paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-12 06:56:10 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: designer: undo: using beginupdate/endupdate to trigger less events

Browse Source 
git-svn-id: trunk@57986 -
This commit is contained in:
mattias 2018-05-21 09:31:59 +00:00
parent 00ff76e8f7
commit 362d5edb4f
2 changed files with 32 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/ideintf/propedits.pp
View File

@ -6531,13 +6531,13 @@ begin
LookupRoot:=NewLookupRoot;
// set selection
if ASelection=nil then exit;
//writeln('TPropertyEditorHook.SetSelection A ASelection.Count=',ASelection.Count);
//debulgn(['TPropertyEditorHook.SetSelection A ASelection.Count=',ASelection.Count]);
i:=GetHandlerCount(htSetSelectedPersistents);
while GetNextHandlerIndex(htSetSelectedPersistents,i) do begin
Handler:=TPropHookSetSelection(FHandlers[htSetSelectedPersistents][i]);
Handler(ASelection);
end;
//writeln('TPropertyEditorHook.SetSelection END ASelection.Count=',ASelection.Count);
//debugln(['TPropertyEditorHook.SetSelection END ASelection.Count=',ASelection.Count]);
end;
procedure TPropertyEditorHook.Unselect(const APersistent: TPersistent);

52
designer/designer.pp
View File

@ -1274,7 +1274,7 @@ end;
function TDesigner.DoInsertFromStream(s: TStream;
PasteParent: TWinControl; PasteFlags: TComponentPasteSelectionFlags): Boolean;
var
NewSelection: TControlSelection;
NewSelection: TPersistentSelectionList;
NewComponents: TFPList;
procedure FindUniquePosition(AComponent: TComponent);
@ -1336,7 +1336,7 @@ begin
//debugln('TDesigner.DoInsertFromStream B s.Size=',dbgs(s.Size),' S.Position=',dbgs(S.Position));
if PasteParent=nil then PasteParent:=GetPasteParent;
NewSelection:=TControlSelection.Create;
NewSelection:=TPersistentSelectionList.Create;
NewComponents:=TFPList.Create;
try
Form.DisableAutoSizing{$IFDEF DebugDisableAutoSizing}('TDesigner.DoInsertFromStream'){$ENDIF};
@ -1373,7 +1373,7 @@ begin
finally
NewComponents.Free;
if NewSelection.Count>0 then
Selection.Assign(NewSelection);
Selection.AssignSelection(NewSelection);
NewSelection.Free;
end;
Result:=true;
@ -1494,17 +1494,21 @@ begin
if (IsActUndo and (FUndoList[FUndoCurr].opType in [uopAdd])) or
(not IsActUndo and (FUndoList[FUndoCurr].opType in [uopDelete])) then
begin
SaveControlSelection := TControlSelection.Create;
Selection.BeginUpdate;
try
Inc(FUndoLock);
SaveControlSelection.Assign(Selection);
Selection.Clear;
Selection.Add(FForm.FindComponent(FUndoList[FUndoCurr].compName));
DeleteSelection;
SaveControlSelection := TControlSelection.Create;
try
Inc(FUndoLock);
SaveControlSelection.Assign(Selection);
Selection.AssignPersistent(FForm.FindComponent(FUndoList[FUndoCurr].compName));
DeleteSelection;
finally
Dec(FUndoLock);
Selection.Assign(SaveControlSelection);
SaveControlSelection.Free;
end;
finally
Dec(FUndoLock);
Selection.Assign(SaveControlSelection);
SaveControlSelection.Free;
Selection.EndUpdate;
end;
end;
@ -1803,21 +1807,25 @@ begin
if (aOpType in [uopAdd, uopDelete]) and (FForm <> aPersistent) then
begin
SaveControlSelection := TControlSelection.Create;
Selection.BeginUpdate;
try
SaveControlSelection.Assign(Selection);
AStream := TStringStream.Create('');
SaveControlSelection := TControlSelection.Create;
try
Selection.Clear;
Selection.Add(aPersistent);
CopySelectionToStream(AStream);
FUndoList[FUndoCurr].obj := AStream.DataString;
SaveControlSelection.Assign(Selection);
AStream := TStringStream.Create('');
try
Selection.AssignPersistent(aPersistent);
CopySelectionToStream(AStream);
FUndoList[FUndoCurr].obj := AStream.DataString;
finally
AStream.Free;
end;
finally
AStream.Free;
Selection.Assign(SaveControlSelection);
SaveControlSelection.Free;
end;
finally
Selection.Assign(SaveControlSelection);
SaveControlSelection.Free;
Selection.EndUpdate;
end;
end;