【HSP3】Unicodeいろいろ | Codetter（こーどったー）

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
#include "user32.as"
#include "gdi32.as"
#define DT_WORDBREAK        0x00000010
#define DT_EDITCONTROL      0x00002000
// http://hsp.tv/play/pforum.php?mode=pastwch&num=41339
#define WS_CHILD        $40000000
#define WS_VISIBLE      $10000000
#define WS_BORDER       $800000
#define WS_TABSTOP      $10000
#define ES_AUTOHSCROLL  $80
#define STYLE           WS_CHILD | WS_VISIBLE | WS_TABSTOP | ES_AUTOHSCROLL
#define UNKNOWN         $200 ; HSPのインプットボックスに設定されていたEXスタイルの値
#define  WM_SETFONT    0x0030
// オブジェクト生成
    // フォントをメイリオにしておく
    font "メイリオ", 18, 16 : objmode 2, 1
    pos 0, 0
    
    // inputを使うと不具合があるので、winobjをつかう
    ;sdim dummy
    ;input dummy, 640, 34 : objid_input = stat : hobj_input = objinfo(objid_input, 2)
    objsize 640, 34
    winobj "Edit", "", UNKNOWN, STYLE : objid_input = stat : hobj_input = objinfo(objid_input, 2)
    
    // winobjで作成したオブジェクトのフォントを指定する(後で開放が必要)
    mref BMSCR, 67
    CreateFontIndirect varptr(BMSCR(49))
    hFont = stat
    sendmsg hobj_input, WM_SETFONT, hFont, 1
    
    // 残りを描画
    objsize 320, 34
    button gosub "文字列をセット(その１)", *s1
    button gosub "文字列をセット(その２)", *s2
    button gosub "文字列の取得(その１)", *s3
    button gosub "文字列の取得(その２)", *s4
    
    onexit gosub *exit
stop
*s1
    // 文字をinputにセットする(objprmとかは使用しない)
    string.0 = 0x0bf50bf5,0x0bf50bf5,0x0bf50bf5,0x0bf50bf5,0x0bf50bf5,0x0bf50bf5
    string.6 = 0x0bf50bf5,0x0bf50bf5,0x0bf50bf5,0x0bf50bf5,0x0bf50bf5,0x0bf50bf5
    string.12 = 0
    // 反映
    SetWindowTextW hobj_input, varptr(string)
return
*s2
    // 文字をinputにセットする(objprmとかは使用しない)
    sdim s
    cnvstow s, "文字列を代入したよ♪"
    // 反映
    SetWindowTextW hobj_input, varptr(s)
return
*s3
    // 文字列を取得して描画してみる
    sdim uni_word, 1024*2 + 2
    GetWindowTextW hobj_input, varptr(uni_word), 1024
    
    // 真っ白に
    color 255,255,255 : boxf : color
    
    // 表示
    rect = 0, 200, 640, 480
    DrawTextW hdc, varptr(uni_word), -1, varptr(rect), DT_WORDBREAK | DT_EDITCONTROL
    redraw
return
*s4
    // 0xXXXX の形式で取得する
    sdim uni_word, 1024*2 + 2
    GetWindowTextW hobj_input, varptr(uni_word), 1024
    num = stat
    if num == 0 : dialog "失敗したとか？何も代入されていないとか？" : return
    
    // 0xXXXX に変換する
    sdim sf
    repeat num
        sf += strf("0x%04X ", wpeek(uni_word, cnt*2))
    loop
    sf += "\n↑Unicode(UTF-16)"
    
    // 真っ白に
    color 255,255,255 : boxf : color
    
    // 表示
    rect = 0, 200, 640, 480
    DrawTextA hdc, varptr(sf), -1, varptr(rect), DT_WORDBREAK | DT_EDITCONTROL
    redraw
    
return
*exit
    // 終了時に削除
    DeleteObject hFont
    end
return
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX