Huh het is weekend, wie maakt mij wakker???
De oplossing is véél eenvoudiger.
Verander regels 115-116 van:
Delphi Code:
...
If Srect.Right>Screen.Width then OffsetRect(Srect,-(Srect.Right-Screen.Width),0);
If Srect.Bottom>Screen.Height then OffsetRect(Srect,0,-(Srect.Bottom-Screen.Height));
...
naar:
Delphi Code:
...
If Srect.Right>Screen.DesktopWidth then OffsetRect(Srect,-(Srect.Right-Screen.DesktopWidth),0);
If Srect.Bottom>Screen.DesktopHeight then OffsetRect(Srect,0,-(Srect.Bottom-Screen.DesktopHeight));
...
en je bent er.
Screen.Width/Screen.Height geeft je alleen de breedte en hoogte van de "Primary" monitor,
Screen.DesktopWidth/Screen.DesktopHeight van je gehele (virtuele) desktop.
Greetz,
Peter.
Bookmarks