HSPTV!掲示板

以下はクリップカーソルの・・・アレです。
#uselib "user32.dll"
;クリップカーソル
#func global ClipCursor "ClipCursor" sptr
clip = ginfo_dispx/2-winx/2,ginfo_dispy/2-winy/2,ginfo_dispx/2+winx/2,ginfo_dispy/2+winy/2
ClipCursor varptr(clip)

user32.as使うと内部エラーが出て意味フだったんで、
こうしたんです。

HSPエディタ上ではクリップ効いているのに実行ファイルにすると・・・。
以前コンパイルしたやつと混じってんのかな〜と思ったけど
再び実行ファイルを作ってみるもクリップ効いていない。

kanahironさんのサンプル、これを実行ファイルにしてみるとちゃんと動作します。

#include "user32.as"


	onclick *end_

	bgscr 0,ginfo(20),ginfo(21),0,0,0
	gsel 0,2
	
	clip = 100,100,300,300
	
	ClipCursor varptr(clip)

	repeat
		redraw 0
		
		color 255,255,255
		boxf
		color
		boxf clip(0),clip(1),clip(2),clip(3)
		color 255,255,255
		boxf clip(0)+1,clip(1)+1,clip(2)-1,clip(3)-1
		color
	
		
		pos 0,0
		mes strf("%04d,%04d",mousex,mousey)
		redraw 1

		await 7
	loop
	
	stop
	
*end_
	ClipCursor 0
	end

なにか他のプラグインやら何やらと干渉してるのかな・・・と思うのですが
モジュール開いてみても理解にまでは至らず・・・
使用しているプラグインは確か、keyhook.dllとhspogg.dllだけ。強いて言えばuser32.dllも。

#include "a2d.hsp";PNG読み込み
	#include "llmod3/llmod3.hsp";拡張ダイアログ
	#include "llmod3/msgdlg.hsp"
	#include "hspogg.as";dmmplay系
	#include "keyhook.hsp";キーフック
	#uselib "user32.dll";guiオブジェ,監視,クリップ等

NO.60878の

clip = ginfo_dispx/2-winx/2,ginfo_dispy/2-winy/2,ginfo_dispx/2+winx/2,ginfo_dispy/2+winy/2

で使用している winx と winy の値、代入された clip 変数の値は期待通りになっていますか？

もし winx と winy がウインドウサイズを指し示すシステム変数のつもりなら、
代わりに ginfo_winx と ginfo_winy を使う必要があります。
（HSP2互換モードなら別）

ほえ？これじゃ、制限できないと思うけど・・・

clip = ginfo_dispx/2-winx/2,ginfo_dispy/2-winy/2,ginfo_dispx/2+winx/2,ginfo_dispy/2+winy/2

	mes ""+clip(0)
	mes ""+clip(1)
	mes ""+clip(2)
	mes ""+clip(3)

ClipCursorは移動したりリサイズされたり
ウィンドウに動きがあると自動で無効にされる

だからウィンドウに動きがあったら再度ClipCursorする必要がある

#uselib "user32.dll"
 ;クリップカーソル
#func global ClipCursor "ClipCursor" sptr
#func global ClipCursor_end "ClipCursor" nullptr

onexit *exit

#define WM_CREATE   0x0001
#define WM_MOVE    0x0003
#define WM_SIZE    0x0005
#define WM_SETFOCUS   0x0007
#define WM_KILLFOCUS  0x0008
oncmd gosub *wm,0x0001 //screen実行時
oncmd gosub *wm,0x0003 //ウィンドウ移動時
oncmd gosub *wm,0x0005 //リサイズ時
oncmd gosub *wm,0x0007 //キーボードフォーカスを得た時

winx=1000
winy=2000

clip = ginfo_dispx/2-winx/2,ginfo_dispy/2-winy/2,ginfo_dispx/2+winx/2,ginfo_dispy/2+winy/2
gosub *wm

stop

*wm
	ClipCursor varptr(clip)
return	

*exit
	oncmd 0 //念のため割り込みOFF
	ClipCursor_end
	end

自分にフォーカスが無い状態でも制限したい場合は工夫が必要

もしかしてhttp://hsp.tv/play/pforum.php?mode=all&num=60845の話ですかね。
そっちは見てませんでした。

HSPはマルチスクリーンに対応してません。
ginfo系で取得できるスクリーンの値は、すべてプライマリスクリーンのものです。
どうしても対応させたければ、自力でどうにかしてやる必要がありますが、結構面倒です。

ところで、これを言うと元も子もないのですが、
WindowsのショートカットキーにWin+Lというものがありまして…

うーん、ノーパソなんでディスプレイは一個だけです。
マルチは買っても指示だせないんですね。orz

以下は、問題のプログラムの1行目からテキトウにコピペしたもの。

onerror goto *errend
onexit gosub *goodbye
/**----------------------------------**/
	#define tNAME	"Screen Operation Interference"
	#define VER		"0.01"
/**----------------------------------**/

;パックファイル
	#pack "se01.wav"
	#pack "se02.wav"
;	#pack "se03.wav"
	#pack "se04.wav"
	#pack "se05.wav"

;インクルード
	#include "a2d.hsp";PNG読み込み
	#include "llmod3/llmod3.hsp";拡張ダイアログ
	#include "llmod3/msgdlg.hsp"
	#include "hspogg.as";dmmplay系
	#include "keyhook.hsp";キーフック
	#uselib "user32.dll";guiオブジェ,監視,クリップ等

;初期設定
	#packopt hide 1 
	#const winx 300
	#const winy 200
	;クリップカーソル
	#func global ClipCursor "ClipCursor" sptr
	clip = ginfo_dispx/2-winx/2,ginfo_dispy/2-winy/2,ginfo_dispx/2+winx/2,ginfo_dispy/2+winy/2
	ClipCursor varptr(clip)
	
	bgscr 0,winx,winy,,ginfo_dispx/2-winx/2,ginfo_dispy/2-winy/2
	title tname
	screen 3,300,400,2
	title "デバックウィンドウ"
	gsel 0

汚いスクでお恥ずかしい限り。
枠なしウィンドウなんでD&Dもできないし、
暇人さんの言う自動で解除されてしまうアレにも該当しないかも・・・

すみませんよくわかりません。

>暇人さんの言う自動で解除されてしまうアレにも該当しないかも・・・

> bgscr 0,winx,winy,,ginfo_dispx/2-winx/2,ginfo_dispy/2-winy/2
これが自動で解除されるのに該当してます

なのでNO.60884には
>oncmd gosub *wm,0x0001 //screen実行時
を入れてる

あ。





最近高校二次募集とかアレとか色々あって疲れてんだろうな。
今月はこの掲示板に顔出さないほうがいいかもしんない。
気がつけば人に聞いてる頼ってる自分が怖くなってきた。

NO.60884の#defineは後で削除しようと思って忘れてた・・・