Salir de un Dialogo CLIPPER + FW

Salir de un Dialogo CLIPPER + FW

Postby LuisPonce » Sat Apr 11, 2009 11:03 pm

Hola

Como puedo hacer para que cuando presione ESC se salga del DIALOG y de la WINDOW, solo se pone en blanco la pantalla pero para salir de la ventana (WINDOW) tengo que cerrarla con X (esquina superior derecha), este es el resumen de mi codigo:

FUNCTION Vender()

DEFINE WINDOW oWndPantalla MDICHILD FROM 0.1,0.1 TO 30,140 TITLE "Movimiento de Ventas"

DEFINE DIALOG oDlgPantalla RESOURCE "Pantalla" OF oWndPantalla
......
......

REDEFINE BTNBMP ID 377 OF oDlgPantalla NAME "BSALIR" TOOLTIP "Salir sin grabar.." ACTION (oDlgPantalla:End(),oWndPantalla:End()) CANCEL

ACTIVATE DIALOG oDlgPantalla NOWAIT ON INIT RefrescaItm(aButItm,aItems,oDlgPantalla,30)

ACTIVATE WINDOW oWndPantalla MAXIMIZED ;
ON INIT (oDlgPantalla:Move(0,0)) ;
VALID (oLbxVenta:lCloseArea())

oFntArial:End()
oFntArial01:End()
oFntArial02:End()

RETURN Nil

Pese a que le doy End() al Dialogo y a su ventana, no lo ejecuta.

Gracias por sus respuestas
Luis Ponce
User avatar
LuisPonce
 
Posts: 192
Joined: Tue Jul 01, 2008 6:34 pm
Location: PERU

Re: Salir de un Dialogo CLIPPER + FW

Postby Antonio Linares » Sun Apr 12, 2009 8:42 am

Luis,

Aqui tienes un ejemplo funcionando bien:
Code: Select all  Expand view

#include "FiveWin.ch"

function Main()

   local oWnd, oDlg

   DEFINE WINDOW oWnd TITLE "window"
   
   oWnd:bKeyDown = { | nKey | If( nKey == VK_ESCAPE, oWnd:End(),) }

   DEFINE DIALOG oDlg TITLE "dialog non modal"

   ACTIVATE DIALOG oDlg NOMODAL CENTERED

   ACTIVATE WINDOW oWnd MAXIMIZED ;
      ON INIT oDlg:SetFocus()

return nil
 
regards, saludos

Antonio Linares
www.fivetechsoft.com
User avatar
Antonio Linares
Site Admin
 
Posts: 41206
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain


Return to FiveWin para CA-Clipper

Who is online

Users browsing this forum: No registered users and 5 guests

cron