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

IDE; anchoreditor: less annoying circle checks

Browse Source 
git-svn-id: trunk@26280 -
This commit is contained in:
mattias 2010-06-24 12:17:43 +00:00
parent 5f8cbd5a41
commit 2bd8a3a414
1 changed files with 32 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
designer/anchoreditor.pas
View File

@ -284,6 +284,9 @@ var
SelectedControls: TList;
i: Integer;
CurControl: TControl;
ReferenceControl: TControl;
ReferenceSide: TAnchorSideReference;
CheckPosition: Integer;
begin
//debugln('TAnchorDesigner.AnchorEnabledCheckBoxChange ',DbgSName(Sender),' ',dbgs(TCheckBox(Sender).Checked));
if FUpdating or (Values=nil) then exit;
@ -305,6 +308,27 @@ begin
// user changed an anchor
SelectedControls:=GetSelectedControls;
if SelectedControls=nil then exit;
// check
for i:=0 to SelectedControls.Count-1 do begin
CurControl:=TControl(SelectedControls[i]);
if NewValue and (not CurControl.AnchorSide[Kind].CheckSidePosition(
CurControl.AnchorSide[Kind].Control,
CurControl.AnchorSide[Kind].Side,
ReferenceControl,ReferenceSide,CheckPosition))
then begin
if MessageDlg(lisCCOWarningCaption,
lisThisWillCreateACircle, mtWarning, [mbIgnore, mbCancel], 0)<>
mrIgnore
then begin
Refresh(false);
exit;
end;
break;
end;
end;
// commit
for i:=0 to SelectedControls.Count-1 do begin
CurControl:=TControl(SelectedControls[i]);
if NewValue then
@ -508,9 +532,10 @@ begin
NewSibling:=findNeighbour(i);
if (NewSibling=nil) and (i<>0) then continue;
end;
if not CurControl.AnchorSide[Kind].CheckSidePosition(NewSibling,
if (Kind in CurControl.Anchors)
and (not CurControl.AnchorSide[Kind].CheckSidePosition(NewSibling,
CurControl.AnchorSide[Kind].Side,
ReferenceControl,ReferenceSide,CheckPosition)
ReferenceControl,ReferenceSide,CheckPosition))
then begin
if MessageDlg(lisCCOWarningCaption,
lisThisWillCreateACircle, mtWarning, [mbIgnore, mbCancel], 0)<>
@ -519,6 +544,7 @@ begin
Refresh(false);
exit;
end;
break;
end;
end;
// commit
@ -617,9 +643,10 @@ begin
// check
for i:=0 to SelectedControls.Count-1 do begin
CurControl:=TControl(SelectedControls[i]);
if not CurControl.AnchorSide[Kind].CheckSidePosition(
if (Kind in CurControl.Anchors)
and (not CurControl.AnchorSide[Kind].CheckSidePosition(
CurControl.AnchorSide[Kind].Control,Side,
ReferenceControl,ReferenceSide,CheckPosition)
ReferenceControl,ReferenceSide,CheckPosition))
then begin
if MessageDlg(lisCCOWarningCaption,
lisThisWillCreateACircle, mtWarning, [mbIgnore, mbCancel], 0)<>
@ -628,6 +655,7 @@ begin
Refresh(false);
exit;
end;
break;
end;
end;
// commit