How to "FreezeBottomRight"?
Posted: August 5th, 2005, 9:17 am
Hello
I appreciate particularly the FreezeTopLeft property
Now as i'd like to let the user to put shapes only in the graph current dimensions (I mean: without getting scrollbars when he goes down the bottom right edge), how to get something like a "FreezeBottomRight"?
I was thinking to use OnCanMoveResizeNode but it doesn't seem to get the wished result (basically I have tried to reassign the width of the node)
thanks for any suggestion/help about the above
I appreciate particularly the FreezeTopLeft property
Now as i'd like to let the user to put shapes only in the graph current dimensions (I mean: without getting scrollbars when he goes down the bottom right edge), how to get something like a "FreezeBottomRight"?
I was thinking to use OnCanMoveResizeNode but it doesn't seem to get the wished result (basically I have tried to reassign the width of the node)
thanks for any suggestion/help about the above
- Code: Select all
procedure TForm1.SimpleGraphCanMoveResizeNode(Graph: TSimpleGraph;
Node: TGraphNode; var NewLeft, NewTop, NewWidth, NewHeight: Integer;
var CanMove, CanResize: Boolean);
begin
//
if Node.BoundsRect.Right > GRaph.ClientRect.Right then
begin
// NewWidth := set the difference
end;
end;