01.ディスプレイの中央に移動する

　 ウィンドゥを移動させるには「width」を使います。
　 中央に寄せるために必要になるのは「ウィンドウサイズ」と「ディスプレイサイズ」です。
　 ディスプレイの中央点は(dispx/2,dispy/2)です。
　 すなわちココにウィンドウの中央点が来るように設定すれば必然的にウィンドゥが中央になります。
　 具体的にどうするかと言うと、
　 ウィンドウの幅の半分をディスプレイ中央より左に
　 ウィンドウの高さの半分をディスプレイ中央より上に移動します。

　 (例)ウィンドゥを中央に移動

 width dispx-640/2,dispy-480/2 ; ホントはカッコでくくるがHSPは左から計算するのでなくてもよい
 stop

TOPへ戻る

02.フルスクリーンで表示する

　 フルスクリーンにするにはタイトルバーのないbgscrでウィンドウを作成します。
　 bgscrはウィンドウID0と1(できるが禁止)には使用できないので、ID2以降で作成してください。

　 (例)フルスクリーン表示

 gsel 0,-1
 bgscr 2,dispx,dispy,0,0,0
 color
 boxf
 color 255,255
 pos dispx-100/2,dispy-10/2 : mes "終了は「ALT+F4」です"
 stop

TOPへ戻る

03.マウスカーソルにまとわりつく

　 マウスカーソルのディスプレイ上の座標をリアルタイムに監視し、その位置にウィンドゥを配置すれば、
　 あっという間に「マウスカーソルアクセサリー」ができちゃいます。
　 マウスの座標と同じようにウィンドウ位置が変わるので×ボタンや最小化ボタンは押せませんね。
　 またデザイン的にもタイトルバーはないほうがいいと思うのでbgscrを使いましょう。
　 終了は「ALT+F4」キーです。実際使用する場合もこう言った終了の仕方を記述をしましょうね。

　 (例)マウスカーソルアクセサリー

 gsel 0,-1
 bgscr 2,100,20,0
 pos 2, 0 : mes "終了はALT+F4"
 repeat
  ginfo 0 ; ディスプレイ上のカーソル座標
  mx=prmx
  my=prmy
  width ,,mx+32,my
  wait 1 ; 必ずウエイトを掛けること
 loop

TOPへ戻る

04.タイトルバーの高さを求める

　 ウィンドウを操作する時に、タイトルバー(キャプションバー)の高さを知る必要があることもあります。
　 DLLを使って高さを知るのが1番確実ですが、その為だけにDLLを使うと言うのであればスマートではありません。
　 標準命令だけでおおよそは求めることができます。
　 まずginfoのタイプ5でウィンドウの枠線を含めた大きさを求めます。
　 高さは枠線とタイトルバーも含まれるので、高さではなく横幅を使います。
　 この取り出したprmxからwinx(枠線を含まない)を引いてやれば2本分の枠線の太さ(固定ウィンドウ)が求まります。
　 そして初めのginfoのprmyからwinyと2本分の枠線(上と下の2本)を引いてやればタイトルバーの高さとなります。
　 あくまでこれは独自のやり方であって正確なものかは定かではないです・・・。

　 (例)タイトルバーの高さを求める

 screen 0,300,200,0
 ginfo 5
 wx=prmx
 wy=prmy
 waku=wx-winx ; 2本分の枠線の太さ
 bar=prmy-winy-waku
 mes "タイトルバーの高さは"+bar+"です"
 stop

TOPへ戻る

05.マウスが近付くとウィンドウを非表示にする

　 最前面で常駐させるツールを作ると、そのウィンドウの下にある部分は当然見えません。
　 それでいちいちウィンドウを動かさなければならないようでは、かえって邪魔なソフトになりかねません。
　 こう言う場合は、カーソルが作成したウィンドウ上にくるとウィンドウを非表示にして、
　 ウィンドウ位置のある位置から外れると再び表示させるようにするとよいと思います。
　 ここでのポイントは「現在ソフトがスクリーン上のどの位置にあるか」「カーソルはどこか」ですね。
　 それともう1点。カーソルがタイトルバーの上に来ても消えないようにするのもポイントでしょう。
　 そうしないと移動はおろか×ボタンで終了できなくなってしまいます(ALT+F4はいけるけど)。
　 タイトルバーの高さは04の方法で求めたいと思います。

