hsp3/モジュール変数/モジュール変数の使い方例 1

  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
 46
 47
 48
 49
 50
 51
 52
 53
 54
 55
 56
 57
 58
 59
 60
 61
 62
 63
 64
 65
 66
 67
 68
 69
 70
 71
 72
 73
 74
 75
 76
 77
 78
 79
 80
 81
 82
 83
 84
 85
 86
 87
 88
 89
 90
 91
 92
 93
 94
 95
 96
 97
 98
 99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147

// モジュール変数を使用したウィンドウ管理システムの作成テスト
 
#include "mod_pval.hsp"
 
//------------------------------------
 
#module easywnd px, py, cx, cy, text
// 個々のウィンドウを表現するモジュール変数
 
// パラメータ取得
#modfunc ew_getpx
    return px
#modfunc ew_getpy
    return py
#modfunc ew_getcx
    return cx
#modfunc ew_getcy
    return cy
 
#modfunc ew_paint
    // ウィンドウを描画
    color 192, 192, 192
    boxf px, py, px+cx, py+cy
    color 255, 255, 255
    line px+cx-1, py+1, px+1, py+1
    line px+cx-1, py+cy-1
    line px+1, py+cy-1
    line px+1, py+1
    color 0, 0, 0
    pos px+3, py+3
    mes text
    pos px, py+cy
    return
 
#modfunc ew_move int p1, int p2, int p3, int p4
    // ウィンドウを移動して描画
    px=p1
    py=p2
    cx=p3
    cy=p4
    ew_paint thismod
    return
 
#modfunc ew_erase
    // ウィンドウの描画されている領域を初期化
    color 255, 255, 255
    boxf px, py, px+cx, py+cy
    return
 
#modfunc ew_isoverwrap var p1
    // ウィンドウ 1 , 2 が重なっているかを調べる
    ew_getpx p1 : tpx=stat
    ew_getpy p1 : tpy=stat
    ew_getcx p1 : tcx=stat
    ew_getcy p1 : tcy=stat
    if (px<tpx+tcx) & (px+cx>tpx) & (py<tpy+tcy) & (py+cy>tpy) : return 1
    return 0
 
#modinit str ptext
    // 初期化
    px=px0
    py=py0
    cx=160
    cy=120
    sdim text ,256
    text=ptext
    px0 += 20
    py0 += 20
    ew_paint thismod
    return getaptr(thismod)
 
#global
 
//------------------------------------
 
#module windowmanager
// ウィンドウ(ウィンドウを表現するモジュール変数)の管理システムのモジュール
 
#deffunc wm_createwindow str p1
    // ウィンドウの作成
    newmod wnd, easywnd, p1
    return stat
 
#deffunc wm_destroywindow int p1
    // ウィンドウの消去
    // ウィンドウが描画されていた領域を初期化
    ew_erase wnd(p1)
    // 消去するウィンドウに重なっているウィンドウを再描画
    foreach wnd
        if cnt=p1 : continue
        ew_isoverwrap wnd(p1), wnd(cnt)
        if stat : ew_paint wnd(cnt)
    loop
    // 実体の消去
    delmod wnd(p1)
    return
 
#deffunc wm_movewindow int p1, int p2, int p3, int p4, int p5
    // ウィンドウの移動
    // ウィンドウが描画されていた領域を初期化
    ew_erase wnd(p1)
    // 移動前のウィンドウに重なっているウィンドウを再描画
    foreach wnd
        if cnt=p1 : continue
        ew_isoverwrap wnd(p1), wnd(cnt)
        if stat : ew_paint wnd(cnt)
    loop
    // ウィンドウを移動(再描画)
    ew_move wnd(p1), p2, p3, p4, p5
    return
 
#deffunc wm_getwindowrect int p1, int p2
    // ウィンドウの描画領域の矩形を取得
    dupptr rc, p2, 16, 4
    ew_getpx wnd(p1) : rc(0)=stat
    ew_getpy wnd(p1) : rc(1)=stat
    ew_getcx wnd(p1) : rc(2)=rc(0)+stat
    ew_getcy wnd(p1) : rc(3)=rc(1)+stat
    return
 
#global
 
