Temporizar Dialog

[Marca]

Olá Pessoal

Alguem saberia me dizer como colocar um temporizador em uma dialog

Pos tenho um listbox que contem varios registros q. sao atualizados temporariamente e preciso fazerq. com q. essa dialog feche atualize os registros e abra novamente

ex

DEFINE DIALOG oDlg RESOURCE "SV_GERAL" TITLE "CADASTRO DE COMANDOS"

REDEFINE LISTBOX oBrw ;

FIELDS Envio->Arquivo ,;

Envio->Hora ,;

DToC(Envio->DataDia) ,;

Envio->Servidor ,;

Envio->Finalidade ;

HEADERS aCampos[1] ,;

aCampos[2] ,;

aCampos[3] ,;

aCampos[4] ,;

aCampos[5] ;

ID 3000 OF oDlg

oDlg:SetControl(oBrw)

oDlg:lHelpIcon := .F.

oBrw:nClrPane := {|| IF((oBrw:cAlias)->(OrdKeyNo()) % 2 == 0,CLR_N_2101, CLR_LGRAY )}

oBrw:aHJustify := { 2, 2, 2, 2, 0 }

oBrw:aJustify := { 0, 2, 2, 0, .T. }

oBrw:lCellStyle := .T.

oBrw:nHeaderHeight := 20

oBrw:nLineHeight := 17

oBrw:nHeaderStyle := 3

oBrw:nLineStyle := 3

oBrw:Refresh()

oBrw:SetFocus()

REDEFINE SBUTTON aBtn[2] ID 500 OF oDlg;

TOOLTIP "Sair do Modulo" ;

ACTION (lGravar := .F., oDlg:END())

aBtn[2]:lCancel := .T.

ACTIVATE DIALOG oDlg CENTERED ON Init Temporizador() ou coisa parecida parq q. em um determinado momento ela feche

[eajunior]

Ola Marcelo, voce pode fazer desta maneira

DEFINE DIALOG oDlg RESOURCE "SeuResource" FONT oWnd:oFont

coloque os que deseja

ACTIVATE DIALOG oDlg CENTERED NOWAIT

se tiver processamento pode colocar aqui exemplo

DO WHILE .T.

comandos....

ENDDO

SysWayt( tempo desejado ) // se quiser esperar um tempo

oDlg:End()

Onde você vê um obstáculo alguém vê o término da viagem e o outro vê uma chance de crescer.

Elias Abrão Júnior

Fone : (0**11) 5181-6909 São Paulo - SP

eajunior.fw@terra.com.br

xHarbour 0.99.0 - Fivewin 2.5 e xMate

[Jackita]

Oi, Marcelo.

A forma que eu sugiro eh atraves do uso de um timer, pois assim a dialog nao precisaria ser fechada, bastando apenas dar um refresh no objeto. A gente pode tentar desenvolver ess ideia atraves dos exemplos do diretorio SAMPLES e da propria classe Window.prg.

Jackeline - RN

[marcelo]

Ola

Tente adaptar e melhorar isso para o seu aplicativo.:

DEFINE WINDOW oWnd TITLE 'Verificador de Pedidos'

DEFINE TIMER OTIMER OF OWND INTERVAL 10000 ACTION VERPED(OWND,OTIMER)

ACTIVATE TIMER OTIMER

ACTIVATE WINDOW oWnd ICONIZED

RETURN(NIL)

*

FUNCTION VERPED(OWND,OTIMER)

OWND:MAXIMIZE()

DEFINE DIALOG oDlg RESOURCE 'VEPED'

SELE TCERTH

SET ORDER TO 1

GO BOTT

REDEFINE LISTBOX olbx FIELDS STR(TCERTH->PEDIDO,6)+' '+TCERTH->TIPOCER,REQUERENTE,STR(QTDE,3),VE(STR(PEDIDO,6),OLBX) ID 110 HEADERS "Pedido","Requerente","Qtde","Status" FIELDSIZES 80,350,40,100

REDEFINE BUTTON oBtn ID 111 OF oDlg ACTION ODLG:END()

oLbx:nClrText = { || SelColor(TCERTH->D_CUMPRI,oLbx) }

oLbx:nClrForeFocus = { || SelColor1(TCERTH->D_CUMPRI,oLbx)}

oLbx:lCellStyle := .T. // S¢ Pinta a celula que o cursor est 

ACTIVATE DIALOG oDlg

OWND:ICONIZE() RETURN(NIL)

*

FUNCTION VE(WPEDIDO,OLBX)

Olbx:Refresh()

Return(t)

Yrece

[Marca]

Ok Elias Obrigado

Marcelo FErro