Vertical and Horizontal Scroll Bar Processing

[don lowenstein]

Is there a way with Fivewin to build a dialog with automatic vertical and horizontal scroll bar processing that moves the display area as scroll bars are clicked?

[karinha]

Hello, maybe, C:\FWH..\SAMPLES\DON.PRG

Regards, saludos.

[Antonio Linares]

Dear Don,

Code: Select all  Expand view

#include "FiveWin.ch"

function Main()

   local oDlg, oScrollPanel

   DEFINE DIALOG oDlg SIZE 520, 520 COLOR "W/RB"

   ACTIVATE DIALOG oDlg CENTERED ;
      ON INIT ( oScrollPanel := TScrollPanel():New( 20, 20, 500, 500, oDlg ),;
                oScrollPanel:SetColor( "W/B" ),;
                BuildPanel( oScrollPanel ), .T. )

return nil

function BuildPanel( oScrollPanel )

   local cName := Space( 20 ), cSurName := Space( 20 )

   @ 2, 2 GET cName OF oScrollPanel

   @ 5, 2 GET cSurName OF oScrollPanel

   oScrollPanel:SetRange()

return nil