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

formatting

Browse Source 
git-svn-id: trunk@18186 -
This commit is contained in:
paul 2009-01-07 11:41:34 +00:00
parent 2967687379
commit ed6e13b21e
1 changed files with 28 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

49
ideintf/componenttreeview.pas
View File

@ -145,15 +145,17 @@ end;
procedure TComponentTreeView.DragDrop(Source: TObject; X, Y: Integer);
var
Node, SelNode:TTreeNode;
AContainer,AControl:TControl;
Node, SelNode: TTreeNode;
AContainer, AControl: TControl;
begin
Node:=GetNodeAt(X, Y);
if Assigned(Node) then begin
AContainer:=TControl(Node.Data);
Node := GetNodeAt(X, Y);
if Assigned(Node) then
begin
AContainer := TControl(Node.Data);
SelNode := GetFirstMultiSelected;
while Assigned(SelNode) do begin
AControl:=TControl(SelNode.Data);
while Assigned(SelNode) do
begin
AControl := TControl(SelNode.Data);
AControl.Parent := AContainer as TWinControl;
SelNode := SelNode.GetNextMultiSelected;
end;
@ -165,10 +167,10 @@ end;
procedure TComponentTreeView.DragOver(Source: TObject; X, Y: Integer;
State: TDragState; var Accept: Boolean);
var
Node:TTreeNode;
AnObject:TObject;
AContainer,AControl:TControl;
AcceptControl, AcceptContainer:Boolean;
Node: TTreeNode;
AnObject: TObject;
AContainer,AControl: TControl;
AcceptControl, AcceptContainer: Boolean;
begin
//debugln('TComponentTreeView.DragOver START ',dbgs(Accept));
@ -176,25 +178,30 @@ begin
AcceptControl := True;
Node:=GetNodeAt(X, Y);
if Assigned(Node) and Assigned(Node.Data) then begin
AnObject:=TObject(Node.Data);
if (AnObject is TWinControl)
and (csAcceptsControls in TWinControl(AnObject).ControlStyle) then
if Assigned(Node) and Assigned(Node.Data) then
begin
AnObject := TObject(Node.Data);
if (AnObject is TWinControl) and
(csAcceptsControls in TWinControl(AnObject).ControlStyle) then
begin
AContainer := TWinControl(AnObject);
AcceptContainer := True;
end;
end;
if AcceptContainer then begin
if AcceptContainer then
begin
Node := GetFirstMultiSelected;
while Assigned(Node) do begin
AnObject:=TObject(Node.Data);
while Assigned(Node) do
begin
AnObject := TObject(Node.Data);
AcceptControl := AcceptControl and (AnObject is TControl);
// Check if one of the parent of the container is the control itself
if AcceptControl and AcceptContainer then begin
while Assigned(AContainer) do begin
AControl:=TControl(AnObject);
if AcceptControl and AcceptContainer then
begin
while Assigned(AContainer) do
begin
AControl := TControl(AnObject);
AcceptControl := AcceptControl and (AControl <> AContainer);
AContainer := AContainer.Parent;
end;