'書式を選択・読込み / Ver. 0.80 / by Kabuneko 99/12/03

proc main
    if @hwnd = 0 then exit proc
    dim i, sel, pos, line, top, mode$[17]
    '現在のカーソル位置を保存
    pos = @BytePosCr
    line = @ScrLineToCrLine(@Line)
    top = @Line - @TopLine

    '現在の書式番号を取得
    sel = @StyleNo

    'メニュー内容を設定
    mode$[1] = "・  書式選択  ・"
    mode$[2] = chr$(1) + "-"
    for i = 1 to 15
        if @@StyleComment$(i) = "" then
            mode$[i+2] = chr$(1) + cformat$("&%X.", i) \
            + "  （設定なし）"
        else
            mode$[i+2] = cformat$("&%X.", i) + "  " \
            + @@StyleComment$(i) + " (" + @@StyleName$(i) + ")"
            if i = sel then mode$[i+2] = chr$(2) + mode$[i+2]
        end if
    next

    'メニューを表示・選択アイテムを実行
    sel = popupmenu(mode$)
    if 2 < sel and sel < 18 then @StyleNo = sel-2

    'カーソル位置復元
    @Line = @CrLineToScrLine(line)
    @ByteposCr = pos
    @TopLine = @Line - top
end proc