FiveTech Software tech support forums

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