Edit History:Diff

Changes of モーダルダイアログを実装 between Epoch and 2008/02/01 22:22:01 JST

+ added lines
- deleted lines
- DialogBoxIndirectParamを使ってモーダルダイアログを実装してみる。
- 
- [[$$toc]]
- - →[[HSP3・サンプルスクリプト]]に戻る
- 
- ----
- 
- HSP 3.1β2で動作確認~%
- 
- ダイアログを実装するには、ダイアログテンプレートというリソースが必要なんですね。~%
- 実は、HSPからでもC言語で使うRESファイル(リソースコンパイラでコンパイルした物)は、使えるのです。~%
- (多少加工しますが。)~%
- 
- なるべく簡単に、できるだけ応用が利くようにするために、色々用意するものがあります。~%
- 
- まず、コールバックを使うので　ちょくとさんの'''hscallbk.dll'''を用意します。~%
- 
- hscallbk10.zip 5.4KB ~%
- http://yokohama.cool.ne.jp/chokuto/download/ ~%
- 
- 解凍後、hscallbkの説明書にしたがって各ファイルをそれぞれコピーします。
- 
- 次に、リソースコンパイラを何とか入手しましょう。(*note-1)~%
- '''RC.EXE''' と '''RCDLL.DLL'''~%
- 以下のもの(無償)をインストールしてあれば、ついています。~%
- Microsoft Platform SDK~%
- Visual C++ 2005 Express Edition~%
- MASM32(ダウンロードサイズが小さいくおすすめ。ファイルを取り出した後ばっさり削除しても問題なし。)~%
- 
- また、'''RC.EXE''' と '''RCDLL.DLL'''だけ入手したい場合グーグルで、検索するといくらでも入手できます。~%
- 
- では、早速やって見ましょう。
- まず、適当にフォルダをひとつ作ります。仮に'''test'''と名前を付けます。~%
- そこへ先ほど入手した'''RC.EXE''' と '''RCDLL.DLL'''をコピーしておきます。
- 
- 次に、C言語でおなじみのリソースを書いてみましょう。
- ダイアログだけを作りたいので下記のようにしてみます。(*note-2)
- {{{
- ////////////////////////////////////////
- //使う定数を書いておく。
- #define WS_POPUP        0x80000000// $80000000ではエラーになる
- #define DS_MODALFRAME   0x00000080//  
- #define WS_CAPTION      0x00C00000
- #define WS_SYSMENU      0x00080000
- #define IDOK            0x00000001
- #define WS_GROUP        0x00020000
- #define IDCANCEL        0x00000002
- #define ES_AUTOHSCROLL  0x00000080
- 
- #define IDD_ABOUTBOX    100 //
- #define IDI_HSP         128 //HSPアイコンのID
- #define IDC_MYICON        2 //
- #define IDC_STATIC       -1 //
- 
- ////////////////////////////////////////
- //
- // よくあるダイアログのテンプレート
- //
- IDD_ABOUTBOX DIALOG   22, 17, 230, 75
- STYLE DS_MODALFRAME | WS_CAPTION | WS_SYSMENU
- CAPTION "バージョン情報"
- FONT 9, "MS UI Gothic"
- BEGIN
-     ICON            IDI_HSP,IDC_MYICON,14,9,16,16
-     LTEXT           "test Version 1.0",IDC_STATIC,49,10,119,8
-     LTEXT           "Copyright (C) 2006",IDC_STATIC,49,20,119,8
-     DEFPUSHBUTTON   "OK",IDOK,195,6,30,11,WS_GROUP
- END
- 
- }}}
- これをコピーし'''test.rc'''として、先ほどのフォルダへ保存してください。
- 
- 次に、リソースコンパイラで '''test.rc''' をコンパイルしつつ、HSP用に加工します。~%
- 下記のソースをコピーし、同じフォルダへ保存して実行してください。
- {{{
- 
- mes "開始"
- 
- exec "rc.exe test.rc",2
- ;exec "cmd.exe /k rc.exe test.rc"
- wait 50
- exist "test.RES" : size=strsize
- 
- if size=-1{dialog "失敗":end}
- 
- wait 10
- 
- sdim digtmpl,size-64
- bload "test.RES",digtmpl,size-64,64
- 
- wait 10
- 
- bsave "_digtmpl.dat",digtmpl,size-64
- 
- wait 10
- 
- mes "終了"
- }}}
- '''_digtmpl.dat''' というファイルが出来ていれば、成功です。~%
- '''_digtmpl.dat'''は'''packfile'''ファイルに入れられるのでいいかなぁ〜と。ちょくとさん方式でコード化してもいいですね。
- 
- 後は、これを呼び出すだけです。~%
- {{{
- #epack "_digtmpl.dat"
- 
- #define WM_INITDIALOG	 $00000110
- #define WM_CLOSE	 $00000010
- #define WM_COMMAND	 $00000111
- 
- onexit gosub *exit
- 
- #include "hscallbk.as"
- 
- #uselib ""
- #func DlgProc "" int,int,int,int
- setcallbk pDlgProc,DlgProc,*OnDlgProc
- 
- #uselib "user32.dll"
- #func DialogBoxIndirectParamA "DialogBoxIndirectParamA" int,var,int,var,int
- #func EndDialog "EndDialog" int,int
- 
- //--------------------------------
- 
- exist "_digtmpl.dat" : size=strsize
- 
- if size=-1{dialog "失敗":end}
- 
- sdim digtmpl,size
- bload "_digtmpl.dat",digtmpl,size
- 
- screen 0,640,480 : Hid=hwnd
- 
- pos 0,0 : button gosub "test", *go
- 
- stop
- 
- *go
- //テスト用にオーナーウィンドウを指定してません。
- 	DialogBoxIndirectParamA hinstance,digtmpl,0,pDlgProc,0
- //本当は、↓がメイン
- ;	DialogBoxIndirectParamA hinstance,digtmpl,hwnd,pDlgProc,0
- 
- return
- 
- *OnDlgProc ; 引数 hwnd,dwMsg,wPram,lPram
- 	dhwnd=callbkarg(0)
- 	dwMsg=callbkarg(1)
- 	wPram=callbkarg(2)
- 
- 	if dwMsg=WM_INITDIALOG{ return 1 }
- 
- 	if dwMsg=WM_COMMAND{
- 
- 		if (wPram&$ffff)=1{
- 			EndDialog dhwnd,1
- 		return 1
- 		}
- 	}
- 	
- 	if dwMsg=WM_CLOSE{
- 		EndDialog dhwnd,1
- 	return 1
- 	}
- 
- return 0
- 
- *exit
- end
- }}}
- ダイアログが表示されたら成功です。~%
- リソースファイルをいろんなダイアログテンプレートに書き換えて
- コンパイルするだけで呼び出せるので、~%
- ほかにも応用出来るかも。(試してませんが(笑))
- 
- あと、HSPの変数に直接書くやり方もありますが、非常に面倒なので割合させていただきます。
- 
- 2006/04/24 07:48:59 JST~%
- 早く実装されるといいですね。~%
- お約束の埋め込み。
- 
- {{{
- 
- onexit gosub *exit
- 
- #uselib "user32.dll"
- #func DialogBoxIndirectParamA "DialogBoxIndirectParamA" int,var,int,var,int
- #func EndDialog "EndDialog" int,int
- 
- ;xdimが必要かも。
- dim fncode,14
- fncode.0 = $8bec8b55, $102d0c45, $74000001, $0e754823, $107d8366, $660b7401
- fncode.6 = $02107d83, $c0330474, $b70f11eb, $ff501045, $15ff0875, $00000000
- fncode.12= $5d40c033, $000010c2
- 
- ;po=varptr(EndDialog) : fncode.11=varptr(po)
- po=varptr(EndDialog) : lpoke fncode,44,varptr(po)
- 
- ;テンプレートのリソースデータ
- dim dcode,63
- dcode.0=$00c800c0,$00000000,$00160004,$00e60011,$0000004b,$30d00000
- dcode.6=$30b830fc,$30f330e7,$583160c5,$00090000,$0053004d,$00550020
- dcode.12=$00200049,$006f0047,$00680074,$00630069,$00000000,$50000003
- dcode.18=$00000000,$0009000e,$00100010,$ffff0002,$ffff0082,$00000080
- dcode.24=$50020000,$00000000,$000a0031,$00080077,$ffffffff,$00740082
- dcode.30=$00730065,$00200074,$00650056,$00730072,$006f0069,$0020006e
- dcode.36=$002e0031,$00000030,$00000000,$50020000,$00000000,$00140031
- dcode.42=$00080077,$ffffffff,$00430082,$0070006f,$00720079,$00670069
- dcode.48=$00740068,$00280020,$00290043,$00320020,$00300030,$00000036
- dcode.54=$00000000,$50030001,$00000000,$000600c3,$000b001e,$ffff0001
- dcode.60=$004f0080,$0000004b,$00000000
- 
- screen 0,640,480
- 
- pos 0,0 : button gosub "test", *go
- 
- stop
- 
- *go
- 	gsel 0
- 	DialogBoxIndirectParamA hinstance,dcode,hwnd,fncode,0
- return
- *exit
- end
- 
- }}}
- そのまんまのコード
- {{{
- 
- #include <windows.h>
- 
- //BOOL (WINAPI *pfnEndDialog)(HWND,INT_PTR);
- 
- INT_PTR CALLBACK About(HWND hDlg, UINT message, WPARAM wParam, LPARAM lParam)
- {
- 	UNREFERENCED_PARAMETER(lParam);
- 	switch (message)
- 	{
- 	case WM_INITDIALOG:
- 		return (INT_PTR)TRUE;
- 
- 	case WM_COMMAND:
- 		if (LOWORD(wParam) == IDOK || LOWORD(wParam) == IDCANCEL)
- 		{
- 			EndDialog(hDlg, LOWORD(wParam));
- 			//pfnEndDialog(hDlg, LOWORD(wParam));
- 			return (INT_PTR)TRUE;
- 		}
- 		break;
- 	}
- 	return (INT_PTR)FALSE;
- }
- 
- }}}