Code: Select all
#pragma BEGINDUMP
#include "HMG_UNICODE.h"
#include <windows.h>
#include <commctrl.h>
#include "tchar.h"
#include "hbapi.h"
HB_FUNC( SCROLL_WINDOW )
{
HWND hwnd;
HDC hdc;
PAINTSTRUCT ps;
TEXTMETRIC tm;
SCROLLINFO si;
static int yPos; // current vertical scrolling position
int yChar; // vertical scrolling unit
hwnd = (HWND) HMG_parnl (1);
yChar = hb_parni(2);
// Get all the vertial scroll bar information.
si.cbSize = sizeof (si);
si.fMask = SIF_ALL;
SetScrollInfo (hwnd, SB_VERT, &si, TRUE);
GetScrollInfo (hwnd, SB_VERT, &si);
// Save the position for comparison later on.
yPos = si.nPos;
si.nPos -= 1;
ScrollWindow(hwnd, 0, yChar * (yPos - si.nPos), NULL, NULL);
UpdateWindow (hwnd);
}
#PRAGMA ENDDUMP
Code: Select all
SCROLL_WINDOW(nFormToScrollHandle, nNumberOfLines)
I don't know, how to create slider.
I've tried do use HMG Slider, but, it isn't it