współrzędne widocznej części pulpitu

0

W noteBoo-kach istnieje możliwość zwiększenia rozdzielczości ekranu znacznie ponad optymalną.Np. z zalecanej 1024/600 do ponad 1900/ponad 1000.
Realizowane jest to tak że ilość pikseli/cm ekranu nie zostaje zmieniona tylko 'powierzchnia pulpitu' zostaje powiększona tak że w danej chwili widać tylko jego część (Cały nie mieści się na ekranie bo jak widać w tym przykładzie ma prawie 4Xwiększą powierzchnię).Niewidoczne aktualnie obszary pulpitu można zobaczyć dosuwając kursor myszy do brzegu ekranu (wówczas pulpit przesuwa się jakby 'pod ekranem').
I teraz pytanie jak pobrać w Delphi współrzędne X i Y widocznej w danej chwili powierzchni pulpitu.
(GetCursorPos daje 0,0 dla górnego/lewego narożnika pulpitu w ogole, a nie jego części widocznej na ekranie.).
Oczywiście mógłbym to uzyskać dosuwając kursor do brzegu, ale nie o to mi chodzi. Chcę mieć te współrzedne bez jeżdżenia myszką po ekranie tylko np. OnButtonClick.

1 użytkowników online, w tym zalogowanych: 0, gości: 1