Steema Central

hi

Try the following. In the IDE drop a standard rectangular shape and another of style tssCircle (aka ellipse) on the tree. Then at run time set the tree into designing mode and drag those shapes around.

Once the ellipse goes into negative coordinate space (ie left of 0,0) it is no longer draggable into positive coordinate space. You can confirm that it is the shape code at fault by simply having a button that will change nodes of style tssCircle to tssRectangle. The formerly locked ellipse, now a rectangle, is once again draggable

strange, I'm not experiencing this problem

drag the ellipse across the axes into negative territory. Then mouseup/click somewhere else.

When you go back to the ellipse, it is no longer draggable by its "text box" (it is by its folder icon, if it has one)

I just reproduced it again, in a fresh app, in code. See below. The code does not do the dragging, you have to try to do that <g>

procedure TForm1.FormCreate(Sender: TObject);
var tree1 : TTree;
var anode : TTreeNodeshape;
begin
tree1 := TTree.create(self); tree1.parent := self;
tree1.visible := true;
tree1.left := 200; tree1.Top :=200;
tree1.height :=200; tree1.width :=200;
tree1.designing := true;
with tree1 do begin
anode := add('a simple rectangle');
anode.style :=tssRectangle;
anode.autosize := true;
anode := add('a simple ellipse');
anode.style :=tssCircle;
anode.autosize := true;
anode.autoposition.left:= false;
anode.autoposition.top:= false;
anode.MoveRelative(-60,-60,false);
{ this ellipse is NOT draggable by its "body"
ie its text area. It IS draggable by its folder icon.
}

end;

JackLeslie,

again, I've no problem dragging this ellipse. (yes I'm dragging with its body)

It is a really weird thing you are experiencing, since there is no difference in the coding of dragging these shapes.

regards,
tom

? you made sure that you did not have it selected initially?

?and it was in negative co-ordinate space?

I know that the polygon shape is coded differently, maybe ellipse is treated as a polygon??

which routine handles the mouse drag stuff? I would like to look at the code

thanks

I just copied your code and run it. Then I dragged it as with any other shape.

I would still appreciate a pointer into the code itself .. where should I look for the code that handles the shape dragging ?

Check for DoMove method