Usar janelas com abas, dependendo da situação, pode ser inevitável. Segue um exemplo, usando TFolder:
#include "TOTVS.CH"
user function fFuncao1()
define dialog oDialogo title "Exemplo de TFolder" from 180,180 to 550,700 pixel
// Cria a Folder
aTFolder := { "Aba 01", "Aba 02", "Aba 03" }
oTFolder := tfolder():new( 0,0,aTFolder,,oDialogo,,,,.t.,,260,184 )
// Insere dois tget na aba 1
oSay:= tsay():new(1,2,{||"Campo: "}, oTFolder:aDialogs[1],,,,,,.t.,CLR_RED,CLR_WHITE,96,9)
cTGet1 := "Campo TGet 01"
oTGet1 := tget():new( 1,25,{||cTGet1},oTFolder:aDialogs[1],96,9,;
"",,0,,,.f.,,.t.,,.f.,,.f.,.f.,,.f.,.f.,,cTGet1,,,, )
cTGet2 := "Campo TGet 02"
oTGet2 := tget():new( 20,25,{||cTGet2},oTFolder:aDialogs[1],96,9,;
"",,0,,,.f.,,.t.,,.f.,,.f.,.f.,,.f.,.f.,,cTGet2,,,, )
// Insere um tget na aba 2
cTGet3 := "Campo TGet 03"
oTGet3 := tget():new( 1,5,{||cTGet3},oTFolder:aDialogs[2],96,9,;
"",,0,,,.f.,,.t.,,.f.,,.f.,.f.,,.f.,.f.,,cTGet3,,,, )
// Insere um tget na aba 3
cTGet4 := "Campo TGet 04"
oTGet4 := tget():new( 1,5,{||cTGet4},oTFolder:aDialogs[3],96,9,;
"",,0,,,.f.,,.t.,,.f.,,.f.,.f.,,.f.,.f.,,cTGet4,,,, )
activate dialog oDialogo centered
return nil
Comentários
Postar um comentário