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?
Don Lowenstein
www.laapc.com
www.laapc.com
Board index FiveWin for Harbour/xHarbour Vertical and Horizontal Scroll Bar Processing
Hello, maybe, C:\FWH..\SAMPLES\DON.PRG
Regards, saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
Dear Don,
#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