【HSP3.x 移植版】『HSPの裏技』シンプルモードステータスバー（ハイライト表示されているメニュー項目の説明を表示）

『HSPの裏技』シンプルモードステータスバー（HSP2.x 版）をHSP3.x バージョンへ書き換え、さらに、メニューを表示しているときにハイライト表示されているメニュー項目の説明をシンプルモードステータスバーで表示するコードを追加したサンプルです。

fresh_homepie
2012/8/17 0:54

タグ：
タグはありません

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
;【HSP3.x 移植版】
;『HSPの裏技』シンプルモードステータスバー
; (ハイライト表示されているメニュー項目の説明を表示する例)
; http://chokuto.ifdef.jp/urawaza/statusbar2.html
;
; [参照] 『Advanced HSP』ドロップダウンメニュー
; http://chokuto.ifdef.jp/advanced/dropdownmenu.html
#uselib "comctl32.dll"
#func InitCommonControlsEx "InitCommonControlsEx" int
#uselib "user32.dll"
#cfunc CreateMenu "CreateMenu"
#cfunc CreatePopupMenu "CreatePopupMenu"
#func AppendMenu  "AppendMenuA" int,int,int,sptr
#func SetMenu     "SetMenu"     int,int
#func DrawMenuBar "DrawMenuBar" int
; 各種定数定義
#define ICC_BAR_CLASSES 4
#define WS_CHILD        0x40000000
#define WS_VISIBLE      0x10000000
#define CCS_BOTTOM      0x00000003
#define SB_SETTEXT      0x0401
#define SB_SETPARTS     0x0404
#define SB_SIMPLE       0x0409
#define SB_SIMPLEID     255
#define NULL            0
#define MF_POPUP        0x10
#define WM_MENUSELECT   0x011F
; メニュー項目IDを定義
#define CMD_ID_OPEN     101   ; 「開く」項目のID
#define CMD_ID_SAVE     102   ; 「保存」項目のID
#define CMD_ID_MESSAGE  104   ; 「メッセージ表示」項目のID
    ; コモンコントロールライブラリの初期化
    initinfo = 8, ICC_BAR_CLASSES
    InitCommonControlsEx varptr(initinfo)
    ; メニューバーの作成
    ; 「ファイル」メニューの作成
    hmenuFile = CreatePopupMenu()
    AppendMenu hmenuFile, 0, CMD_ID_OPEN, "開く(&O)"
    AppendMenu hmenuFile, 0, CMD_ID_SAVE, "保存(&S)"
    ; 「ヘルプ」メニューの作成
    hmenuHelp = CreatePopupMenu()
    AppendMenu hmenuHelp, 0, CMD_ID_MESSAGE, "メッセージ表示(&M)"
    ; メニューバーの作成
    hmenu = CreateMenu()
    AppendMenu hmenu, MF_POPUP, hmenuFile, "ファイル(&F)"
    AppendMenu hmenu, MF_POPUP, hmenuHelp, "ヘルプ(&H)"
    SetMenu hwnd, hmenu
    DrawMenuBar hwnd
    ; ステータスバーの作成
    styleFlags = WS_CHILD | WS_VISIBLE | CCS_BOTTOM
    winobj "msctls_statusbar32", "", 0, styleFlags, 0, 0
    statusbarID = stat
    ; ステータスバーを3つのパーツに分ける
    partspos = 80, 220, -1
    sendmsg objinfo_hwnd(statusbarID), SB_SETPARTS, 3, varptr(partspos)
    ; パーツの表示テキスト設定
    msgtext(0) = "パーツ１"         ; 左揃えで表示
    msgtext(1) = "\tパーツ２"       ; 中央揃えで表示
    msgtext(2) = "\t\tパーツ３"     ; 右揃えで表示
    repeat 3
        ; SB_SETTEXT メッセージ送信
        sendmsg objinfo_hwnd(statusbarID), SB_SETTEXT, cnt, msgtext(cnt)
    loop
    ; WM_MENUSELECT メッセージを処理するように登録
    oncmd gosub *OnMenuSelect, WM_MENUSELECT
    stop
*OnMenuSelect
    ; メニュー選択が切り替わった時
    itemID = wparam & 0xFFFF
    flags = (wparam >> 16) & 0xFFFF
    hmenu = lparam
    if (flags == 0xFFFF) & (hmenu == NULL) {
        ; メニューが閉じられた場合
        msgtext = ""
    } else {
        ; メニュー項目IDに応じて表示メッセージを決定
        switch itemID
        case CMD_ID_OPEN
            msgtext = "ファイルを開きます"
            swbreak
        case CMD_ID_SAVE
            msgtext = "ファイルに保存します"
            swbreak
        case CMD_ID_MESSAGE
            msgtext = "メッセージを表示します"
            swbreak
        default
            msgtext = ""
            swbreak
        swend
    }
    if (msgtext == "") {
        ; 表示メッセージがなければ非シンプルモード
        sendmsg objinfo_hwnd(statusbarID), SB_SIMPLE, 0, 0
        logmes "SB_SIMPLE (0)"
    } else {
        ; 表示メッセージがある場合はシンプルモードで表示
        sendmsg objinfo_hwnd(statusbarID), SB_SIMPLE, 1, 0
        sendmsg objinfo_hwnd(statusbarID), SB_SETTEXT, SB_SIMPLEID, varptr(msgtext)
    }
    return
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

このコードをツイートする