Re: [Hwgui-developers] How to solution press key ESCAPE exit MDICHILDwindow ?

[Basso, L. F. <lf...@vi...>]

NOT PROBLEM

OWNERBUTTON  is not have FOCUS
focus has thus failed to respond to ESC
WITH GET WORK

Regards
Luis Fernando


-----Mensagem Original----- 
From: ss...@ma...
Sent: Tuesday, July 31, 2012 11:23 PM
To: hwg...@li...
Subject: [Hwgui-developers] How to solution press key ESCAPE exit 
MDICHILDwindow ?


Hi all!!

   I have a problem about MDICHILD window and can't press key VK_ESCAPE
to exit, sample code is:

   My test prg is MDI -> MDICHILD -> DIALOG mode,
   I can exit DIALOG and press VK_ESCAPE, but can't exit when focus on
   MDICHILD window, somebody can solution for me? thank you!!

//---------------------------------------------------------------------
#include "hbclass.ch"
#include "guilib.ch"
#include "windows.ch"
#include "nes.ch"
Func  Main()
Local oWnd, oMenu, oPanel
      INIT WINDOW oWnd MDI AT 0,0 SIZE 800, 600;
           TITLE "Test MDI Windows";

           MENU OF oWnd
               MENU TITLE "[&A]Test"
                  MENUITEM "[&H]MDIChild + Dialog" ACTION Test8()
               ENDMENU
           ENDMENU

           @ 0,0 PANEL oPanel SIZE oWnd:nWidth, 36 OF oWnd;
                       ON SIZE {|o,x,y|MoveWindow(o:handle, 0, 0, x, 
o:nHeight)}
           @  2, 2 OWNERBUTTON OF oPanel ON CLICK {|| msgInfo('Exit')} ;
                   SIZE 40, 32;
                   TEXT "Exit";
                   TOOLTIP "Exit Application..."
           @ 42, 2 OWNERBUTTON OF oPanel ON CLICK {|| msgInfo('Printer 
Config')} ;
                   SIZE 40, 32;
                   TEXT "Print";
                   TOOLTIP "Printer Config..."

       ACTIVATE WINDOW oWnd MAXIMIZED

Return NIL

// MDICHILD WINDOW: can't press VK_ESCAPE to exit
Function Test8(oWnd)
Local oChildWnd, oPanel, oFontBtn, oBoton1


   PREPARE FONT oFontBtn NAME "MS Sans Serif" WIDTH 0 HEIGHT -12

   INIT WINDOW oChildWnd MDICHILD OF oWnd  TITLE "Child";
    STYLE WS_CHILD+ WS_VISIBLE + WS_OVERLAPPEDWINDOW

   @ 0,0 PANEL oPanel OF oChildWnd SIZE 0,44

   @ 98,3 OWNERBUTTON oBoton1 OF oPanel ID 110 ON CLICK {|| test8dlg()} ;
        SIZE 44,38 FLAT ;
        TEXT "Test" FONT oFontBtn COORDINATES 0,20,0,0

   oChildWnd:Activate()

Return Nil

// DIALOG: can press VK_ESCAPE exit
FUNC  TEST8Dlg()
Local oDlg, oGet, oBtn
Local PD_NAM := Space(20),;
      lOK    := .F.
      // DIALOG
      INIT DIALOG oDlg AT 0, 0 SIZE 600, 480 CLIPPER NOEXIT; //  NOEXITESC
           ON INIT {|| hwg_CenterWindow( oDlg:handle ),;
                       SetFocus( oDlg:handle ) }
      //
      @ 10, 10 GET oGet VAR PD_NAM OF oDlg;
               COLOR RGB(0,0,0) BACKCOLOR RGB(255,255,208)
      //
      @ 20, 10 BUTTONEX oBtn CAPTION '[&Y]Save' OF oDlg;
               ON CLICK {|| lOK := .T., oDlg:Close() }
      @ 20, 60 BUTTONEX oBtn CAPTION '[&X]Exit' OF oDlg;
               ON CLICK {|| lOK := .F., oDlg:Close() }
      //
      ACTIVATE DIALOG oDlg
      //
RETURN NIL
//---------------------------------------------------------------------


------------------------------------------------------------------------------
Live Security Virtual Conference
Exclusive live event will cover all the ways today's security and
threat landscape has changed and how IT managers can respond. Discussions
will include endpoint security, mobile security and the latest in malware
threats. http://www.accelacomm.com/jaw/sfrnl04242012/114/50122263/
_______________________________________________
Hwgui-developers mailing list
Hwg...@li...
https://lists.sourceforge.net/lists/listinfo/hwgui-developers