Vertical and Horizontal Scroll Bar Processing

Vertical and Horizontal Scroll Bar Processing

Postby don lowenstein » Tue Sep 20, 2022 4:12 pm

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
User avatar
don lowenstein
 
Posts: 197
Joined: Mon Oct 17, 2005 9:09 pm

Re: Vertical and Horizontal Scroll Bar Processing

Postby karinha » Tue Sep 20, 2022 5:56 pm

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

Regards, saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7780
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: Vertical and Horizontal Scroll Bar Processing

Postby Antonio Linares » Tue Sep 20, 2022 11:16 pm

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

Image
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 42054
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain


Return to FiveWin for Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 33 guests