Estou com um probleminha chato e gostaria do auxÃlio de vocês. Ao dar RELEASE CONTROL em algum elemento dentro de um window panel, o componente realmente é removido, mas fica uma espécie de sujeira na janela. Gravei um vÃdeo para deixar em evidência. Para melhor visualização, peço por gentileza pra ver em 720p.
Ao clicar no botão OK e na caixa dialogo Sim ou Não, a função vnp40800ZeraCampos() é chamada.
https://drive.google.com/file/d/1N6IhcwqN6nafcIrOV13CdcQwL6VSkWUT/view
No vÃdeo estou usando wine, mas já testei em Windows e o comportamento é o mesmo.
Este é o código no qual estou faço release control nos componentes dentro do panel.
/*
* Zera os campos para que o usuário possa digitar outro caixa
*/
FUNCTION vnp40800ZeraCampos()
LOCAL oElement, indice := 1
linha := 0
SetProperty(wwin,'getnrcaixa','value', 0)
SetProperty(wwin,'getnrorca','value', 0)
SetProperty(wwin,'gettotal','value', 0)
SetProperty(wwin,'getnrcaixa','enabled', .T.)
SetProperty(wwin,'getnrorca','enabled', .T.)
IF! EMPTY(wcampos)
FOR EACH oElement iN wcampos
lbl_tpnum := 'lbl' + StrZero(oElement[1],2,0) + '_descricao'
get_tpnum := 'get' + StrZero(oElement[1],2,0)
RELEASE CONTROL &lbl_tpnum OF &wwinPanel
RELEASE CONTROL &get_tpnum OF &wwinPanel
indice++
NEXT
wcampos := {}
ENDIF
SETFOCUS getnrcaixa OF &wwin
RETURN
A pergunta é, alguém já viu ou passou por isso?