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

IDE: anchor editor: clean up

Browse Source 
git-svn-id: trunk@46020 -
This commit is contained in:
mattias 2014-08-06 16:14:17 +00:00
parent 759846da94
commit 1dfcf970e9
1 changed files with 18 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
designer/anchoreditor.pas
View File

@ -142,7 +142,8 @@ type
FSelection: TPersistentSelectionList; FSelection: TPersistentSelectionList;
FSelectedControlsList: TList; FSelectedControlsList: TList;
FUpdating: Boolean; FUpdating: Boolean;
procedure Refresh(Force: boolean); fNeedUpdate: boolean;
procedure Refresh;
procedure OnRefreshPropertyValues; procedure OnRefreshPropertyValues;
procedure OnSetSelection(const ASelection: TPersistentSelectionList); procedure OnSetSelection(const ASelection: TPersistentSelectionList);
function GetSelectedControls: TList; function GetSelectedControls: TList;
@ -270,7 +271,7 @@ end;
procedure TAnchorDesigner.AnchorDesignerShow(Sender: TObject); procedure TAnchorDesigner.AnchorDesignerShow(Sender: TObject);
begin begin
Refresh(true); Refresh;
end; end;
procedure TAnchorDesigner.AnchorEnabledCheckBoxChange(Sender: TObject); procedure TAnchorDesigner.AnchorEnabledCheckBoxChange(Sender: TObject);
@ -318,7 +319,7 @@ begin
lisThisWillCreateACircularDependency, mtWarning, [mbIgnore, mbCancel])<> lisThisWillCreateACircularDependency, mtWarning, [mbIgnore, mbCancel])<>
mrIgnore mrIgnore
then begin then begin
Refresh(false); Refresh;
exit; exit;
end; end;
break; break;
@ -545,7 +546,7 @@ begin
lisThisWillCreateACircularDependency, mtWarning, [mbIgnore, mbCancel])<> lisThisWillCreateACircularDependency, mtWarning, [mbIgnore, mbCancel])<>
mrIgnore mrIgnore
then begin then begin
Refresh(false); Refresh;
exit; exit;
end; end;
break; break;
@ -657,7 +658,7 @@ begin
lisThisWillCreateACircularDependency, mtWarning, [mbIgnore, mbCancel])<> lisThisWillCreateACircularDependency, mtWarning, [mbIgnore, mbCancel])<>
mrIgnore mrIgnore
then begin then begin
Refresh(false); Refresh;
exit; exit;
end; end;
break; break;
@ -761,7 +762,7 @@ begin
if AnchorDesigner=Self then AnchorDesigner:=nil; if AnchorDesigner=Self then AnchorDesigner:=nil;
end; end;
procedure TAnchorDesigner.Refresh(Force: boolean); procedure TAnchorDesigner.Refresh;
var var
SelectedControlCount: Integer; SelectedControlCount: Integer;
CurSide: TAnchorDesignerSideValues; CurSide: TAnchorDesignerSideValues;
@ -769,15 +770,21 @@ var
CurSelection: TList; CurSelection: TList;
begin begin
//debugln('TAnchorDesigner.Refresh A '); //debugln('TAnchorDesigner.Refresh A ');
if not Force then begin // check if update is needed
// check if update is needed if not IsVisible then begin
if not IsVisible then exit; fNeedUpdate:=true;
exit;
end; end;
if FUpdating then exit; if FUpdating then exit;
FUpdating:=true; FUpdating:=true;
fNeedUpdate:=false;
try try
FreeAndNil(Values); FreeAndNil(Values);
CurSelection:=GetSelectedControls; CurSelection:=GetSelectedControls;
{if (CurSelection<>nil) and (CurSelection.Count>0) then
debugln(['TAnchorDesigner.Refresh Item0=',DbgSName(TObject(CurSelection[0]))])
else
debugln(['TAnchorDesigner.Refresh empty selection']);}
CollectValues(CurSelection,Values,SelectedControlCount); CollectValues(CurSelection,Values,SelectedControlCount);
//debugln('TAnchorDesigner.Refresh B ',dbgs(SelectedControlCount)); //debugln('TAnchorDesigner.Refresh B ',dbgs(SelectedControlCount));
@ -887,7 +894,7 @@ end;
procedure TAnchorDesigner.OnRefreshPropertyValues; procedure TAnchorDesigner.OnRefreshPropertyValues;
begin begin
Refresh(false); Refresh;
end; end;
function TAnchorDesigner.GetSelectedControls: TList; function TAnchorDesigner.GetSelectedControls: TList;
@ -984,7 +991,7 @@ procedure TAnchorDesigner.OnSetSelection(
const ASelection: TPersistentSelectionList); const ASelection: TPersistentSelectionList);
begin begin
if FSelection.IsEqual(ASelection) then exit; if FSelection.IsEqual(ASelection) then exit;
Refresh(false); Refresh;
end; end;
{ TAnchorDesignerValues } { TAnchorDesignerValues }