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

IDE: controlselection: using FreeNotification opRemove for selected components

Browse Source 
git-svn-id: trunk@22627 -
This commit is contained in:
mattias 2009-11-16 15:12:14 +00:00
parent fa3198bffe
commit f246b17923
1 changed files with 17 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
designer/controlselection.pp
View File

@ -263,7 +263,7 @@ type
{ TControlSelection }
TControlSelection = class(TObject)
TControlSelection = class(TComponent)
private
FControls: TList; // list of TSelectedControl
FMediator: TDesignerMediator;
@ -348,6 +348,8 @@ type
procedure UpdateRealBounds;
procedure UpdateParentChildFlags;
procedure DoDrawMarker(Index: integer; DC: TDesignerDeviceContext);
procedure Notification(AComponent: TComponent; Operation: TOperation);
override;
// snapping
function CleanGridSizeX: integer;
@ -371,7 +373,7 @@ type
procedure FindNearestTopGuideLine(var NearestInt: TNearestInt);
procedure ImproveNearestInt(var NearestInt: TNearestInt; Candidate: integer);
public
constructor Create;
constructor Create; reintroduce;
destructor Destroy; override;
procedure OnIdle(Sender: TObject; var Done: Boolean);
@ -393,7 +395,7 @@ type
procedure Clear;
function Equals(const ASelection: TPersistentSelectionList): boolean; reintroduce;
function AssignPersistent(APersistent: TPersistent): boolean;
procedure Assign(AControlSelection: TControlSelection);
procedure Assign(AControlSelection: TControlSelection); reintroduce;
procedure AssignSelection(const ASelection: TPersistentSelectionList);
function IsSelected(APersistent: TPersistent): Boolean;
function IsOnlySelected(APersistent: TPersistent): Boolean;
@ -904,7 +906,7 @@ end;
constructor TControlSelection.Create;
var g:TGrabIndex;
begin
inherited Create;
inherited Create(nil);
FControls:=TList.Create;
FGrabberSize:=5;
FMarkerSize:=5;
@ -1328,6 +1330,15 @@ begin
CurItem.MarkerPaintedBounds:=Bounds(CompLeft,CompTop,CompWidth,CompHeight);
end;
procedure TControlSelection.Notification(AComponent: TComponent;
Operation: TOperation);
begin
inherited Notification(AComponent, Operation);
if Operation=opRemove then begin
Remove(AComponent);
end;
end;
function TControlSelection.CleanGridSizeX: integer;
begin
Result:=EnvironmentOptions.GridSizeX;
@ -2011,6 +2022,8 @@ begin
FStates:=FStates+cssSelectionChangeFlags;
if Count=1 then SetCustomForm;
if APersistent=FLookupRoot then Include(FStates,cssLookupRootSelected);
if APersistent is TComponent then
TComponent(APersistent).FreeNotification(Self);
DoChange;
UpdateBounds;
SaveBounds;