Module/拡張版gsel

  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

#ifndef __MODULE_GSELEX__
#define __MODULE_GSELEX__
 
#module "mod_gselex"
 
    #undef gsel
 
    #uselib "user32.dll"
    #func _ShowWindow "ShowWindow" int, int
 
    #deffunc gsel int p1, int p2
        switch p2
            ; 指定したIDのウィンドウを表示するがアクティブにしない
            case 3
                old = ginfo_sel
                gsel p1
                _ShowWindow hwnd, 8 ; SW_SHOWNA
                gsel old
                swbreak
            ; 標準
            default
                gsel@hsp p1, p2
        swend
        return
#global
 
#endif

  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

 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
-
|
|
|
!
-
|
!
 
 

#include "user32.as"
#include "mod_gselex.as"
    ; 適当ツールチップ
    bgscr 2, , , 2: cls 1: mes "img"
    tp = ginfo_mesx, ginfo_mesy
    width tp.0, tp.1
 
    buffer 3: picload dir_exe+"\\sample\\demo\\btn_hsptv.bmp"
    bx = ginfo_winx: by = ginfo_winy
 
    gsel 0
    rc = 100, 30, 100+bx, 30+by
    pos rc.0, rc.1
    gcopy 3, 0, 0, bx, by
 
    repeat
        wait 10
        wp = ginfo_wx1, ginfo_wy1
 
        PtInRect varptr(rc), mousex, mousey
        if stat{
            gsel 2
            width ,, ginfo_mx, ginfo_my-tp.1
            gsel 2,3 ; 拡張パラメータをつかってタイトルをちらちらさせない
        }
        else{
            gsel 2,-1
        }
        gsel 0,1
    loop