TGripper (Rubber Band) I give away starter code.

[jamie]

As I am converting C++ code, I ran into a CRrectTracker class. So I looked at Trubber band in LCL, it's basically nothing. Sorry.

Any ways, I had something in my old projects and needs to be expanded of course but is usable now I will give it away here.

Example Use:

Code: Pascal  [Select][+][-]

1. TestBox := TGripper.Create(Self,ScrollBox1);//or any TWinControl
2.   TestBox.BoundsRect := Rect(0,0,100,100);
3.   TestBox.GripType := grpSphereFilled;// Or the box style.. etc
4.   TestBox.Visible := True;
5.   TestBox.Hint := 'This is my box';
6.   Testbox.ShowHint := True;              
7.  

I have attached the UNIT file.