TScrollBox

#INCLUDE "TOTVS.CH"
MAIN FUNCTION u_TScrollBox()
  local bTexto := {|| 'Texto para exibição '+;
                      'Texto para exibição '+;
                      'Texto para exibição'}

  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, bTexto, oScr1,,oFont,,;
                        ,,.T.,CLR_RED,CLR_WHITE,400,20)

    oSay2:= TSay():New(01,01, bTexto, 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, bTexto, oScr2,,oFont,,;
                        ,,.T.,CLR_RED,CLR_WHITE,400,20)

    oSay4:= TSay():New(01, 01, bTexto, oScr2,,oFont,,;
                        ,,.T.,CLR_RED,CLR_WHITE,400,20)
  ACTIVATE DIALOG oDlg CENTERED
RETURN