TBITMAP with SCROLL Problem.

[Horizon]

Hi,

I have realized that when I use the SCROLL scope in TImage derived from TBitmap and click the scroll buttons it behaves strange. When I click Vertical scroll, Bitmaps moves horizontal. When I click Horizontal scroll, Bitmaps moves vertical.

Is there any more setting in scroll?

Thanks in advance.

[nageswaragunupudi]

Scrollbars are working correctly for me. ( fwh 9.10 )

[Horizon]

Thanks Rao,

I will try to prepare a working sample and send to here?

[Horizon]

Hi Rao,

As I said before I prepared a sample. It works fine in a standalone prg. But it does not work in my program.

[nageswaragunupudi]

But I am able to reproduce your problem in this small program

Code: Select all  Expand view

#include "FiveWin.ch"

function Main()

LOCAL oDlg, obmp

   DEFINE DIALOG oDlg  SIZE 400, 500 TRANSPARENT

   @ 10,10 IMAGE oBmp OF oDlg PIXEL ;
      FILE '\fwh\bitmaps\olga1.jpg' SCROLL ;
      SIZE 150,212 Update

   ACTIVATE DIALOG oDlg CENTERED

return nil
 

Seems to be a bug

[nageswaragunupudi]

i also found out that if the DIALOG is TRANSPARENT the scrollbars are behaving wrongly.

If the dialog is NOT TRANSPARENT, the scroll bars are behaving correctly

[Horizon]

Exactly, You are right. It is related with dialogs Transparent clause.

[Antonio Linares]

Hakan, Rao,

Already fixed. It was a little bug in Class TBitmap

In both calls to TransBmp(), simply swap ::nX with ::nY:

Code: Select all  Expand view

                  TransBmp( ::hBitmap, ::nWidth(), ::nHeight(), nZeroZeroClr, ::hDC,;
                            ::nY, ::nX, ::nWidth(), ::nHeight() )
 

This fix is included in next FWH 9.11 build