paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-24 15:10:13 +01:00
Code Issues Packages Projects Releases Wiki Activity

IDE: designer selection: emit OnChange before OnChangeProperties

Browse Source 
git-svn-id: trunk@37452 -
This commit is contained in:
mattias 2012-05-29 11:10:04 +00:00
parent d182302cc7
commit 0fa5af44a5
1 changed files with 6 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
designer/controlselection.pp
View File

@ -957,9 +957,9 @@ begin
end; end;
dec(FUpdateLock); dec(FUpdateLock);
if FUpdateLock=0 then begin if FUpdateLock=0 then begin
if cssChangedDuringLock in FStates then DoChange;
if cssBoundsNeedsUpdate in FStates then UpdateBounds; if cssBoundsNeedsUpdate in FStates then UpdateBounds;
if cssBoundsNeedsSaving in FStates then SaveBounds; if cssBoundsNeedsSaving in FStates then SaveBounds;
if cssChangedDuringLock in FStates then DoChange;
end; end;
end; end;
@ -1101,6 +1101,7 @@ begin
FHeight:=FRealHeight; FHeight:=FRealHeight;
InvalidateGuideLinesCache; InvalidateGuideLinesCache;
Exclude(FStates,cssBoundsNeedsUpdate); Exclude(FStates,cssBoundsNeedsUpdate);
DoChangeProperties;
end; end;
procedure TControlSelection.RestoreBounds; procedure TControlSelection.RestoreBounds;
@ -1120,9 +1121,8 @@ begin
OldLeftTop := OldFormRelativeLeftTop; OldLeftTop := OldFormRelativeLeftTop;
SetFormRelativeBounds(OldLeftTop.X, OldLeftTop.Y, OldWidth, OldHeight); SetFormRelativeBounds(OldLeftTop.X, OldLeftTop.Y, OldWidth, OldHeight);
end; end;
InvalidateGuideLinesCache;
end; end;
UpdateRealBounds; UpdateBounds;
EndUpdate; EndUpdate;
end; end;
@ -1245,7 +1245,7 @@ begin
InvalidateGuideLinesCache; InvalidateGuideLinesCache;
end; end;
end; end;
UpdateRealBounds; UpdateBounds;
EndUpdate; EndUpdate;
end; end;
@ -1274,7 +1274,6 @@ begin
end; end;
AdjustGrabbers; AdjustGrabbers;
InvalidateGuideLines; InvalidateGuideLines;
DoChangeProperties;
end; end;
end; end;
@ -2973,8 +2972,8 @@ begin
Items[i].Left:=NewLeft; Items[i].Left:=NewLeft;
end; end;
UpdateBounds;
EndResizing(false); EndResizing(false);
UpdateRealBounds;
end; end;
procedure TControlSelection.MirrorVertical; procedure TControlSelection.MirrorVertical;
@ -3002,8 +3001,8 @@ begin
Items[i].Top:=NewTop; Items[i].Top:=NewTop;
end; end;
UpdateBounds;
EndResizing(false); EndResizing(false);
UpdateRealBounds;
end; end;
procedure TControlSelection.SizeComponents( procedure TControlSelection.SizeComponents(