//------------------------------------
 
    wm_createwindow "test0" : hew(0)=stat
    mes stat
    wm_createwindow "test1" : hew(1)=stat
    mes stat
    wm_createwindow "test2" : hew(2)=stat
    mes stat
    wait
 
    wm_movewindow hew(0), 100, 100, 256, 192
    wait
 
    wm_destroywindow hew(2)
    wait
 
    dim rc,4
    wm_getwindowrect hew(0), varptr(rc)
    repeat 4 : mes rc(cnt) : loop
    wait
 
    wm_createwindow "test3" : hew(3)=stat
    mes stat
    stop
   

  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
 46
 47
 48
 49
 50
 51
 52
 53
 54
 55
 56
 57
 58
 59
 60
 61
 62
 63
 64
 65
 66
 67
 68
 69
 70
 71
 72
 73
 74
 75
 76
 77
 78
 79
 80
 81
 82
 83
 84
 85
 86
 87
 88
 89
 90
 91
 92
 93
 94
 95
 96
 97
 98
 99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212

 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
-
|
|
|
|
|
|
|
|
|
!
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
-
|
!
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
-
|
|
|
|
!
-
|
|
|
!
 
 
 
 
 
 
 
 
 
 
 
 
 
 

;
;	自作ウィンドウ管理
;(2007/07/24)
 
;--------------------------------------------
#module
;ウィンドウ描画
#deffunc DrawWind int px, int py, int wx, int wy, str strtitle
    color
    boxf px, py, px+wx, py+wy
    color 127, 127, 127
    boxf px+1, py+1, px+wx-1, py+wy-1
    color : pos px, py
    mes ""+strtitle
    return
 
#global
 
 
;--------------------------------------------
;ウィンドウのパラメータモジュール変数
;mp(module parameter：モジュール変数)
#module Windowmanager fwin, px, py, wx, wy, strtitle
;ウィンドウ作成
;【例】newmod wid, Windowmanager, 100,100,100,100,"win0"
#modinit int _fwin, int _wx, int _wy, int _px, int _py, str _strtitle
    fwin = _fwin    ;ウィドウフラグ
    wx = _wx    ;ウィンドウ座標
    wy = _wy
    px = _px    ;ウィンドウ位置
    py = _py
    strtitle = _strtitle
    return
 
;ウィンドウの描画（ウィンドウ情報を描画命令に送る）
#modfunc mpDrawWind
    if fwin!0 : DrawWind px, py, wx, wy, strtitle
    return
 
;ウィンドウ情報の変更
#modfunc mpSetIntInfoWind int inum, int _info
    if inum = 0 : fwin = _info
    if inum = 1 : wx = _info
    if inum = 2 : wy = _info
    if inum = 3 : px = _info
    if inum = 4 : py = _info
    return
 
;ウィンドウ情報の変更
#modfunc mpSetStrInfoWind int inum, str _strinfo
    if inum = 0 : strtitle = _strinfo    ;タイトル変更
    return
 
;ウィンドウ情報取得
#modfunc mpGetWindInfo int infonum
    if infonum = 0 : return fwin
    if infonum = 1 : return wx
    if infonum = 2 : return wy
    if infonum = 3 : return px
    if infonum = 4 : return py
    return
 
#global
;--------------------------------------------
 
;ウィンドウ操作を行なうモジュール
#module
;命令初期化
#deffunc IniGWin
    dim winturn, 3
    dim winfo,4
    wincount = 0    ;作成したウィンドウの個数
    return
 
;新規ウィンドウを作成する
#deffunc gnewscreen int wx, int wy, int px, int py
    fwin = 1
    newmod wid, Windowmanager, fwin, wx,wy, px,py, "win"+wincount
    winturn.wincount = wincount
    awin = wincount    ;アクティブウィンドウ
    tgwinid = awin
    wincount++
    return tgwinid    ;作成したウィンドウのidを返す
 
;ウィンドウタイトルを設定
#deffunc gtitle str strtitle
    ;捜査対象ウィンドウに反映される
    if tgwinid<length(wid) : mpSetStrInfoWind wid.tgwinid, 0, strtitle
    return
 
;指定したウィンドウをアクティブにする
#deffunc ggsel int _winid, int swwinact
    winid = _winid
    if winid>=length(wid) : return
    if swwinact = 1 {
        awin = winid
        tgwinid = awin
        i = 0
        repeat length(winturn)
            winturn(i) = winturn(cnt)
            if awin ! winturn.cnt : i++
        loop
        winturn(length(winturn)-1) = awin
        mpSetIntInfoWind wid.winid, 0, 1
    }
    if swwinact =-1 : mpSetIntInfoWind wid.winid, 0, 0    ;非表示
    if swwinact = 0 : tgwinid = winid    ;捜査対象ウィンドウid
