FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour cGetFile al Iniciar dialogo
Posts: 711
Joined: Thu Oct 06, 2005 09:57 PM
cGetFile al Iniciar dialogo
Posted: Sat Mar 27, 2010 12:19 PM

Tengo un di谩logo que uso para el proceso de altas y modificaciones. Cuando la opci贸n es alta, tengo un bot贸n en el di谩logo que llama a la funci贸n cGetfile, para seleccionar un fichero. Me gustaria, que la ventanita del cGetfile, se abriera automaticamente cuando la opci贸n es ALTA, pero que se abriera con la ventana del dialogo de fondo.

Lo he intentado poniendolo en el ON INIT, pero me saca primero la ventanita del cGetFile y una vez que salgo de esa ventanita, entonces me abre el di谩logo.

驴Alguna manera de que primero abra el dialogo y encima aparezca la ventanita del cGeFile?.

Un saludo



Manuel
Posts: 346
Joined: Mon Oct 05, 2009 03:35 PM
Re: cGetFile al Iniciar dialogo
Posted: Mon Mar 29, 2010 02:45 AM

hola:

cuando utilizo el ON INIT se ejecuta el codigo al iniciarse el control que no siempre significa que se ve en pantalla y que en este caso es el dialog contenedor.....

pero si utilizas el ON PAINT se ejecuta el codigo al pintarse el control (que si se ve en pantalla) que seria el dialog.

... ON PAINT {|| IIF( lregistro_de_alta, myfuncioncgetfile(), nil )}

espero que te sirva..

saludos desde Chile.

SkyPe: armando.lagunas@hotmail.com

Mail: armando.lagunas@gmail.com
Posts: 2365
Joined: Wed Nov 02, 2005 11:46 PM
Re: cGetFile al Iniciar dialogo
Posted: Mon Mar 29, 2010 02:53 AM

Armando...

Al usar el ON PAINT las veces que se refresque el dialogo, es decir todas las veces que window mande un mensaje WS_PAINT al dialogo, se evaluara ::bPainted, por tal motivo no es conveniente usarla alli

Manuel...

puedes usar la data ::bStart, es un code block que se ejecutara solo una vez y sera despues del primer pintado

Posts: 1054
Joined: Sun Oct 09, 2005 10:41 PM
Re: cGetFile al Iniciar dialogo
Posted: Mon Mar 29, 2010 02:51 PM
Hola, prueba asi:
Code (fw): Select all Collapse
...
..
.
REDEFINE BUTTON oFiles ACTION cFile := cGetFile(..........................
.
..
...
ACTIVATE DIALOG oDlg ON INIT (oFiles:Click())                   // prueba con el metdo Click() en el boton que llama a cGetFile


Salu2
Posts: 711
Joined: Thu Oct 06, 2005 09:57 PM
Re: cGetFile al Iniciar dialogo
Posted: Mon Mar 29, 2010 07:00 PM

Muchas gracias a todos.

Daniel, funcion贸 perfecto.

Un saludo



Manuel

Continue the discussion