Module/ウインドウクローズ時の動作を指定

  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27
 28
 29
 30
 31
 32
 33
 34
 35
 36
 37
 38
 39
 40
 41
 42
 43
 44
 45

 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
-
|
|
!
 
 

#module "ca"
/*
#include "ca_mod.as"
 
	onexit gosub *l_OnExit
	title "ID:0 - 何もしない（無視）"
	screen 2 : title "ID:2 - 何もしない（無視）"
	screen 3 : title "ID:3 - ウィンドウを非表示にする"
	screen 4 : title "ID:4 - プログラムを終了する"
	set_close_action 2,CA_NONE
	set_close_action 3,CA_HIDE
	set_close_action 4,CA_QUIT
 
stop
 
*l_OnExit
	if 0 = do_close_action() : return
end
*/
 
#enum global CA_NONE = 0
#enum global CA_HIDE
#enum global CA_QUIT
 
/*
	setcloseaction p1, p2
	
	p1 = ウィンドウID
	p2 = 閉じられたときの動作
	     0 = 何もしない（無視）
	     1 = ウィンドウを非表示にする
	     2 = プログラムを終了する
*/
#deffunc set_close_action int p1, int p2
    act(p1) = p2
    return
 
#defcfunc do_close_action
    act(wparam) = act(wparam)
    if 0 = iparam & CA_QUIT ! act(wparam) {
        if CA_HIDE = act(wparam) : gsel wparam, -1
        return 0 ; クローズ動作キャンセル
    }
    return 1
#global