|
Inicio → WINDEV 25 → WM - Trabalhando com janelas internas - Working with internal windows, posicionando IW no centro e fechando usando indirection |
WM - Trabalhando com janelas internas - Working with internal windows, posicionando IW no centro e fechando usando indirection |
Iniciado por Boller, 18,nov. 2021 15:22 - 1 respuesta |
| |
| | | |
|
| |
Miembro registrado 3.655 mensajes Popularité : +175 (223 votes) |
|
Publicado el 18,noviembre 2021 - 15:22 |
Prezados,
WM - Trabalhando com janelas internas - Working with internal windows, posicionando IW no centro e fechando usando indirection:
Crie essa procedure
Procedure CentralizaIW(Janela,InternalWindow,exibe)
IF exibe = False THEN {InternalWindow,indControl}..X = -2000 i is int = 1 ResChamp is string sControle is string ResChamp = EnumControl(Janela, i) WHILE ResChamp <> "" i++ sControle = Janela+"."+ResChamp IF ResChamp <> InternalWindow {sControle,indControl}..Grayed = False END ResChamp = EnumControl(Janela, i) END ELSE nLarguraJanela is int = {Janela,indWindow}..Width nLarguraIWindow is int = {InternalWindow,indWindow}..Width {InternalWindow,indWindow}..X = (nLarguraJanela/2) - (nLarguraIWindow/2) i is int = 1 ResChamp is string sControle is string ResChamp = EnumControl(Janela, i) WHILE ResChamp <> "" i++ sControle = Janela+"."+ResChamp IF ResChamp <> InternalWindow {sControle,indControl}..Grayed = True END ResChamp = EnumControl(Janela, i) END END
Ao abrir a janela coloque esse codigo para esconder a IW
CentralizaIW(MyWindow..Name,IWC_01..Name,False)
E para exibir a IW
CentralizaIW(MyWindow..Name,IWC_01..Name,True)
-- Adriano José Boller ______________________________________________ Consultor e Representante Oficial da PcSoft no Brasil +55 (41) 99949 1800 adrianoboller@gmail.com skype: adrianoboller http://wxinformatica.com.br/ |
| |
| |
| | | |
|
| | |
| |
Miembro registrado 3.655 mensajes Popularité : +175 (223 votes) |
|
Publicado el 14,diciembre 2023 - 07:52 |
New Example
Exemplo de uso do EnumControl Lista objetos da tela Inclusive os sub objetos
j is int = 1 ResChamp is string ResChamp = EnumControl(MyWindow.Name, j) WHILE ResChamp <> "" j++ Trace(ResChamp) listeélément(MyWindow.Name+"."+ResChamp) ResChamp = EnumControl(MyWindow.Name, j) END
INTERNAL PROCÉDURE listeélément(NomElt) i is int = 1 sResChampSousElt is string sResChampSousElt = EnumSubElement(NomElt, i) WHILE sResChampSousElt <> "" i++ Trace(NomElt+"."+sResChampSousElt) listeélément(NomElt+"."+sResChampSousElt) sResChampSousElt = EnumSubElement(NomElt, i) END END
The Free Technical Support is entirely at your service.
-- Adriano José Boller ______________________________________________ Consultor e Representante Oficial da PcSoft no Brasil +55 (41) 99949 1800 adrianoboller@gmail.com skype: adrianoboller http://wxinformatica.com.br/ |
| |
| |
| | | |
|
| | | | |
| | |
|