bb.donnay-software.com

Posted: **Thu Jun 24, 2010 4:51 am**

Hi,

While testing it seems to me that the functionality op the abort/exit/close query in dcgetoptions isn't working as described in the manual.

This is what I added to my dcgetoptions:

Code: Select all

         ABORTQUERY MSG {||DC_MsgBox(,,{'ABORT ?'},"CANCEL or ESCape" ,,,.t.,1,,,,,'10.Arial.bold')} ;
	 EXITQUERY MSG {||DC_MsgBox(,,{'EXIT ?'},"OK or EXIT" ,,,.t.,1,,,,,'10.Arial.bold')} ;
         CLOSEQUERY MSG {||DC_MsgBox(,,{'Close ?'},"X or Icon left corner" ,,,.t.,1,,,,,'10.Arial.bold')}

The CLOSE message never appears? If I click the X (upper right) I'm getting also 'EXIT'?

Posted: **Fri Jun 25, 2010 7:24 am**

I will look into this.

Posted: **Fri Jun 25, 2010 7:46 am**

The below program works perfectly for me:

Code: Select all

#INCLUDE "dcdialog.CH"

FUNCTION Main()

LOCAL GetList[0], GetOptions, dDate := Date()

@ 0,0 DCGET dDate

DCGETOPTIONS ;
   CLOSEQUERY MSG {||MsgBox('CLOSE'), .f.} ;
   ABORTQUERY MSG {||MsgBox('ABORT'), .f.} ;
   EXITQUERY MSG {||MsgBox('EXIT'), .f.}

DCREAD GUI FIT OPTIONS GetOptions ADDBUTTONS

RETURN nil

PROC appsys ; RETURN

bb.donnay-software.com

Getoptions abort/exit/close query

Getoptions abort/exit/close query

Re: Getoptions abort/exit/close query

Re: Getoptions abort/exit/close query