Skip to main content

WS-SYSMENU close TEXT Window

  • October 1, 2014
  • 4 replies
  • 0 views
D

With Dialog System I have the possibility to continue the program if the operator used the event  WINDOW-CLOSED in order to execute some closing procedures before the program stops.

What can I do when I use a Text Window (Character based) to do the same?    If the operator clicks on the  X   the program stops immediately what I do not want.   And when I remove the  Sys-Menu with the WINAPI  WS-SYSMENU  the operator has not the possibility to change the window, minimize it, etc.,

I am looking for a simple possibility just to activate a flag if he uses X   and  with 

 IF WINDOWCLOSED GO TO CLOSING-PROCEDURE.    Continue my program.

Thanks for any help

Rolf


#WINDOWCLOSED

4 replies

Yvon Abgrall
  • Yvon AbgrallRocketeer
  • Rocketeer
  • October 1, 2014

With Dialog System I have the possibility to continue the program if the operator used the event  WINDOW-CLOSED in order to execute some closing procedures before the program stops.

What can I do when I use a Text Window (Character based) to do the same?    If the operator clicks on the  X   the program stops immediately what I do not want.   And when I remove the  Sys-Menu with the WINAPI  WS-SYSMENU  the operator has not the possibility to change the window, minimize it, etc.,

I am looking for a simple possibility just to activate a flag if he uses X   and  with 

 IF WINDOWCLOSED GO TO CLOSING-PROCEDURE.    Continue my program.

Thanks for any help

Rolf


#WINDOWCLOSED

I would believe the easiest would be to use a MF exit handler set thru the MF API cbl_exit_proc ...

:) Yvon

Fano Razafinimanana

With Dialog System I have the possibility to continue the program if the operator used the event  WINDOW-CLOSED in order to execute some closing procedures before the program stops.

What can I do when I use a Text Window (Character based) to do the same?    If the operator clicks on the  X   the program stops immediately what I do not want.   And when I remove the  Sys-Menu with the WINAPI  WS-SYSMENU  the operator has not the possibility to change the window, minimize it, etc.,

I am looking for a simple possibility just to activate a flag if he uses X   and  with 

 IF WINDOWCLOSED GO TO CLOSING-PROCEDURE.    Continue my program.

Thanks for any help

Rolf


#WINDOWCLOSED

Hi rolf,

You might want to disable only the close button instead of the whole system menu, and you may achieve this by using the Windows API functions GetSystemMenu and EnableMenuItem as shown below:

           *>get handle of text window
           call "PC_WIN_HANDLE"
              using by reference ws-textwin-handle         

           *>get handle of window menu
           move isFalse to ws-BOOL
           call win32 "GetSystemMenu" using
                               by value ws-textwin-handle
                               by value ws-BOOL
               returning ws-HMENU
           if ws-HMENU = 0
               display "GetSystemMenu failed"
               stop run
           end-if
           
           *>disable close button only
           move SC-CLOSE to uIDEnableItem
           add MF-BYCOMMAND to MF-GRAYED giving uEnable
           call win32 "EnableMenuItem" using
                               by value ws-HMENU
                               by value uIDEnableItem
                               by value uEnable
               returning retlong
           if retlong not = 0
               display "EnableMenuItem failed"
               stop run
           end-if
See attached for a complete demo.
Regards,
1 Attachments
D

With Dialog System I have the possibility to continue the program if the operator used the event  WINDOW-CLOSED in order to execute some closing procedures before the program stops.

What can I do when I use a Text Window (Character based) to do the same?    If the operator clicks on the  X   the program stops immediately what I do not want.   And when I remove the  Sys-Menu with the WINAPI  WS-SYSMENU  the operator has not the possibility to change the window, minimize it, etc.,

I am looking for a simple possibility just to activate a flag if he uses X   and  with 

 IF WINDOWCLOSED GO TO CLOSING-PROCEDURE.    Continue my program.

Thanks for any help

Rolf


#WINDOWCLOSED

Your recommendation looks very good.  I even found a demo  "Quitter" that Works almost good.

My problem is now:  If the program executes a normal STOP RUN it enters the "cblExitProc" and the Keybord is enabled.

But if I close the Window  with  X  it also enters the "cblExitProc" and displays the conditions.  But the keybord is  NOT  enabled. After 5 seconds the window is cleared and the program ends. The operator has no chance to input anything. What must I consider in order to enable the keybord?

If I call an other program happens the same: the program starts but with no possibility to type anything.

D

With Dialog System I have the possibility to continue the program if the operator used the event  WINDOW-CLOSED in order to execute some closing procedures before the program stops.

What can I do when I use a Text Window (Character based) to do the same?    If the operator clicks on the  X   the program stops immediately what I do not want.   And when I remove the  Sys-Menu with the WINAPI  WS-SYSMENU  the operator has not the possibility to change the window, minimize it, etc.,

I am looking for a simple possibility just to activate a flag if he uses X   and  with 

 IF WINDOWCLOSED GO TO CLOSING-PROCEDURE.    Continue my program.

Thanks for any help

Rolf


#WINDOWCLOSED

thanks this is a solution.

Recent badge winners

Explore all badges
Terms & ConditionsAccessibility statement