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

IDE: designer: fixed updating Form.Left/Top on window move

Browse Source 
git-svn-id: trunk@18628 -
This commit is contained in:
mattias 2009-02-10 10:11:04 +00:00
parent 40f211f179
commit 26293e4375
2 changed files with 22 additions and 33 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

46
designer/controlselection.pp
View File

@ -167,8 +167,8 @@ type
property OldHeight:integer read FOldHeight write FOldHeight;
property OldFormRelativeLeftTop: TPoint read FOldFormRelativeLeftTop
write FOldFormRelativeLeftTop;
property UsedLeft: integer read FUsedLeft write FUsedLeft;
property UsedTop: integer read FUsedTop write FUsedTop;
property UsedLeft: integer read FUsedLeft write FUsedLeft;// form relative (not Left)
property UsedTop: integer read FUsedTop write FUsedTop;// form relative (not Top)
property UsedWidth: integer read FUsedWidth write FUsedWidth;
property UsedHeight: integer read FUsedHeight write FUsedHeight;
property Flags: TSelectedControlFlags read FFlags write FFlags;
@ -617,10 +617,11 @@ var
begin
if FIsTComponent then
begin
GetComponentBounds(TComponent(FPersistent), ALeft, ATop, AWidth, AHeight);
ALeftTop := GetParentFormRelativeTopLeft(TComponent(FPersistent));
ALeft := ALeftTop.X;
ATop := ALeftTop.Y;
AWidth := GetComponentWidth(TComponent(FPersistent));
AHeight := GetComponentHeight(TComponent(FPersistent));
end else
begin
ALeft := 0;
@ -2888,7 +2889,6 @@ function TControlSelection.CheckForLCLChanges(Update: boolean): boolean;
var
i: Integer;
PropsChanged: Boolean;
begin
Result:=false;
if FControls.Count>=1 then begin
@ -2899,35 +2899,17 @@ begin
end;
end;
end;
PropsChanged:=false;
if Update then
begin
if Result then begin
//debugln('TControlSelection.CheckForLCLChanges');
for i:=0 to FControls.Count-1 do
if Items[i].IsTComponent and BoundsChanged(Items[i]) then
InvalidateMarkersForComponent(TComponent(Items[i].Persistent));
InvalidateGuideLinesCache;
PropsChanged:=not IsResizing;
end else if LookupRootSelected and (FLookupRoot is TControl) then
begin
// check for form moves
for i:=0 to FControls.Count-1 do
begin
if Items[i].Persistent=FLookupRoot then
begin
if (Items[i].UsedLeft<>GetComponentLeft(FLookupRoot))
or (Items[i].UsedTop<>GetComponentTop(FLookupRoot)) then
PropsChanged:=not IsResizing;
break;
end;
end;
end;
end;
if PropsChanged then
if Update and Result then
begin
UpdateBounds;
DoChangeProperties;
//debugln('TControlSelection.CheckForLCLChanges');
for i:=0 to FControls.Count-1 do
if Items[i].IsTComponent and BoundsChanged(Items[i]) then
InvalidateMarkersForComponent(TComponent(Items[i].Persistent));
InvalidateGuideLinesCache;
if not IsResizing then begin
UpdateBounds;
DoChangeProperties;
end;
end;
end;

9
designer/designer.pp
View File

@ -1270,7 +1270,14 @@ begin
Sender.Dispatch(TheMessage);
//debugln('*** TDesigner.MoveControl A ',Sender.Name,':',Sender.ClassName,' ',ControlSelection.SelectionForm=Form,' ',not ControlSelection.IsResizing,' ',ControlSelection.IsSelected(Sender));
if ControlSelection.SelectionForm=Form then begin
ControlSelection.CheckForLCLChanges(true);
if (not ControlSelection.CheckForLCLChanges(true))
and (Sender=Form)
and ControlSelection.LookupRootSelected then begin
// the selected form was moved (nothing else has changed)
// ControlSelection does not need an update, but properties like
// Form.Left/Top have to be updated in the OI
OnPropertiesChanged(Self);
end;
end;
end;