how to get Handle of Scrollbar() of Control ?

Jimmy

Posts: 1772

Joined: Thu Sep 05, 2019 05:32 AM

how to get Handle of Scrollbar() of Control ?

Posted: Sat Feb 25, 2023 07:18 AM

hi,

i want to change Color of Scrollbar when appear.
for this i need Handle of Scrollbar

this i made under Xbase++

---

i have override Fivewin Method for my CLASS TGrid()

Code (fw): Select all Collapse

   METHOD HScroll( nWParam, nLParam ) VIRTUAL // required for default behavior
   METHOD VScroll( nWParam, nLParam ) VIRTUAL // required for default behavior

in CLASS TWindow we have

Code (fw): Select all Collapse

   DATA oVScroll, oHScroll

which will be "filled"

Code (fw): Select all Collapse

   if lVScroll
      DEFINE SCROLLBAR ::oVScroll VERTICAL OF Self
   endif
   if lHScroll
      DEFINE SCROLLBAR ::oHScroll HORIZONTAL OF Self
   endif

now i try this

Code (fw): Select all Collapse

METHOD GetScrollbarObj(lVScroll)
LOCAL oObj
LOCAL hWnd := 0
DEFAULT lVScroll := .T.

   IF lVScroll
      IF __objHasData( self, "oVScroll" )
         oObj := ::oVScroll // VERTICAL
      ELSE
         MsgInfo("no oVScroll" )
      ENDIF
   ELSE
      IF __objHasData( self, "oHScroll" )
         oObj := ::oHScroll // HORIZONTAL
      ELSE
         MsgInfo("no oHScroll" )
      ENDIF
   ENDIF

   IF VALTYPE(oObj) = "O"
      IF __objHasData( oObj, "hWnd" )
         hWnd := oObj:hWnd
      ELSE
         MsgInfo("no oObj:hWnd" )
      ENDIF
   ELSE
      MsgInfo("no Object" )
   ENDIF

RETURN hWnd

but i get "no Object" even when i can "see" Scrollbar ( ACTION GetScrollbarObj() with Button )
do what i´m doing wrong :?:

greeting,

Jimmy

FiveTech Support Forums

how to get Handle of Scrollbar() of Control ?

Continue the discussion