VCL Forms that snap to the edge of the screen

10/31/2006 12:21:11 AM #

This is cool to have in the VCL, but as far as I know it doesn't snap to other forms or windows, only the screen edges.  So someone who wants form snapping still has to implement half of it.

(Not that I'm complaining, even half is good!  It's a nice inbuilt feature.)

David M

10/31/2006 12:25:43 AM #

Hi David,
  The other "half" (in your words) has been written it's just that some interesting issues arise when you start allowing forms to snap to one another like what happens when you drag or resize the snapped forms. Until we satisfactorily work through those issues that probably won't surface in the core VCL.

-Steve

Steve Trefethen

4/26/2007 5:05:31 PM #

Hi, the Snap function in Delphi is buggy! Yea!

Just do this simple exercise: Put your TaskBar on the Right or on the Top of your Screen, and try to snap to them. It won't work.

The inside code shipped in Delphi 7 is:
      HandleEdge(x, Left, Monitor.WorkareaRect.Left);
      HandleEdge(y, Top, Monitor.WorkareaRect.Top);
      HandleEdge(x, Right, Width);
      HandleEdge(y, Bottom, Height);

But it should be:
      HandleEdge(x, Left, 0);
      HandleEdge(y, Top, 0);
      HandleEdge(x, Right, Width);
      HandleEdge(y, Bottom, Height);

Greetings!!

Andrew