TScrollBox

TSrvObject -> TControl -> TScrollBox

#include "TOTVS.CH"User Function TScrollBox()  DEFINE DIALOG oDlg TITLE "Exemplo TScrollBox" FROM 180,180 TO 550,700 PIXEL    // Usando o método New    oScr1 := TScrollBox():New(oDlg,01,01,92,260,.T.,.T.,.T.)	    // Cria objetos para teste do Scroll    oFont := TFont():New('Courier new',,-22,.T.)    oSay1:= TSay():New(01,01,{||'Texto para exibição '+;     'Texto para exibição Texto para exibição'},oScr1,,oFont,,;                      ,,.T.,CLR_RED,CLR_WHITE,400,20)    oSay2:= TSay():New(01,01,{||'Texto para exibição '+;     'Texto para exibição Texto para exibição'},oScr1,,oFont,,;                      ,,.T.,CLR_RED,CLR_WHITE,400,20)                       // Usando o método Create                     oScr2 := TScrollBox():Create(oDlg,93,01,92,260,.T.,.T.,.T.)                                                         oSay3:= TSay():New(01,01,{||'Texto para exibição '+;     'Texto para exibição Texto para exibição'},oScr2,,oFont,,;                      ,,.T.,CLR_RED,CLR_WHITE,400,20)    oSay4:= TSay():New(01,01,{||'Texto para exibição '+;     'Texto para exibição Texto para exibição'},oScr2,,oFont,,;                      ,,.T.,CLR_RED,CLR_WHITE,400,20)                       ACTIVATE DIALOG oDlg CENTERED Return