PicBearを知らないので正確には分からないのですが、
見たところツールペインのような感じですね。
無理やり再現するとしてこんな感じでしょうか(整列とかしてませんが)
#include "user32.as"
gsel 0
hwndMain = hwnd
screen 1, 150, 150, screen_tool | screen_fixedsize
hwndTool = hwnd
title "tool window"
SetWindowLong hwndTool, -8, hwndMain
SetParent hwndTool, hwndMain
GetWindowLong hwndTool, -16
SetWindowLong hwndTool, -16, stat | 0x40000000
SetWindowPos hwndTool, 0, 0, 0, 0, 0, 1|4
SetActiveWindow hwndMain
joint = 1
oncmd gosub *SysCommand, 0x0112
oncmd gosub *ExitSizeMove, 0x0232
stop
*SysCommand
if (wparam == 0xF012) {
fMoving = 1
}
return
*ExitSizeMove
if (fMoving) {
dim rcMain, 4
GetWindowRect hwndMain, varptr(rcMain)
dim rcTool, 4
GetWindowRect hwndTool, varptr(rcTool)
if (joint) {
// 中から外へ
if ((rcTool.0 < rcMain.0) || (rcTool.1 < rcMain.1) || (rcMain.2 < rcTool.2) || (rcMain.3 < rcTool.3)) {
GetWindowLong hwndTool, -16
SetWindowLong hwndTool, -16, stat ^ 0x40000000
SetParent hwndTool, 0
SetWindowPos hwndTool, 0, rcTool.0, rcTool.1, 0, 0, 1|4
joint = 0
}
} else {
// 外から中へ
if ((rcTool.0 > rcMain.0) && (rcTool.1 > rcMain.1) && (rcMain.2 > rcTool.2) && (rcMain.3 > rcTool.3)) {
GetWindowLong hwndTool, -16
SetWindowLong hwndTool, -16, stat | 0x40000000
SetParent hwndTool, hwndMain
ScreenToClient hwndMain, varptr(rcTool)
SetWindowPos hwndTool, 0, rcTool.0, rcTool.1, 0, 0, 1|4
SetActiveWindow hwndMain
joint = 1
}
}
}
fMoving = 0
return
大体のエッセンスは分かってもらえるかと思います