I noticed that you could say 'outofbounds' to true. This enables the blocks to go to the right and bottom outside of the visible viewport. However, when I want to move a diagram to the left and top it will always halt. Seems that the block can not have a negative x,y coordinate.
Is it possible to tell me if this is deliberate or is there as well some function to enable this? If not, can this be changed easily in the source code and where?
Thlnk I found it. In the panelresize, there is a recalculation of the x,y coordinates in case of negative
I disabled these lines
// if (MinLeft < 0) or (MinTop < 0) then // begin // BeginInternalUpdate; // BeginUpdatePos; // try // for c:= 0 to DControlCount - 1 do // if not DControls[c].IsMember then // DControls[c].MovePosition(-MinLeft, -MinTop); // finally // EndUpdatePos; // EndInternalUpdate; // for c := 0 to DControlCount - 1 do // DControls[c].NotifyAnchoreds(acPosition); // end; // end; Seems its working after that.
Any hidden problems I could enconter by doing this?
Working perfectly! No problems encountered. However, stumbled accross another one. (as you can see, I'm using it heavily for the moment). I got some x,y coordinates that I saved in a db and now I want to get it showing on screen. I'm using a polygon block (think its called tdiagrampolyblock?) Anyway, I can't use the handles.orpoint there but I need to use polygon.add... So far so good. The only problem is that I seem to need to define a width and a height. Also my polygon is drawn at top, left 0,0 I created the polygon with the startinsertingcontrol and I looped through the polygon points and saved them. Would it be possible to tell me how I can automatically restore the polygon on the diagram where I drew it?
For now its drawing very small and in 0,0. Thx Geert
with curDataBlock do begin for f := 0 to high(numpoints) do begin pts := numpoints; Polygon.Add(pts.X ,pts.Y); end; Diagram := DrawLayer; LayerName :='test';end;