タスクバーを考慮してウィンドウを中央寄せ | 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
;
;   ウィンドウ中央表示（タスクバー考慮）
;
; タスクバーを考慮してウィンドウを中心寄せで配置します。
; ウィンドウが大きすぎてディスプレイサイズを超える場合は、左上が必ずディスプレイ内に入るよう調整。
;
;-----------------------------
;   タスクバー位置サイズを取得
;-----------------------------
#uselib "user32"
#func FindWindow "FindWindowA" str, int
#func GetWindowRect "GetWindowRect" int, int
dim RECT, 4
FindWindow "shell_traywnd"
GetWindowRect stat, varptr (RECT)
mes rect(0) ;L
mes rect(1) ;T
mes rect(2) ;R
mes rect(3) ;B
tw = rect(2) - rect(0)  ;幅
th = rect(3) - rect(1)  ;高さ
/*
    タスクバーの位置
    L!0 右
    T!0 下
    R!ginfo_dispx 左
    B!ginfo_dispy 上
*/
;-----------------------------
;   ウィンドウ作成
;-----------------------------
w = 1800+500    ;横幅
h = 600 ;高さ
screen 0, w, h
;-----------------------------
;   ウィンドウ位置を調整
;-----------------------------
w = ginfo_sizex
h = ginfo_sizey
l = 0
t = 0
;   右
if rect(0)!0 {
    l = (ginfo_dispx - tw - w) / 2
    t = (ginfo_dispy - h) / 2
}
;   下
if rect(1)!0 {
    l = (ginfo_dispx - w) / 2
    t = (ginfo_dispy - th - h) / 2
}
;   左
if rect(2)!ginfo_dispx {
    l = (ginfo_dispx - tw - w) / 2 + tw
    t = (ginfo_dispy - h) / 2 + th
}
;   上
if rect(3)!ginfo_dispy {
    l = (ginfo_dispx - w) / 2
    t = (ginfo_dispy - th - h) / 2 + th
}
if l<0 : l = 0
if t<0 : t = 0
width ,,l,t
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX