|
Home → 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 |
Started by Boller, Nov., 18 2021 3:22 PM - 1 reply |
| |
| | | |
|
| |
Registered member 3,651 messages Popularité : +175 (223 votes) |
|
Posted on November, 18 2021 - 3:22 PM |
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/ |
| |
| |
| | | |
|
| | |
| |
Registered member 3,651 messages Popularité : +175 (223 votes) |
|
Posted on December, 14 2023 - 7:52 AM |
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/ |
| |
| |
| | | |
|
| | | | |
| | |
|