　 (例)マウスカーソルがウィンドウ上(タイトルバー除く)に来た時だけ非表示にする

 screen 0,300,200,0
 ginfo 5 ; 枠線を含めたウィンドゥサイズを求める
 wx=prmx
 wy=prmy
 waku=wx-winx
 bar=prmy-winy-(waku/2) ; 上側の枠線分の高さは必要な為、1本分だけ引く
 repeat
  ginfo ; スクリーン上でのマウスカーソルの座標を求める
  mx=prmx
  my=prmy
  ginfo 2 ; ウィンドウの左上端の座標を求める
  wx=prmx
  wy=prmy
  ginfo 3 ; ウィンドウの右下端の座標を求める
  sx=prmx
  sy=prmy
  if mx>=wx&(mx<=sx)&(my>=(wy+bar))&(my<=sy) : gsel 0,-1 : else : gsel 0,2
  wait 1
 loop

TOPへ戻る

06.タイトルバーのないウィンドゥをドラッグアンドドロップで移動

　 マウス左ボタンが押されて、マウス座標(スクリーン座標)が変更されたらウィンドウもあわせて動かしてやれば、
　 タイトルバーをつかんだときの様に動いてくれます。
　 ウィンドウ上のどの位置でボタンが押されているのか、どこにマウスを動かしたか、
　 この二つがわかればウィンドゥの移動先も決定します。
　 すなわち移動先は(マウスx座標-ウィンドウ上の押されたx座標,マウスy座標-ウィンドウ上の押されたy座標)です。

　 (例)ウィンドウを移動する

 gsel 0,-1
 bgscr 2,200,200,0,100,100
 color : boxf
 pos 10, 10 : mes "終了はALT+F4"
 repeat
  wx=mousex ; この値がウィンドウ上の押されたx座標になる
  wy=mousey ; この値がウィンドウ上の押されたy座標になる
  wait 1
  stick k,256,1
  if k&256 : gosub *move
 loop

*move
 ginfo 0
 mx=prmx ; マウスの移動先x座標
 my=prmy ; マウスの移動先y座標
 width ,,mx-wx,my-wy
 return

TOPへ戻る

07.2重起動を防止する

　 ソフトが複数立ち上がってしまうのを防ぐために二重起動を防止させるやり方として簡単な方法を2つ紹介します。

　 (例1)ソフト起動時にファイルを作成し、終了時に削除する

　 このサンプルのメリット･デメリットを説明します(メリットを青、デメリットを赤で記します)
　 標準命令だけでできますが、何らかの形で「boushi.tmp」が作成されなかった場合、
　 例えばCD-Rなどの書込み禁止場所の場合エラーが出てしまいます。
　 また、「不正な処理」等の強制終了されてしまって「boushi.tmp」が終了時に削除されなければ、
　 次回以降手動で削除しなければ立ち上げることができなくなります。

　 (例2)タイトルバーの文字で起動しているかをチェックする<要hspext.dll>

 #include "hspext.as"
 aplsel "SAMPLE" ;タイトルバーが「SAMPLE」から始まるウィンドゥがあるか調べる
 if stat=0 : end
 title "SAMPLE"
 stop

　 こちらは「作成･削除ができずエラー」というものがなく、スクリプトの方も1に比べるトスマートです。
　 他の部分でhspext.dllが必要な命令を使っているならいいのですが、
　 使っていない場合、二重起動チェックの為にわざわざdllを同梱させねばなりません。
　 HSP2.6以上であれば、20のTIPSを使用することで回避できますけどね…。
　 また、例の場合「SAMPLE」から始まるタイトルバーのソフト(例えばSAMPLE VIEWER)を起動していると
　 1つしか起動していなくても条件式に当てはまってしまい終了してしまいます。
　 つまりチェックする文字列を含むウィンドゥが開いていると起動できないということです。

　 1番よい方法(確実に2重起動させる)は2重起動を防止する命令のあるDLLを使用することです。

TOPへ戻る

08.ウィンドウの外にマウスカーソルが移動できないようにする

　 マウスカーソルの移動範囲を限定さすにはDLLを使用することで簡単に制限できますが
　 標準の機能だけでも実現すること可能ですのでやってみましょう。

　 (例)カーソルの移動を制限する

 repeat
  ginfo 2
  wx=prmx
  wy=prmy
  ginfo 3
  wx.1=prmx
  wy.1=prmy
  ginfo 0
  if prmx<wx : mouse wx,prmy
  if prmy<wy : mouse prmx,wy
  if prmx>wx.1 : mouse wx.1,prmy
  if prmy>wy.1 : mouse prmx,wy.1
  wait 1
 loop

