Scrollbar themed

[Otto]

Could someone please test the behavior of the scrollbars if you use a manifest?

Regards,
Otto

Code: Select all  Expand view

#include "FiveWin.ch"

//----------------------------------------------------------------------------//

function Main()

   local oWnd, oScr1, oScr2

   DEFINE WINDOW oWnd TITLE "ScrollBars"

   @ 2, 5 SCROLLBAR oScr1 OF oWnd ;
      ON UP   oScr1:GoTop() ;
      ON DOWN oScr1:GoBottom()

   @ 2, 15 SCROLLBAR oSrc2 OF oWnd ;
      ON UP   oWnd:Say( 2, 30, Time() ) ;
      ON DOWN oWnd:Say( 4, 30, "Hello!" )
     
@ 4, 20 SCROLLBAR oSbr HORIZONTAL SIZE 300, 30 ;
      ON DOWN MsgInfo( "Down" )
     
  oSbr:SetColor( nRGB( 54, 147, 255 ), nRGB( 128, 217, 255 ) )
   
   ACTIVATE WINDOW oWnd

return nil

[StefanHaupt]

Start:




Clicking on the scrollbars



And now, dbl-click on the horizontal scrollbar maximizes the window

Really curious

[Antonio Linares]

Otto, Stefan,

Here it is working fine. I don't see any errors, neither that the window gets maximized:

http://www.mediafire.com/?sharekey=74af ... 7a516548a8

[Otto]

Hello Antonio,

thank you.

The maximized I don’t have.
But if you move over with the mouse the whole scrollbar changes the color.
And for a moment you have a blue field – all one color.
This looks in an application strange.

Regards,
Otto

[Otto]

Hello Antonio,
could you please have a look at this video.
Here you can see what I mean.

Thanks in advance,
Otto

Video:
http://www.atzwanger-software.com/fw/wellness/wellness.html

[Antonio Linares]

Otto,

Yes, I have seen what you mean but it looks as a standard Windows behavior.

We don't do anything related to painting in that class.

[Otto]

Hello Antonio,

thank you.

Now I tried using: oSbr1:lTransparent :=.t. and all is working as suspected.

Thanks in advance,
Otto