;	if swwinact = 2 : mpSetIntInfoWind wid.winid, 0, 2	;常に最前面
    return
 
;ウィンドウ情報の取得
#defcfunc gginfo int infonum
    if tgwinid>=length(wid) : return
    if infonum = 2 : return awin    ;アクティブなウィンドウID
    if infonum = 3 : return tgwinid    ;操作先ウィンドウID
    if infonum = 4 : mpGetWindInfo wid.tgwinid, 3 : return stat    ;ウィンドウの左上X座標
    if infonum = 5 : mpGetWindInfo wid.tgwinid, 4 : return stat    ;ウィンドウの左上Y座標
    if infonum = 6 : mpGetWindInfo wid.tgwinid, 3 : xx = stat : mpGetWindInfo wid.tgwinid, 1 : return stat+x    ;ウィンドウの右下X座標
    if infonum = 7 : mpGetWindInfo wid.tgwinid, 4 : yy = stat : mpGetWindInfo wid.tgwinid, 2 : return stat+y    ;ウィンドウの右下Y座標
    if infonum = 10 : mpGetWindInfo wid.tgwinid, 1 : return stat     ;ウィンドウ全体のXサイズ
    if infonum = 11 : mpGetWindInfo wid.tgwinid, 2 : return stat    ;ウィンドウ全体のYサイズ
    if infonum = 19 : return length(wid)    ;登録されたウィンドウの数を取得
    return
 
;ウィンドウサイズ設定
#deffunc _gwidth int _wx, int _wy, int _px, int _py
    if tgwinid>=length(wid) : return
    if _wx!-99999 : mpSetIntInfoWind wid.tgwinid, 1, _wx
    if _wy!-99999 : mpSetIntInfoWind wid.tgwinid, 2, _wy
    if _px!-99999 : mpSetIntInfoWind wid.tgwinid, 3, _px
    if _py!-99999 : mpSetIntInfoWind wid.tgwinid, 4, _py
    return
 
;ウィンドウの順番を取得
#deffunc GetGWinTurn array winturnnum
    repeat length(winturn)
        winturnnum(cnt) = winturn(cnt)
    loop
    return awin
 
;全てのウィンドウを描画
#deffunc DrawAllGWin
    repeat length(winturn)
        if winturn(cnt)<length(wid) {
            mpDrawWind wid(winturn(cnt))
        }
    loop
    return
 
#global
;--------------------------------------------
#define gwidth(%1=-99999, %2=-99999, %3=-99999, %4=-99999) _gwidth %1, %2, %3, %4    ;省略したときの対策
IniGWin
 
 
 
;###############################################
;
;	実行サンプル
;
 
;ウィンドウ作成
gnewscreen 100,100, 100,100
gtitle "window"+stat
gnewscreen 100,100, 120,120
gnewscreen 100,100, 160, 90
gnewscreen 100,100, 280,140
gnewscreen 100,100, 260,200
 
ggsel 1, 1    ;ID=1のウィンドウアクティブ
gtitle "window1"    ;アクティブウィンドウの名称変更
idawin = 3
ggsel idawin, 1
ggsel 2,-1
 
 
fw2=-1    ;ウィンドウid=2を非表示
*main
    redraw 1 : await 16 : redraw 0 : color 255, 255, 255 : boxf : color : pos 0,0
 
    stick key,15
    z = 3
    if key & 1 : gwidth ,,gginfo(4)-z    ;対象ウィンドウ移動
    if key & 2 : gwidth ,,,gginfo(5)-z
    if key & 4 : gwidth ,,gginfo(4)+z 
    if key & 8 : gwidth ,,,gginfo(5)+z
    if key & 128 : end
    if key & 1024 {
        ;アクティブにするウィンドウを指定
        idawin++
        if idawin>gginfo(19)-1 : idawin = 0
        ggsel idawin, 1    ;ウィンドウをアクティブにする
    }
    if key & 16 {
        ;表示・非表示の切り替え
        if fw2 = -1 : fw2 = 1 : else : fw2 = -1
        ggsel 2,fw2
    }
 
    mes "Hit key:Tab,↑,↓,→,←"
    GetGWinTurn winturn    ;ウィンドウの順番取得
    mes "アクティブウィンドウ："+stat
    a = "ウィンドウの順番："
    repeat gginfo(19)
        a+=""+winturn.cnt+", "
    loop
    mes a
 
    ;ウィンドウの描画
    DrawAllGWin
 
    goto *main