TOPへ戻る

09.画像でオリジナルカーソルにする

　 HSPウィンドウ内で画像を使用してカーソルの代わりに表示させて見ましょう。
　 03のやり方を応用すればディスプレイ上どこでも表示させることができますが、
　 標準命令ではカーソル以外の背景となる部分を透過することはできませんし、
　 カーソル座標にウィンドウを持っていくとHSPウィンドウをクリックすることとなりますので
　 マウスボタンを押しても効きません。
　 だからといってウィンドウをカーソルの上下左右に1ドット以上ずらすと、
　 元のカーソルが表示されてしまいますので実用は難しいでしょう。

　 (例)オリジナルカーソルに変更させる　コチラをダウンロードしてからテストしてください

 buffer 2
 picload "gcur.bmp"
 gsel 0
 gmode 2
 mouse -1
 repeat
  redraw 0
  color 255,255,255
  boxf
  pos mousex,mousey : gcopy 2,0,0,32,32
  redraw
  wait 1
 loop

TOPへ戻る

10.ウィンドウがディスプレイ枠からはみ出さないようにする

　 ウィンドウが見えないところにはみ出すのが嫌という方は下記のサンプルを利用し、
　 ウィンドウ位置チェック+はみ出しを修正してみましょう。

　 (例)はみ出しを禁止する

 #define sizex 200 ; ウィンドウ横幅
 #define sizey 100 ; ウィンドウ高さ
 screen 0,sizex,sizey,0
 title ""
 repeat
  ginfo 2 ; ウィンドウ位置チェック
  if prmx<0 : width sizex,sizey,0,prmy
  if prmx+sizex>dispx : width sizex,sizey,dispx-sizex,prmy
  if prmy<0 : width sizex,sizey,prmx,0
  if prmy+sizey>dispy : width sizex,sizey,prmx,dispy-sizey
  wait 1
 loop

TOPへ戻る

11.ウィンドウ最小化・元に戻す

　 ウィンドウを簡単に最小化・元に戻すことができます。
　 gsel命令を使用して同じようなこともできますが、タスクバーから消えてしまうのが欠点です。
　 下記のサンプルだと実際に最小化したときと同じくタスクバーに残ったままです。　

　 (例)最小化・元に戻す

 a=0
 wait 100
 objsend -28,$112,$F020,a,1 ; 最小化
 wait 100
 objsend -28,$112,$F120,a,1 ; 元に戻す
 stop

TOPへ戻る

12.D&Dでウィンドウサイズ変更

　 もうお気づきかもしれませんがobjsend命令でオブジェクトIDに-28を指定してやれば
　 オブジェクトではなく、自分自身(アプリケーションそのもの)を直接いじれます。
　 それを利用してウィンドウのサイズをD&Dで変更してしまいましょう。
　 ひとつ注意する点としてはじめにウィンドウサイズを最大にしておいてください。
　 width命令でも経験した人もいるかと思いますが初期サイズより大きくすると
　 ウィンドウ内が変に表示されてしまいます。

　 (例)ウィンドウサイズ変更

TOPへ戻る

13.D&Dでウィンドウ移動パート2

