Campos get memo sumiram - Resolvido

[Eroni]

Boa tarde, gente, alguém já passou por esta situação, estou tentando migrar do 0705 para o 1209 ( ultima versão que tenho ) e quando compilo todos os fontes, no exe novo que gera os campos get memo simplesmente somem. Já tentei de tudo quanto é debub mas nao descobri. Basta compilar de novo com o 0705 e tudo volta ao normal, como se nada tivesse acontecido. Alguém já já viu uma barbaridade assim?

Abraço

[kapiaba]

Desaparece como?? Mostre imagens, e o codigo... Está MULTINE?

Menu principal está assim?

REQUEST DBFCDX, DBFFPT

[Eroni]

Desaparece como?? Mostre imagens, e o codigo... Está MULTINE?

Menu principal está assim?

REQUEST DBFCDX, DBFFPT

Sim Kapiaba, tudo dentro dos conformes, mas não tem nada a ver com banco de dados, são gets de variáveis de memoria mesmo, não uso dbf, e estão todos multiline sim. O codigo nao muda nada em relação a compilar com uma versão ou outra, alias estes fontes funcionam a muitos anos sem mexer, com muitas outras versões antigas. Mas obrigado ai pelo esforço.

[kapiaba]

Fiquei curioso, podes mostrar um exemplo para eu testar com FWH13.06 SUPER FERRARI?

[Eroni]

Seguem as imagens:

Versão 0705:

Versão 0905

[Eroni]

Segue o fonte:

FUNCTION DefineEdit( oEdt,oWin )
LOCAL oFontMemo
LOCAL nAlt := ( ( oEdt[ 3 ] - oEdt[ 1 ] ) * 16 ) / 2 // H_FONT_GET
LOCAL nLar := ( ( oEdt[ 4 ] - oEdt[ 2 ] ) * 8 ) / 2 // W_FONT_GET
LOCAL oWinConteiner


IF oEdt[ 10 ] == NIL
oFontMemo := tFont():New( "Courier New",0,-12,.F.,,,,,,,,,,,, )
ELSE
oFontMemo := oEdt[ 10 ]
ENDIF

IF oWin[ 19 ] != NIL .and. oEdt[ 9 ] > 0
oWinConteiner := oWin[ 19 ][ 8 ]:aDialogs[ oEdt[ 9 ] ] // objeto folder
ELSE
oWinConteiner := oWin[ 06 ]
ENDIF

oEdt[ 7 ] := SW_TMultiGet():New( oEdt[ 1 ]*H_FONT_GET ,;
oEdt[ 2 ]*W_FONT_GET,;
{|u|If(PCount()==0,oEdt[ 5 ],oEdt[ 5 ]:= u ) },; // var
oWinConteiner,; // janela
nLar,; // largura
nAlt,; // altura
oFontMemo,;
oEdt[12],; // barra scrool horizontal
,,,.T.,,.F.,,.F.,.F.,.F.,,,.F.,;
, oEdt[13] ; // barra vertical
)

oEdt[ 7 ]:SetPos(0,0)
oEdt[ 7 ]:lReadOnly := oEdt[ 6 ]
oEdt[ 7 ]:SetSize( nLar, nAlt )
oEdt[ 7 ]:bChange := {||_CheckButtons( oEdt, oWin ) }
oEdt[ 7 ]:bValid := oEdt[ 11 ]
oEdt[ 7 ]:bEventKeyArrows := oEdt[ 14 ]

RETURN( oEdt )

Tenho um framewortk que faz tudo pra mim, entao a janela e outros objetos sao declarados e criados em outros fontes e chamam esta função, que é o único ponto que se cria o objeto. Lembrando que todos os parâmetros já foram muito bem debugadinhos, inclusive dentro da própria classe MGet. E observe que não uso comandos chamo a função criadora do objeto diretamente.

[Erciley Junior]

Seu problema deve ser em relação a posição do objeto

Crie ele em uma dialog vazia na linha 01 coluna 01, passando a cláusula lPIXEL como .T.

Seu problema pode ser isso, posicionamento.

[kapiaba]

Tenho um framewortk que faz tudo pra mim.

Sinceramente, não entendi nada. Nunca vi nada a respeito, nem esta forma de escrita de um programa.

[Eroni]

Boa tarde.

Erciley, grato pela dica, mas fiz o testes, e não é isso, continuou na mesma, o objeto existe, está ativado, mas não mostra.

Kapiaba, este framework já desenvolvi ele a quase 20 anos, o conceito é antigo, já usava este método de trabalho desde o clipper/dos, foi assim que migrei para windows sem ter que reescrever os mais de 500 fontes da minha aplicação, já uso ele desde a versão demo do fivewin, só agora que experimentei este tipo de problema. A unica coisa que mudou um pouco a mais agora é o fato de pela primeira vez estar usando o bcc582 ao invés do bcc55. Vou continuar na busca, qualquer novidade coloco aqui.

Abraços.

[Erciley Junior]

Eroni, esse SetSize está certo?

Fazendo o simples com @Say não funciona também?

@ 01.0,01.0 GET o_GET VAR c_GET MEMO OF oDlg SIZE 200,50

??

Bom, espero q consiga, abraço.

[Eroni]

Erciley, obrigado pela dica, era o setsize mesmo, retirei o mesmo e funcionou igual a antes, interessante é que na versão 0905 sem o setsize não funcionava, testei também na versão 1206 não funcionava. Acredito que deva ser alguma melhoria de versão, agora tudo ok para usar a 1209.

Abraços a todos.