Estou com um problema para atualizar dinamicamenta a visualização de um texto em uma simple Gui.
Estou usando este codigo que adaptei do Window Spy como um debug:
Code: Select all
DebugGui := Gui.New()
DebugGui.Add("Edit","w320 r3 ReadOnly vDebugView")
DebugGui.Show("NoActivate")
DetectHiddenText 0 ;
ovVisText := WinGetText() ; coloco no loop do meu codigo
UpdateText("DebugView", ovVisText) ;
UpdateText(vCtl, NewText) {
static OldText := {}
ctl := DebugGui[vCtl], hCtl := Integer(ctl.hwnd)
;msgbox hCtl
if (!oldText.HasProp(hCtl) Or OldText.%hCtl% != NewText) {
ctl.Value := NewText
OldText.%hCtl% := NewText
}
}
Ficaria mais ou menos assim:
Code: Select all
DebugGui := Gui.New()
DebugGui.Add("Edit","w320 r3 ReadOnly vDebugView")
DebugGui.Show("NoActivate")
DetectHiddenText 0
DebugGui.DebugView.Value := WinGetText()
Code: Select all
DebugGui.vDebugView.Value := WinGetText()
vDebugView.Value := WinGetText()
DebugGui.DebugView.Value := WinGetText()
DebugView.Value := WinGetText()
DebugGui.Value := WinGetText()
Como seria a forma mais simples de passar o valor pego por WinGetText(), direto para o Gui Edit ?
Obrigado a Todos
![Very Happy :D](./images/smilies/icon_e_biggrin.gif)