　 06でウィンドウ移動をしましたがあまり好きな方法ではないという方のために
　 objsend命令にてタイトルバーのないウィンドウでも移動する方法を書いておきます(^^;

　 (例)D&Dで移動

TOPへ戻る

14.移動してもくっつくウィンドウ

　 どこに移動させても隣接するウィンドウのサンプルです。
　 ginfoで常にウィンドウ位置を取得しています。

　 (例)移動してもくっつく

 dim wx,4
 dim wy,4
 wx=200,0,200
 wy=300,0,200
 screen 0,wx,wy
 screen 2,wx.2,wy.2
 repeat
  ginfo 1
  winid=prmx ; ウィンドウIDを取得
  ginfo 2
  if px.winid!=prmx|(py.winid!=prmy) : tmp=2-winid : gsel tmp : width wx.tmp,wy.tmp,prmx+wx,prmy : gsel winid : px.winid=prmx : py.winid=prmy
  wait 1
 loop

　 実行してみたらわかると思いますが、動かした方のウィンドウの右側にもうひとつのウィンドウがくっつきます。
　 そうではなく「ウィンドウID×は常に左側にしたい」というのであれば11行目を少し変えてください。
　 if文で判定させるため1行に入りきらなさそうだったのでこういう風にしてしまいました・・・。
　 よく見るとウィンドウ同士が少しかぶさっていると思います。
　 これはウィンドウサイズにウィンドウ枠サイズが入っていないためです。
　 ウィンドウ外枠にきっちりと隣接させたい場合は04の方法で枠サイズを求め、移動させる位置+枠サイズ分ずらしましょう。

TOPへ戻る

15.自作製の別のEXEを標準命令だけで操作する

　 自作製の別に起動しているものを操作できないでしょうか?
　 hspext.dll等のDLLを使用すればアプリケーションキャプチャ命令で出来ますけど標準には搭載されていません。
　 しかし工夫次第でメッセージを渡すことが出来ますね。一時ファイルを作りそれが存在する時に処理をさせるとか…。
　 書込み禁止場所だと作成出来ずにエラーが出てしまいます。ここではクリップボードを利用しています。
　 コレはそういったエラーはありませんがクリップボードに元々データがあるとき上書きしてしまいます。
　 クリップボード内が文字列の場合(32000バイトまで)には下記の方法で何とか出来るかと思います
　 まずは「SAMPLESOFT2」をEXE化して「SAMPLESOFT1」を起動してください。

　 (例)連動ソフト「SAMPLESOFT2」

　 (例)元となるソフト「SAMPLESOFT1」

TOPへ戻る

16.標準命令でスクリーン座標系をウィンドウ座標系に変換するモジュール

　 llmod.asにコレと同じことをする命令がありますが標準命令でもできそうでしたので試してみました。
　 p_scrwnd命令と同じく指定する配列変数の要素0にX座標,要素1にY座標を代入しておきます。
　 枠線やタイトルバーの高さ分の増減も必要なため4の方法で太さを求めています。
　 今となってはloadlib.dllがHSP内に組み込まれ、DLL不必要となったので意味のなくなったものですね。

　 (例)スクリーン座標系→ウィンドウ座標系

 repeat
  ginfo 0
  ichi=prmx,prmy
  scrtownd ichi
  title ""+ichi+","+ichi.1
  wait 1
 loop

TOPへ戻る

17.標準命令でウィンドウ座標系をスクリーン座標系に変換するモジュール

　 コレもllmod.asにコレと同じことをする命令がありますが標準命令でもできそうでしたので試してみました。
　 p_wndscr命令と同じく指定する配列変数の要素0にX座標,要素1にY座標を代入しておきます。
　 今となってはloadlib.dllがHSP内に組み込まれ、DLL不必要となったので意味のなくなったものですね。

　 (例)ウィンドウ座標系→スクリーン座標系

 repeat
  ichi=mousex,mousey
  wndtoscr ichi
  title ""+ichi+","+ichi.1
  wait 1
 loop

TOPへ戻る

18.アプリケーションキャプチャーモジュール (要llmod.as)

　 自作ソフトで別ソフトの監視が必要になったために利用したものをモジュール化したものです。
　 llmod.asを使用しているためHSP2.55ではloadlib.dllが必要です。2.6を使用している方にはあまり関係ありませんが。
　 このサンプルでは単に捕獲しているだけです。hspext.dllのように捕獲して何かができるわけではありません。

　 (例)電卓を制御

TOPへ戻る

19.指定タイトルバーを点滅させるモジュール (要llmod.as)

　 27と同じようなもので、指定ウィンドウのタイトルバーを点滅させるものです。
　 p2の指定回数分p3の点滅間隔をあけて点滅します。間隔が短すぎると点滅しているようには見えません。
　 llmod.asを使用しているためHSP2.55ではloadlib.dllが必要です。2.6を使用している方にはあまり関係ありませんが。
　 使用APIも27とほぼ同じです。指定ウィンドウに注意を引かせたい場合等にご利用ください。

　 (例)電卓を起動し点滅させる

TOPへ戻る

20.アクティブなウィンドウのタイトルテキストを取得するモジュール (要llmod.as)

　 HSPウィンドウのタイトルバー文字列を取得するのはもちろんHSP以外のも取得できます。
　 取得してどうするかは使用する人によっていろいろだと思います。ココでは34で利用しています。
　 ですのでココでは取得するモジュール部分だけの説明でサンプルはありません。

　 (例)タイトルバーテキスト取得

TOPへ戻る

21.指定ウィンドウのタイトルテキストを設定するモジュール (要llmod.as)

　 HSPだけでなく別ソフトのウィンドウタイトルも変更できるモジュールです。
　 あらかじめ指定となるウィンドウを動かしてもよいのですが33を利用しアクティブウィンドウを変更したいと思います。
　 ウィンドウタイトルを調べ処理しているソフトが多々ありますので
　 他ウィンドウタイトルテキストを変更するのはあまりよくないことかもしれませんのでお奨めしません^^;
　 アクティブウィンドウタイトル取得は33モジュールを一緒のところに入れてください。(当然#module,#globalは無用
　 注意を一点。タイトルテキストを変更しますが戻す処理を入れてません。戻したい場合は元の文字列を取得しておき、
　 別のウィンドウに変更されたら変更されている文字列を先ほどの文字列に変更してやればよいでしょう。

　 (例)アクティブウィンドウタイトルを変更する

TOPへ戻る

22.指定ウィンドウ操作を無効・有効化するモジュール (要llmod.as)

　 指定ウィンドウを停止し操作不能状態にするモジュールです。
　 タイトルバーテキストのものを指定ウィンドウとする様にしましたのでHSP以外のものでも利用できます。
　 無効化にしたままモジュールを利用したHSP側を終了させても無効化は解除されません。
　 HSPを終了させる時に指定ウィンドウを必ず有効化させるようにしてください。

　 (例)ウィンドウタイトルを指定させ無効・有効化させる

TOPへ戻る

23.指定ウィンドウ操作の初期化モジュール (要llmod.as)

　 このTIPS以前にウィンドウ編でいくつかのHSPとは関係ない別ウィンドウを操作(キャプチャ)するモジュールをやってきました。
　 これから先もドンドン増やしていく予定なのですが、操作用に初期化する命令がなかったことに気づきました。
　 初期化といっても外見上が変化するというわけではなく、今から××を行う前に変数を1つ命令用にして、
　 今後その●●を操作するにはパラメータにその変数、若しくはID番号も一緒に渡すというパターンや、
　 変数を渡すことはないけど操作する前に1つ命令を通すことで操作対象をソレに変更するというものが初期化です。
　 コレだけでは何を言っているのか全く分からない方が大半でしょうから具体的な命令を掲げると、
　 操作対象を変更する為、命令を通すだけのパターンだと objsel, randomize, snd, gsel, aplact, comopen, es_ini等々。
　 変数やID番号を渡すものだと imeinit, ll_libload, noteselという命令。 dim, sdimなんかもコレに当てはまるのです。
　 別にこの説明が理解できないと使えないというものではないです。そういったもの達がそうですよ、という説明です。
　 …で、言いたいのは、コレから先に指定ウィンドウを操作するときは、下記に紹介する命令を使ってくださいってことです。
　 操作対象ウィンドウのタイトルテキストを指定する形にしますので、テキストの直接指定、20等で取得してください。
　 このTIPSを使用し取得に成功すると、statに0が入り、失敗で1が入りますので、
　 指定したタイトルバーのウィンドウが既に起動しているかどうかのチェック用にも使えますね。

　 (例)二重起動防止

TOPへ戻る

24.指定ウィンドウの閉じるボタンを無効化にするモジュール (要llmod.as)

　 22でウィンドウに対して無効化しましたが、今回は閉じる処理に対してだけ無効化にします。
　 閉じる処理というのは、右上に表示される「×」ボタン、タイトルバーアイコンクリックによるメニューの「閉じる」、
　 タスクバー内の右クリック時にポップアップする「閉じる」の3点だけです。
　 この方法だけではメニューバー内に「終了」メニューがあるものや「Alt+F4」や「強制終了」に対しては無効化は効きません。
　 また、無効化にしたままHSP側を終了しても対象ウィンドウの無効化は解除されませんのでご注意ください。

　 (例)閉じるボタンを操作

TOPへ戻る

25.スクロール可能ウィンドウで初めからスクロールさせる

　 ウィンドウサイズより描画(クライアントエリア)サイズの方が大きい場合、スクロールバーが付加されます。
　 この「ウィンドウにスクロールバーがついた状態」では初め、左上(0,0)が見えていて、
　 右や下にスクロールさせられるようになっています。
　 左上側にタイトル等の見出しが来ることが多いので、通常はソレで問題がないのですが、
　 必ずしもそうとは限らず、中には別の所を表示させたいこともあるでしょう。
　 初めだけスクロールさせる、と限定させずにユーザーの意思とは別にスクロールさせたい場合にご利用ください。

　 (例)スクロールさせる

TOPへ戻る