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

#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 nilfunction 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