Voraussetzung: bBrowser 1.4
Um im bBrowser auch ohne Scrollbalken vertikal bzw. horizontal scrollen zu können, müssen mit der MS-Windows API-Funktion SendMessage() entsprechende Events an den bBrowser gesendet werden. Die API-Funktion SendMessage() ist wie folgt definiert:
SendMessage(hWnd AS PTR,;
iMessage AS DWORD,;
iWParam AS DWORD
iLParam AS LONG) AS LONG
hWnd Handle von dem bBrowser-Control
iMessage Vertikales Scrollen: WM_VSCROLL
Horizontales Scrollen: WM_HSCROLL
iWParam Vertikales Scrollen: SB_LINEUP Scrollt eine Zeile nach oben.
SB_LINEDOWN Scrollt eine Zeile nach unten.
SB_PAGEUP Scrollt eine Seite nach oben.
SB_PAGEDOWN Scrollt eine Seite nach unten.
Horizontales Scrollen: SB_LINELEFT Scrollt eine Spalte nach links.
SB_LINERIGHT Scrollt eine Spalte nach rechts.
SB_PAGELEFT Scrollt eine Seite nach links.
SB_PAGERIGHT Scrollt eine Seite nach rechts.
iLParam Dieser Parameter ist immer 0.
Das folgende Codefragment definiert 4 Methoden, um in einem bBrowser eine Seite bzw. eine Zeile nach oben und unten zu scrollen.
METHOD PageUp() CLASS myDataWindow
SendMessage(self:oDCBrowser:Handle(),
WM_VSCROLL,;
MakeWParam(SB_PAGEUP, 0),;
0)
METHOD PageDown() CLASS myDataWindow
SendMessage(self:oDCBrowser:Handle(),;
WM_VSCROLL,;
MakeWParam(SB_PAGEDOWN, 0),;
0)
METHOD LineUp() CLASS myDataWindow
SendMessage(self:oDCBrowser:Handle(),;
WM_VSCROLL,;
MakeWParam(SB_LINEUP, 0),;
0)
METHOD LineDown() CLASS myDataWindow
SendMessage(self:oDCBrowser:Handle(),;
WM_VSCROLL,;
MakeWParam(SB_LINEDOWN, 0),;
0)
Das folgende Codefragment definiert 4 Methoden, um in einem bBrowser eine Seite bzw. eine Spalte nach links und rechts zu scrollen.
METHOD PageLeft() CLASS myDataWindow
SendMessage(self:oDCBrowser:Handle(),;
WM_HSCROLL,;
MakeWParam(SB_PAGELEFT, 0),;
0)
METHOD PageRight() CLASS myDataWindow
SendMessage(self:oDCBrowser:Handle(),;
WM_HSCROLL,;
MakeWParam(SB_PAGERIGHT, 0),;
0)
METHOD LineUp() CLASS myDataWindow
SendMessage(self:oDCBrowser:Handle(),;
WM_HSCROLL,;
MakeWParam(SB_LINELEFT, 0),;
0)
METHOD LineDown() CLASS myDataWindow
SendMessage(self:oDCBrowser:Handle(),;
WM_HSCROLL,;
MakeWParam(SB_LINERIGHT, 0),;
0)