| |
|
Bem Vindo, Visitante
|
 Todos os Fórums
  ADVPL
|
 Imprimir
 Enviar Para um Amigo
Precisa estar Logado
|
 |
 |
Assunto: |
EnchoiceBar não Aparece com Enchoice |
|
Versão: |
12 |
|
Plataforma: |
Microsoft |
Complemento: |
|
|
DB: |
SQL Server |
Complemento: |
|
|
|
|
|
|
|
Mensagem do
INOVA
em 01/08/2018, 11:34 h
Local: SP Registro: 30/03/2018 Postagens: 8 |
Alguém pode me ajudar a descobrir porque o enchoicebar (botões Básicos) não
aparece lá no topo da tela.
Criei:
aSizeAut := MsAdvSize()
aObjects := {}
AAdd( aObjects, { 100 , 040, .T. , .T. , .F. } )
AAdd( aObjects, { 100 , 040, .T. , .T. , .F. } )
AAdd( aObjects, { 100 , 100, .T. , .T. , .F. } )
AAdd( aObjects, { 100 , 020, .T. , .T. , .F. } )
aInfo:={aSizeAut[ 1 ],aSizeAut[ 2 ],aSizeAut[ 3 ],aSizeAut[ 4 ], 5, 5,5,5 }
aPosObj := MsObjSize( aInfo, aObjects, .T. , .F. )
DEFINE MSDIALOG oDlg TITLE cTitulo FROM aSizeAut[7],aSizeAut[1] TO aSizeAut[6],aSizeAut[5] OF oMainWnd COLORS 0, 16777215 PIXEL
oGrp1 := TGroup():New(aPosObj[1,1],aPosObj[1,2],aPosObj[1,3],aPosObj[1,4]-100,"",oDlg,,,.T.,)
oGrp2 := TGroup():New(aPosObj[2,1],aPosObj[2,2],aPosObj[2,3],aPosObj[2,4]-100,"",oDlg,,,.T.,)
oGrp3 := TGroup():New(aPosObj[3,1],aPosObj[3,2],aPosObj[3,3],aPosObj[3,4]-100,"",oDlg,,,.T.,)
oGrp4 := TGroup():New(aPosObj[4,1],aPosObj[4,2],aPosObj[4,3],aPosObj[4,4]-100,"",oDlg,,,.T.,)
/// APENAS VISUALIZAÇÃO
EnChoice("SA1",2,2, , , ,aCpoEnch , {aPosObj[1,1],aPosObj[1,2],aPosObj[1,3],aPosObj[1,4]-101}, , 3,,,,oGrp1)
/// ENCHOICEBAR
oDlg:bInit := {|| EnchoiceBar(oDlg, ;
{||(nOpcA := 1, oDlg:End())},;
{||(Iif(ValCancel(),(nOpcA := 0, oDlg:End()),Nil))},;
,aButtons),,,,,.T.,.T.,.T.}
oDlg:Activate()
Verifiquei que se eu tirar o enchoice o enchoicebar aparece normalmente,
mais preciso do enchoice porque mostro dados do cliente com ele, e dos botões do enchoicebar para gravar alguns dados.
NÃO ESTOU CONSEGUINDO VER O PROBLEMA.
OBRIGADO.
|
|
|
|
Mensagem do
EMERSON.EN
em 01/08/2018, 13:27 h
Local: SP Registro: 20/08/2010 Postagens: 670 |
eu acabei de executar no Protheus 12, utilizando o fonte abaixo:
#include "totvs.ch"
user function TstTela1()
cTitulo := "Clientes"
aSizeAut := MsAdvSize()
aObjects := {}
aCpoEnch := {}
aButtons := {}
AAdd( aObjects, { 100 , 040, .T. , .T. , .F. } )
AAdd( aObjects, { 100 , 040, .T. , .T. , .F. } )
AAdd( aObjects, { 100 , 100, .T. , .T. , .F. } )
AAdd( aObjects, { 100 , 020, .T. , .T. , .F. } )
aInfo:={aSizeAut[ 1 ],aSizeAut[ 2 ],aSizeAut[ 3 ],aSizeAut[ 4 ], 5, 5,5,5 }
aPosObj := MsObjSize( aInfo, aObjects, .T. , .F. )
DEFINE MSDIALOG oDlg TITLE cTitulo FROM aSizeAut[7],aSizeAut[1] TO aSizeAut[6],aSizeAut[5] OF oMainWnd COLORS 0, 16777215 PIXEL
oGrp1 := TGroup():New(aPosObj[1,1],aPosObj[1,2],aPosObj[1,3],aPosObj[1,4]-100,"",oDlg,,,.T.,)
oGrp2 := TGroup():New(aPosObj[2,1],aPosObj[2,2],aPosObj[2,3],aPosObj[2,4]-100,"",oDlg,,,.T.,)
oGrp3 := TGroup():New(aPosObj[3,1],aPosObj[3,2],aPosObj[3,3],aPosObj[3,4]-100,"",oDlg,,,.T.,)
oGrp4 := TGroup():New(aPosObj[4,1],aPosObj[4,2],aPosObj[4,3],aPosObj[4,4]-100,"",oDlg,,,.T.,)
/// APENAS VISUALIZAÇÃO
EnChoice("SA1",2,2, , , ,aCpoEnch , {aPosObj[1,1],aPosObj[1,2],aPosObj[1,3],aPosObj[1,4]-101}, , 3,,,,oGrp1)
/// ENCHOICEBAR
oDlg:bInit := {|| EnchoiceBar(oDlg, ;
{||(nOpcA := 1, oDlg:End())},;
{||(Iif(ValCancel(),(nOpcA := 0, oDlg:End()),Nil))},;
,aButtons),,,,,.T.,.T.,.T.}
oDlg:Activate()
return
static function ValCancel()
return .T.
|
|
|
|
Mensagem do
INOVA
em 02/08/2018, 14:28 h
Local: SP Registro: 30/03/2018 Postagens: 8 |
Emerson,
Peguei o código que vc postou e mesmo assim não apareceu o enchoicebar.
Pelo que eu entendi no seu caso apareceu.
Então fui mudando uma coisa e outra, e fiz o seguinte, deixei o enchoice mas não dentro do oGrp1 mas no oDlg, e apareceu.
Não entendi porque, se o tamanho do oGrp1 dava tranquilamente, mais tá resolvido.
Muito Obrigado.
CMKAS
|
|
 Para postar no Fórum você precisa efetuar o seu login ou se registrar
|
|
