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)