HSPTV!掲示板

こんにちは。
PicBearなどで端をドラックすると親ウィンドウから離れ近づけるとくっつく感じ
のやつがあるのですがそれはどのように作れるのでしょうか。
また親ウィンドウ上部だとくっつくウィンドウは横に
左右だと縦にアイコンをなればせるにはどうしたらいでしょうか。
それと実行ファイル時とスクリプトから実行した時にウィンドウサイズ
が違うのは仕様でしょうか。
回答よろしくお願いします。

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

大体のエッセンスは分かってもらえるかと思います

>zeroさん
#HSP script preprocessor ver3.4 / onion software 1997-2014(c)
#Use file [hspdef.as]
#HSP code generator ver3.4 / onion software 1997-2014(c)
???(15) : error 2 : 文法が間違っています (15行目)
--> setactivewindow hwndmain

とエラーが出ます。

>また親ウィンドウ上部だとくっつくウィンドウは横に
>左右だと縦にアイコンをなればせるにはどうしたらいでしょうか。
この辺りの日本語がよく分からないのですが、ウィンドウAをウィンドウBにある程度まで
近づけるとピタッとくっつくという感じですか。
それとも zero さんのコードのようにウィンドウに親子関係を持たせるのですか。

>catsさん
分かりにくくてすいません。
PicBearでいうと文字列ツール、消しゴムツール、鉛筆ツールなどのアイコンが並んだところ
やレイヤー、パレットが
動かせるところです。
PicBearを見ていただくとわかると思います。

>>E.Tさん
#include "user32.as" を忘れていません？


>この辺りの日本語がよく分からないのですが、ウィンドウAをウィンドウBにある程度まで>
>近づけるとピタッとくっつくという感じですか。
>それとも zero さんのコードのようにウィンドウに親子関係を持たせるのですか。
PicBear(PictBearのタイポだと思われる)を画像検索して、MDIウィンドウに付属する
ドッキング可能な小さいウィンドウのことを言われていると解釈しました。
もしcatsさんの言われているようなものでしたらすいません。
(私も検索する前はcatsさんの言われているものだと思っていましたが)

レバーコントロールのことでしょうか。
昔作ったことがある気がしますがコードはどこかに行ってしまいました。
http://www.kumei.ne.jp/c_lang/sdk2/sdk_182.htm
↑こんな感じの固定されないバーです。

>zeroさん
#include "user32.as"は入っています。

>catsさん
http://1drv.ms/1wP36If
にアップした画像のオレンジでかこんだところにあるやつです。

ツールバーやメニューバーの部分はレバーコントロールですね。
No.65993で示したURL先にも詳しい説明が載っています。
ウィンドウはたぶんMDIだと思います。
MDIについてはこちらの方がモジュール化されています。
http://ma2.nm.land.to/download/index.html

zeroさんのコードを改造して
とりあえずそれっぽいのができたので解決にします。
ありがとうございました

スレと関係ないけどzeroさんの「エッセンス」がどういう意味なのかわからない・・・
日本語で書けばいいのに・・・

いや別に深い意味はないです。
http://thesaurus.weblio.jp/content/%E3%82%A8%E3%83%83%E3%82%BB%E3%83%B3%E3%82%B9