I found some Problems using => TScrWnd():New(...
1. On Image-end ( bottom and right ) the Thumbs are not related to the Image.
2. Using a Brush on a transparent Image, there is a wrong painting scrolling the Image.
Without using => oScroll:SetScroll( 1, 9, 1, 12) with Range-define
I'm looking for a Calculation, to adjust the Thumbpos of TScrWnd():New(... related to the Image-size.
The original Image
Image zoomed inside a defined Dialog-size
oScroll := TScrWnd():New(oDlg, 1, nDlgH, 1, nDlgW) // Dialog-size
In Relation to the Image-size, I used a Factor to adjust the Thumb-pos like :
If nNewHeight >= 760 .or. nNewWidth >= 760 // image-size
oScroll:SetScroll( 1, 9, 1, 12)
Endif
This sample shows the Thumb on Image-bottom.
Because I couldn't find any Logic, Is there maybe a Formula ?
Best Regards
Uwe
