// Gimp 新規レイヤー「background」作成→最背面へ
// 開いているファイルがjpg or bmpならば、そのままキャンバスサイズ変更
// それ以外ならば、白く塗潰したレイヤーを最背面に作成してからキャンバスサイズ変更
//
// タイトルバーにレイヤー数を表示する設定(%L)にしてなければ動作しません。
// キャンバスサイズは、モニタのdot数を取得してその値を現在のサイズに加えます。
// 例) 現在のサイズ640x480px,モニタ解像度1024x768dot→1664x1248px


VIEWid = GETID(" 枚のレイヤー)","gdkWindowToplevel",0.1)
While VIEWid < 0
    MsgBox("Gimpが起動してないか、キャンバスウィンドウが見つかりません")
    Exit
Wend

Ctrlwin(VIEWid,ACTIVATE)
wks = GetStr(VIEWid,0,1)
ifb (pos(".jpg-",wks) > 0) or (pos(".bmp-",wks) > 0)
    c_size()
    Exit
elseif pos("1 枚のレイヤー",wks) > 0 then
    SCKEY(VIEWid,VK_CTRL,J)
    KBD(VK_CTRL,2,20)
    SCKEY(VIEWid,VK_ALT,L)
    KBD(VK_ALT,2,20)
    KBD(VK_K,0,40)
    KBD(VK_B,0,40)
    SCKEY(VIEWid,VK_ALT,L)
    KBD(VK_ALT,2,20)
    KBD(VK_D,0,40)
endif

LOCKHARD(True)
SCKEY(VIEWid,VK_ALT,L)
KBD(VK_ALT,2,20)
KBD(VK_N,0,40)
New_Layer = GETID("新規レイヤー","gdkWindowToplevel",0)
Sleep(0.2)
Ctrlwin(New_Layer,ACTIVATE)
Layer_name = "background"
SendStr(0,Layer_name)
Sleep(0.2)
SCKEY(New_Layer,VK_CTRL,V)
KBD(VK_CTRL,2,20)
Sleep(0.2)
MOUSEORG(New_Layer)
BTN(LEFT,0,53,240,300)
SCKEY(New_Layer,VK_ALT,O)
KBD(VK_ALT,2,20)
MOUSEORG(0)
LOCKHARD(False)

Ctrlwin(VIEWid,ACTIVATE)
Sleep(0.2)
SCKEY(VIEWid,VK_CTRL,VK_OEM_4)
KBD(VK_CTRL,2,20)
c_size()



procedure c_size()
    LOCKHARD(True)
    VIEWid = GETID(" 枚のレイヤー)","gdkWindowToplevel",0)
    Ctrlwin(VIEWid,ACTIVATE)
    SCKEY(VIEWid,VK_ALT,I)
    KBD(VK_ALT,2,20)
    KBD(VK_V,0,40)
    Sleep(0.2)

    canvas_size = GETID("画像サイズの設定","gdkWindowToplevel",0)
    ACW(canvas_size,304,155,416,458,0)
    KBD(VK_TAB,0,40)
    KBD(VK_SPACE,0,40)
    Sleep(0.2)
    SCKEY(canvas_size,VK_ALT,W)
    KBD(VK_ALT,2,20)
    Sleep(0.2)
    SCKEY(canvas_size,VK_CTRL,C)
    KBD(VK_CTRL,2,20)
    SendStr(0,val(GetStr(0)) + G_SCREEN_W)
    Sleep(0.2)
    SCKEY(canvas_size,VK_CTRL,V)
    KBD(VK_CTRL,2,20)
    Sleep(0.2)
    SCKEY(canvas_size,VK_ALT,E)
    KBD(VK_ALT,2,20)
    Sleep(0.2)
    SCKEY(canvas_size,VK_CTRL,C)
    KBD(VK_CTRL,2,20)
    SendStr(0,val(GetStr(0)) + G_SCREEN_H)
    Sleep(0.2)
    SCKEY(canvas_size,VK_CTRL,V)
    KBD(VK_CTRL,2,20)
    Sleep(0.2)

    SCKEY(canvas_size,VK_ALT,E)
    KBD(VK_ALT,2,20)
    KBD(VK_RETURN,0,40)
    SCKEY(canvas_size,VK_ALT,R)
    SCKEY(canvas_size,VK_ALT,R)
    KBD(VK_ALT,2,20)
    KBD(VK_RETURN,0,40)

    Ctrlwin(VIEWid,ACTIVATE)
    KBD(VK_F11,0,40)
    //BTN(RIGHT,0,50,50,300)
    //Sleep(0.2)
    //KBD(VK_V,0,40)
    //KBD(VK_Z,0,40)
    //KBD(VK_F,0,40)
    SCKEY(0,VK_CTRL,VK_ALT,VK_NUMPAD0)
    KBD(VK_CTRL,2,20)
    KBD(VK_ALT,2,20)
    LOCKHARD(False)
    Ctrlwin(GETID("The GIMP","gdkWindowToplevel"),TOPMOST)
fend