import.css=/download/attachments/6062824/tecnologia.css |
Cria um objeto do tipo painel com barra de rolagem (Scroll).
#Include "TOTVS.ch" User function u_TScrollArea DEFINE DIALOG oDlg TITLE "" FROM 180,180 TO 550,700 PIXEL // Cria objeto Scroll oScroll := TScrollArea():New(oDlg,01,01,100,100) oScroll:Align := CONTROL_ALIGN_ALLCLIENT // Cria painel @ 000,000 MSPANEL oPanel OF oScroll SIZE 1000,1000 COLOR CLR_HRED // Define objeto painel como filho do scroll oScroll:SetFrame( oPanel ) // Insere objetos no painel apenas para visualização TButton():New( 10,010,"Botão Teste",oPanel,{||},40,010,,,.F.,.T.,.F.,,.F.,,,.F.) TButton():New( 10,230,"Botão Teste",oPanel,{||},40,010,,,.F.,.T.,.F.,,.F.,,,.F.) ACTIVATE DIALOG oDlg CENTERED Return |
Protheus 10, TOTVS Application Server 10