A la miercoles che! mejor me saco la "capa" de principe y me bajo del caballo. Ustedes las mujeres policias tienen fama de ser bravas. Hagan de cuenta que nunca les pregunte nada, no sea que me caiga la INTERPOL en mi casa (y lo peor, despues me cae la bruja -lease esposa-).Me alegro que hayan avanzado algo con lo del codigo, la verdad creo que no es necesario lo de los parametros dentro del/los evento(s). Pero ese es otro tema.Saludos... o mejor nada, ya les tengo miedo. CAMBIO Y FUERA!GuilleDe: Rita Cecila Restrepo De La Hoz <ritacecil...@gmail.com>
Para: publice...@googlegroups.com
Enviado: domingo, 8 de enero de 2012 2:59
Asunto: Re: [vfp] Re: : Chicas en agradecidas con varios principes (EDGAR - CARLOS - WALTER)
Mil gracias GUILLERMO por tu aporte fue de mucha ayuda nos toco agregar a tu código el codigo PARAMETERS, ya que seguía presentando el error y nos quedo así los procedimientos MouseMove y MouseLeave, así esta trabajando bien, es mas trabaja mejor de lo que esperábamos, aunque nos gustaría saber que función cumple el código PARAMETERS en los procedures.Gracias también por el código que enviaste, lo vamos a desarrollar un poco mas a ver si podemos derrotar al profe y lo hacemos con el botón trasparente, por ahora así cumple el objetivo.Con referencia a tu pregunta que en donde estamos, estamos en una comisión de trabajo en Columbus Georgia USA, Angela es de Chile, Claudia es de Argentina, Sofia es de Paraguay, Betty y yo somos de Colombia, cada una de nosotras somos agentes de policía en cada uno de nuestros países y estamos recibiendo un curso de 10 meses sobre seguridad urbana y logistica, y la idea es que utilicemos las herramientas de software que tenemos a la mano en cada país para mejorar la logística, el profesor considera que el Visual Foxpro es una herramienta poderosa para realizar aplicaciones rápidas sobre temas administrativos y logísticos.Gracias y mil gracias por tu colaboración, esta noche nos quedaremos analizando tu código y otros que nos mandaron, no debemos quedarnos solo con lo que tenemos, sino tratar de avanzar un poco mas, teniendo en cuenta que el Visual Foxpro no esta dentro del programa, es iniciativa del profe en ayudarnos con otra herramienta mas de trabajo.CordialmentePrincesas Fionas
PROCEDURE MouseMovePARAMETERS ti1, ti2, ti3, ti4, ti5, ti6, ti7, ti8, ti9this.picture = "boton1.bmp"Wait Window "ESTE CUADRO ESTA LISTO PARA SELECCION" NOWAITENDPROCPROCEDURE MouseLeavePARAMETERS ts1, ts2, ts3, ts4, ts5, ts6, ts7, ts8, ts9this.picture = "boton.bmp"ENDPROC
El 7 de enero de 2012 23:21, Alex Vargas <alexvar...@gmail.com> escribió:
Un principe mas que se suma a la causa jejeje.
Bien muchachos
Saludos
Alex A. Vargas
> ________________________________
On 7 ene, 21:35, Guillermo Gimenez <guille_cy...@yahoo.com.ar> wrote:
> En el evento MOUSEMOVE todas las propiedades tienen que tener su "dueño"
> PROCEDURE MouseMove
> this.Picture = "boton1.bmp"
> this.Top = 103 &&no creo que sea necesario
> this.Left = 18 &&no creo que sea necesario
> this.Height = 101 &&no creo que sea necesario
> this.Width = 274 &&no creo que sea necesario
> this.Enabled = .T. &&no creo que sea necesario
> this.BorderStyle = 0 &&no creo que sea necesario
> this.visible = .t.
> ENDPROC
>
> lo que si es necesario, es volver a la imagen "original" del boton (boton.bmp) cuando el mouse sale del objeto
>
> PROCEDURE MouseLeave
> this.Picture='boton.bmp'
> ENDPROC
>
> De: Rita Cecila Restrepo De La Hoz <ritaceciliarestr...@gmail.com>
> Para: publice...@googlegroups.com
> Enviado: domingo, 8 de enero de 2012 0:11
> Asunto: [vfp] : Chicas en agradecidas con varios principes (EDGAR - CARLOS - WALTER)
>
> Hola a todos los que generosamente nos ayudaron y dedicaron parte de su valioso tiempo
>
> Gracias a Edgar y Carlos que fueron dos de los mejores guías en esta consulta, encontramos que el comportamiento de Visual Foxpro en el comando de botón trasparente asociado a un define windows tiene un problema, al contactar a nuestro profe por cel, el nos explico que realmente si existe ese problema en visual foxpro pero podía ser superado por otras opciones, en ese orden de ideas optamos por varias que nos dieron entre esa la que nos ofreció Walter que era simular un botón trasparente con un control image, en su momento carlos también pregunto que si era necesario, solamente el botón trasparente, pensábamos que si, pero era tratar de buscar otra alternativa que diera prácticamente el mismo resultado, creemos que de eso se trata mucho la codificación, tratar de llegar a un resultado.
>
> Bueno este es el nuevo código, pero se nos presenta un problema en concreto y ya que no hemos visto eventos todavía, le solicitamos una ultima ayuda que creo que es bien facil de solucionar.
>
> Seguimos definiendo la ventana
> Definimos un objeto imagen
> definimos la clase del objeto con sus propiedades pero al darle el evento MOUSEMOVE nos pide un parámetro para mostrarnos la otra imagen, que debemos colocar o que codigo nos hace falta para que se ejecute correctamente.
>
> Mil y MIl gracias por toda su colaboración, una vez resuelto esto creo que podemos irnos a dormir tranquilas y esperar el lunes para exponerlo en clases.
>
> Mil abrazos de parte de las cinco y a la espera de esta ultima consulta
>
> Cordialmente
>
> Rita, Angel, Claudia, Sofia, Betty (No la fea) jejejejeje
>
> CODIGO RESULTANTE Y ANEXOS
> OBJETIVO: QUE MUESTRE LA VENTANA CON EL FONDO DE LA BASE DE DATOS, QUE MUESTRE UNA IMAGEN EN AMARILLO SOBRE LA IMAGEN (BOTON SIMULADO) Y QUE NOS MUESTRE UN BOTON AZUL SI EL MOUSE ESTA SOBRE LA IMAGEN AMARILLA (ESA ES LA QUE NOS DA EL ERROR) - ANEXAMOS ARCHIVOS
>
> DEFINE WINDOW muestra FROM 10.0,10.0 TO 35.2,48.0 NONE NAME wmuestra COLOR RGB(,,,213,204,187) IN SCREEN
> ACTIVATE WINDOW muestra
> DO ventana_muestra
>
> PUBLIC imagen_1
> wmuestra.AddObject('imagen_1','imagen')
> wmuestra.SHOW
>
> DEFINE CLASS imagen AS Image
> Top = 103
> Left = 18
> Height = 101
> Width = 274
> Enabled = .T.
> BorderStyle = 0
> visible = .t.
> BackStyle = 1
> picture = "boton.bmp"
>
> PROCEDURE Click
> Wait Window "Este es el resultado del boton invisible"
> ENDPROC
>
> PROCEDURE MouseMove
> this.Picture = "boton1.bmp"
> Top = 103
> Left = 18
> Height = 101
> Width = 274
> Enabled = .T.
> BorderStyle = 0
> visible = .t.
> ENDPROC
>
> ENDDEFINE
>
> PROCEDURE ventana_muestra
> USE c:\silac\tabla_1
> LOCATE FOR nombre = "fondo_interface"
> @0,0 SAY fondo
> CLOSE ALL
