HSPTV!掲示板

いつもお世話になってますTEGのT.Tです。

先日、catsさんにウインドウサイズ変更 or 最大化ができるようにしていただきました。
そこに、Footy2を導入したのですが、サイズ変更をしたときに、
Footy2コントロールのサイズを変更するにはどうしたらいいでしょうか？

どうも、画面制御系の処理は苦手で...(^^;

ソースコード...汚い or 作業途中
http://yahoo.jp/box/7lkVyI

よろしくお願いします...

拝見させていただきました。(Footy2.asが入ってなかったのはcommonに入れてるからかな？)

付属のpdfによると"Footy2Move"を使えばよさそうですよ。
Footy2のことならまず付属pdfを確認してみよう。

Footy2Createの返り値をnFControlIDに入れ、それでFooty2Moveを呼ぶようにしただけですが。
(コードは変更点とその前後、それと微妙に気になった点だけですが・・・)

//	Footy2Delete hwnd		//え？hwndなの？
	Footy2Create hWnd,ginfo_cx,ginfo_cy,... //(幅のため省略)
	nFControlID = stat // 追加
	;メニューバーの高さは環境によって変わります
	mHwnd=objinfo(stat, 2)  // 返り値は多分望みのものではないですよ？
// ＊＊＊＊＊＊
// 〜〜中略〜〜
// ＊＊＊＊＊＊
*Resize
//	color 240, 240, 240 : boxf 0, 0, ginfo(12), 32      //現状不要かと。
//	MoveWindow mHwnd, 0, 32, ginfo(12), ginfo(13)-32, 0 //え？これの位置変えるの？
	Footy2Move nFControlID, 0,32, ginfo(12), ginfo(13)-32	//Footy2コントロールのリサイズ
return

Footy2Createの返り値を保持しておかないとFooty2のコントロールにアクセスするのに困る気が

＊余談
mHwndをなぜかメニューのハンドルだと勘違いしてた。
"起動してすぐ"は新規作成(N)のボタンのハンドルだったorz
;メニューバーの高さは環境によって変わります
というコメントがその上の行にあるから勝手にメニューのハンドルと勘違いorz

ボタンの位置の挙動が不自然だったのは多分このせい。
そして新規作成のコードが末恐ろしい・・・。

すみません。まだよくわかりません(^^;
できれば完全修正したものがほしいです。

/*ご参考*/

 #include "Footy2.as"
 #uselib  "user32"
 #func global SetWindowPos "SetWindowPos" sptr,sptr,sptr,sptr,sptr,sptr,sptr

  buffer 0                                      ;SCREEN0をサイズ可変にする処理を手抜き
  screen 1,ginfo_dispx,ginfo_dispy,,,,640,480
  Footy2Create hwnd,0,0,ginfo_winx,ginfo_winy,0 :Foid = stat

  oncmd gosub *label_1,$5                       ;WM_SIZE
  onexit      *label_2

  stop
*label_1
  Footy2move   Foot,0,0,ginfo_winx,ginfo_winy   ;ツールボックスの配置等必要に応じて調整を行う
  SetWindowPos hwnd,0,0,0,0,0,3                 ;変更の更新
return
*label_2
  Footy2Delete Foid
  end

有難うございました。
解決しました。

いや〜ソースが腐ってる...(^o^;／

＼(^o^)／（ソース）