システムカラーの同期

  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

;===========================================================
;   システムカラーの同期
;                                               for HSP 3.0a
;   2005/12/12 ... kz3
;===========================================================
 
#include "user32.as"
#include "gdi32.as"
 
#define WM_SYSCOLORCHANGE 0x0015
#define WM_SETFONT        0x0030
 
    // 画面をシステムカラーで塗りつぶす
    screen 0, 300,400
    syscolor 15    ; オブジェクトの表面色
    boxf
 
    objmode 1, 1: objsize 150,20
    pos 75, 10    : button gosub "button", *dummy
    pos 75, 40    : buf = "input": input buf,,,63
    pos 75, 70    : chkbox "chkbox", chked
    pos 75, 100    : Llist = "ListItem0\nListItem1\nListItem2"
                  listbox Litemno, 50, Llist
    pos 75, 160    : Clist = "ComItem0\nComItem1\nComItem2"
                  combox Citemno, 50, Clist
    pos 0, 230    : winobj "STATIC", "", 0, $50000001, ginfo_winx, 20, 0, 0 ; ID-5
        // スタティックコントロールにGUIフォント
        GetStockObject 17
        if stat=0: end: else: hfont = stat
        sendmsg objinfo(5,2), WM_SETFONT, hfont, 0
 
    // 同期しない場合はコメントアウト
    oncmd gosub *On_SysColorChange, WM_SYSCOLORCHANGE
    stop
 
*On_SysColorChange
    // 画面をシステムカラーで塗りつぶす
    syscolor 15    ; オブジェクトの表面色
    boxf
    SetWindowText objinfo(5,2),"WM_SYSCOLORCHANGE"
    return
 
*dummy
    return