paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-06 07:58:07 +02: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;
dec(FUpdateLock);
if FUpdateLock=0 then begin
if cssChangedDuringLock in FStates then DoChange;
if cssBoundsNeedsUpdate in FStates then UpdateBounds;
if cssBoundsNeedsSaving in FStates then SaveBounds;
if cssChangedDuringLock in FStates then DoChange;
end;
end;
@ -1101,6 +1101,7 @@ begin
FHeight:=FRealHeight;
InvalidateGuideLinesCache;
Exclude(FStates,cssBoundsNeedsUpdate);
DoChangeProperties;
end;
procedure TControlSelection.RestoreBounds;
@ -1120,9 +1121,8 @@ begin
OldLeftTop := OldFormRelativeLeftTop;
SetFormRelativeBounds(OldLeftTop.X, OldLeftTop.Y, OldWidth, OldHeight);
end;
InvalidateGuideLinesCache;
end;
UpdateRealBounds;
UpdateBounds;
EndUpdate;
end;
@ -1245,7 +1245,7 @@ begin
InvalidateGuideLinesCache;
end;
end;
UpdateRealBounds;
UpdateBounds;
EndUpdate;
end;
@ -1274,7 +1274,6 @@ begin
end;
AdjustGrabbers;
InvalidateGuideLines;
DoChangeProperties;
end;
end;
@ -2973,8 +2972,8 @@ begin
Items[i].Left:=NewLeft;
end;
UpdateBounds;
EndResizing(false);
UpdateRealBounds;
end;
procedure TControlSelection.MirrorVertical;
@ -3002,8 +3001,8 @@ begin
Items[i].Top:=NewTop;
end;
UpdateBounds;
EndResizing(false);
UpdateRealBounds;
end;
procedure TControlSelection.SizeComponents(