import.css=/download/attachments/6062824/tecnologia.css |
Cria um objeto do tipo painel com barra de rolagem (Scroll).
#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 |
Advanced Protheus 6.09, Advanced Protheus 7.10, Microsiga Protheus 8.11, Microsiga Protheus 11, Protheus 10, TOTVS Application Server 10, ByYou Application Server