HMGforum.com

Code: Select all

//subclass ListView (grid):
EventCreate({ || GridEvents() }, hWndGrid, 0x83 /*WM_NCCALCSIZE*/)

FUNCTION GridEvents()
  //remove internal Scrollbar
  HMG_ChangeWindowStyle(EventHWND(), NIL, 0x00200000 /*WS_VSCROLL*/, NIL, .T.)
  //or hide internal Scrollbar
  //ShowScrollbar(EventHWND(), 1 /*SB_VERT*/, .F.);
RETURN NIL

Code: Select all

HMG_ChangeWindowStyle(GetFormHandle(cFormName), NIL, WS_HSCROLL , .F.)
HMG_ChangeWindowStyle(GetFormHandle(cFormName), NIL, WS_VSCROLL , .F.)

Code: Select all

pragma BEGINDUMP

#include "HMG_UNICODE.h"

#include <windows.h>
#include <commctrl.h>
#include "tchar.h"
#include "hbapi.h"


HB_FUNC( CREATEVERTICALSCROLLBAR )
{
	HWND hwndParent;
	HWND hWnd_Control;
 
   hwndParent = (HWND) HMG_parnl (1);
    RECT rect;
  
    // Get the dimensions of the parent window's client area;
    if (!GetClientRect(hwndParent, &rect))
        HMG_retnl( NULL );

    // Create the scroll bar.
   hWnd_Control = CreateWindowEx( 
            0,                      // no extended styles 
            "SCROLLBAR",           // scroll bar control class 
            (PTSTR) NULL,           // no window text 
            WS_CHILD | WS_VISIBLE   // window styles  
                | SBS_VERT,         // horizontal scroll bar style 
            rect.left,              // vertical position 
            rect.bottom - 200, // vertical position 
            rect.right,             // width of the scroll bar 
            200,	//sbHeight,                height of the scroll bar
            hwndParent,             // handle to main window 
            (HMENU) NULL,           // no menu 
            GetModuleHandle(NULL),	//g_hInst,                 instance owning this window 
            (PVOID) NULL );            // pointer not needed 
        
  
  HMG_retnl ((LONG_PTR) hWnd_Control);
}
#PRAGMA ENDDUMP