topic-18847

Posts: 632

Joined: Thu Jan 19, 2006 10:45 AM

Efecto negación en un dialogo
Posted: Wed May 19, 2010 08:17 AM

Hola compañeros, alguien sabe como crear el efecto negación en un dialogo. A modo de ejemplo, un sencillo dialogo que te pida la contraseña de acceso. Si esta no es la correcta, que se mueva de izquierda a derecha y viceversa, como si te intentara decir que no lo has introducido bien. Vamos un sencillo movimiento similar al que tu haces con el dedo cuando intentas decir que no a otra persona sin utilizar la palabra.

Saludos

Andrés González desde Mallorca

antolin

Posts: 498

Joined: Thu May 10, 2007 08:30 PM

Re: Efecto negación en un dialogo
Posted: Wed May 19, 2010 12:24 PM

Prueba esto:

Code (fw): Select all Collapse

#include "FiveWin.ch"

STATIC aRect := {0,0,0,0}
STATIC nFin := 0

FUNCTION Prueba()
   LOCAL oDlg,oBot,oTim
   *
   nFin := 0
   DEFINE GDIALOG oDlg  SIZE 400,200 COLOR 0,CLR_WHITE TITLE " Negación"
      DEFINE TIMER oTim INTERVAL 500 ACTION Negar(oDlg,oTim)
      @ 20,20 BUTTONBMP oBot PROMPT "Negación" SIZE 60,12 OF oDlg PIXEL ACTION oTim:Activate()
   ACTIVATE GDIALOG oDlg CENTER ON INIT aRect := GetWndRect(oDlg:hWnd)
   *
   oTim:End()
RETURN NIL
*
FUNCTION Negar(oDlg,oTim)
   oDlg:Hide()
   IF nFin = 6
      oDlg:Move(aRect[1],aRect[2])
      nFin := 0
      oTim:DeActivate()
      ShowWindow( oDlg:hWnd, 1 )
   ELSEIF nFin%2 = 0
      oDlg:Move(aRect[1],aRect[2]-50)
      oDlg:Show()
   ELSE
      oDlg:Move(aRect[1],aRect[2]+50)
      oDlg:Show()
   ENDIF
   ++nFin
RETURN NIL

No es perfecto, pero como comienzo no está mal

Un saludo

Peaaaaaso de foro...

FWH 2007 - xHarbour - BCC55

Andrés González

Posts: 632

Joined: Thu Jan 19, 2006 10:45 AM

Re: Efecto negación en un dialogo
Posted: Thu May 20, 2010 06:20 AM

Gracias Antolin, que tipo de control es GDIALOG, ya que con DIALOG a secas no me hece nada, o sea, no hace la negación. De todas formas, no lo he revisado a fondo. Si compilo con GDIALOG me da error.

Saludos

Andrés González desde Mallorca

Andrés González

Posts: 632

Joined: Thu Jan 19, 2006 10:45 AM

Re: Efecto negación en un dialogo
Posted: Thu May 20, 2010 06:28 AM

Perdona Antolin, sí que funciona si quito GDIALOG, pero hace algo raro.

PARA CARLES, mira de compilar este ejemplo con tu debujer. Lo tengo puesto por defecto. Cuando entra el timer se escucha, y notas que se colapsa, hasta que al final te lo muestra, pero es algo raro.

Mil gracias Antolin, esto es lo que buscaba.

Saludos

Andrés González desde Mallorca

FiveTech Support Forums

Continue the discussion