Manter foco na Janela apos restaurar a minimização ???

[Cezar]

Ola,

xHarbour+GtWvW

Tenho a janela prinicipal e mais ou ou duas janelas abertas e o foco esta na última.

Se minimizo a "aplicação", ao restaurar o foco não volta para a janela original em que estava !

Já tentei algumas coisas. como por ex. colocar a função WvW_xReposWindow() no VM_SIZE e outras, mas não consegui.

Voces tem alguma sugestão de como fazer isso.

Grato.
cez_a@ubbi.com.br

[angeiras]

Olá,

Eu tambem estou "apanhando"...

O problema é que a função WM_SIZE não é chamada quando a aplicação é restaurada da taskbar.

Vou fazer alguns testes, mas também já postei a mensagem lá no comp.lang.xharbour.

[]s
Manoel Angeiras

[Cezar]

Boa noite Angeiras,

O pior é que alem de ter de voltar o foco a tela precisa ser pintada novamente !!

Tentei usar o WvW_Paint() mas tambem não deu certo!

Vamos continuar tentando !!
grato.
cez_a@ubbi.com.br

[angeiras]

Olá,

O Budyanto ( criador do GTWVW ) acabou de postar uma solução para o problema do foco. Basta criar a função :

Código: Selecionar todos

function WVW_SETFOCUS(nWinNum, hWnd) 
   if nWinNum==0 
      win_setfocus(wvw_getwindowhandle(wvw_nnumwindows()-1)) 
   endif 
return NIL 

e pronto.

[]s
Manoel Angeiras

[Cezar]

Bom dia, Angeiras !

Testei e funcionou legal.

O problema é que voce perde a função de multiplas janelas, por Ex.

Se voce abrir uma janelas para editar o cadastro de um cliente e quiser chamar no menu principal a janela do cadstro de fornecedores o menu não estará disponivel perdendo a função de MDI ( multiplos dctos ).

Voce percebeu isso??

grato.
cez_a@ubbi.com.br

[Cezar]

Ola,


Angeiras, o que é "comp.lang.xharbour. " ??


Grato,
cez_a@ubbi.com.br

[angeiras]

Olá,

É a lista de discussão em inglês do xHarbour. Pode acessar em

http://groups.google.com/group/comp.la ... ur/topics

[]s
Manoel Angeiras

[Mário Isa]

teria como focar na principal somente quando esse aplicativo (no caso a sua aplicação) for de primeiro plano?

aí resolveria o caso de que eu, depois que coloquei essa função não consigo mais minimizar o programa se uma segunda janela estiver aberta.

:f

[leandrolinauer]

Bom dia a todos.
Nunca tive este problema com HB32, migrei para HB34 devido ao congelamento do sistema no HB32 com windows 10, e me deparei com um novo problema.
Ao rodar um processo por exemplo uma pesquisa de relatorio, a qual tem a janela x de entrada dos dados de pesquisa e uma janela na frente de indicando o processamento para não ficar estatico, no entanto se eu minimizar a tela durante esta pesquisa e voltar apos o termino da pesquisa, quando abre a tela do relatorio com os dados, esta janela nova não aparece, fica somente a anterior de entrada dos dados e se eu dar esc aparece a mensagem se deseja sair na funcao da nova janela, ou seja, esta funcionando, mas nao mostra nada, e se eu não minimizo a janela aparece sem problemas, quantas necessario ter pra frente aparecem, mas se fizer minimizado, as janelas que forem criadas minimizado o programa elas não aparecem.

Alguem esta passando por isto no HB34.??
uso GTWVW.

[JoséQuintas]

Só com fonte exemplo mostrando o problema.

[leandrolinauer]

Boa tarde.
Vou tentar colocar as partes envolvidas que da esta falha, lembrando que não falhava no HB32 passou a falhar só no HB34.
//pra não ficar enorme, vou relatar em partes

Código: Selecionar todos

OpenWindow(00,00,23,80,"..:: Relatório de cobrança (Unificado) - "+aType,,,,,,11,"OURO") //janela 
...abre os arquivos
...entrada dos dados da pesquisa
NewDrawField(05,01,79,"Dados para pesquisa",10,20)
....
gets de leitura
@ 06,02 Get wOd      Pict "@!"           Valid(wOd$"AEVPCL".And.ChecaResposta(wOd)) Color("R/GR*+")
....
pesquisa no banco de dados
....
ShowWait(,,"Selecionando cobrança...") //janela de processamento
...seleciona os 
While !Eof()
   pega os dados para o arquivo temporario a ser mostrado no dbedit
   DbSkip(1)
End
Closewindow()
Mostra os dados em uma nova tela aberta que usa a função de abrir uma janela nova.
Esta janela abaixo não mostra mais, mas só ela, porque qualquer outra coisa que existir nela funciona, se tiver uma f11 buscar especifica no relatorio ela aparece, qualquer coisa aparece, menos a janela, DESDE que o sistema esteja minimizado quando ela for criada.
NewDbBusca(02,00,,,Titulo,NomeCampos,"FuncCobA",o_MsgR) 

CloseWindow() //fecha janela

Claro não deu pra ser bem claro, pq envolve muito codigo para fazer isto acima, mas de qualquer forma deve ser algo no REDESENHO dos objetos.
Bom, mas tbem não dava erro quando rodava no HB32.

[JoséQuintas]

Qual o esquema de abrir/fechar janelas?
Alguma lib tem, e deve ser aí a questão a resolver.

[leandrolinauer]

Bom dia,
a lib que uso é gtwvw só ocorre exatamente no HARBOUR 3.4 no 3.2 não ocorre isto.
qualquer janela que abrir nova e o programa estiver minimizado, ela não é criada.

Obrigado.

[JoséQuintas]

a lib que uso é gtwvw só ocorre exatamente no HARBOUR 3.4 no 3.2 não ocorre isto.
qualquer janela que abrir nova e o programa estiver minimizado, ela não é criada.

Isso é normal em qualquer lib gui, se abre janela associada à anterior.
Diferente disso, só se for janela independente.