| Subject: | Bug in VCL -> ScreenSnap |
| Posted by: | Andrew Ofthesong (andr…@ofthesong.net) |
| Date: | Sun, 29 Apr 2007 |
Hi, the Snap function in Delphi is buggy! Yea!
It doen't work good if you have the Windows' Taskbar in a place other than
screen bottom.
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!!