![]() | Programming Guide | WideStudio Index 目次 |
ユーザダイアログ
簡単なユーザダイアログの作成
WSCdialog を利用して簡単なユーザダイアログを作成してみましょう。次の様 な機能をもっているものとします。
あるボタンを押すと、ダイアログが表示されます。 ダイアログには、インプットフィールドとラジオボタングループがあります。 ダイアログ終了時に、正しく入力が行われているかチェックをします。 ダイアログの入力結果をラベルに表示します。 このサンプルは、ws/sampes/Ruby/dialog/newproject.prj で 提供されています
[ユーザダイアログを使ったサンプル]ユーザダイアログのポップアップ制御
ws/sampes/share/dialog/newproject.prj で提供されるサンプルをもとにユー ザダイアログのポップアップ制御をみていきましょう。ダイアログは、入力、 もしくは表示を行うための専用ウィンドウとしてよく用いられます。したがっ て、通常のウィンドウとして作成すると都合の悪い場合があります。たとえば、 複数の場所(イベントプロシージャ)から、同じダイアログを呼び出したいとし ます。
この場合、通常のウィンドウとして実装していると、ダイアログの入力が終っ た場合の通知を受けるのが複雑になります。 しかしながら、ダイアログで実 装している場合では、ダイアログ入力終了が、popup メソッドによる完了復帰 で同期がとられるので、簡単にイベントプロシージャから、ダイアログ入力の 制御が行えます。
図は、表示されたウィンドウが結果を返す場合のウィンドウとダイアログの 違いを示しています。簡単なダイアログの処理手順を順を追って説明しましょう。まず、ダイアログ の作成です。WSCdialog クラスのインスタンスを一つ作成します。ダイアログ 上に各々のオブジェクトを配置します。サンプルでは、下記のオブジェクトを 配位しています。
[ウィンドウとユーザダイアログを使った場合の違い]
WSCvifield* newvifi_003 WSCradioGroup* newradi_006 次に、ダイアログの OK,NO,CANCEL ボタンが押された場合の処理を記述します。 ダイアログに ACITVATE トリガで、イベントプロシージャを張り付けます。こ のイベントプロシージャは、正しくダイアログに入力されたかどうかチェック し、されていなければ、メッセージダイアログでエラーを表示します。
[簡単なユーザダイアログの例]#---------------------------------------------------------- #Function for the event procedure #---------------------------------------------------------- use mpfc; sub dialogep { my ($object) = @_; if (mpfc::WSCbaseDialog_getStatus($object) != $mpfc::WS_DIALOG_OK){ # A mpfc::WSCbase_setVisible($object,$mpfc::False); return; } $str = mpfc::WSCbase_getProperty($newvifi_003,"labelString"); if ( mpfc::WSCvariant_getCharPtr($str) eq "" ){ # B $msg = mpfc::WSGIappMessageDialog(); mpfc::WSCbase_setProperty($msg,"defaultPosition",$mpfc::True); mpfc::WSCbase_setProperty($msg,"width",500); mpfc::WSCbase_setProperty($msg,"labelString", "Please input some string to the input field."); mpfc::WSCbaseDialog_popup($msg); # C return; } $val = mpfc::WSCbase_getProperty($newradi_006,"value"); if ( mpfc::WSCvariant_getLong($val) == 0 ){ # D $msg = mpfc::WSGIappMessageDialog(); mpfc::WSCbase_setProperty($msg,"defaultPosition",$mpfc::True); mpfc::WSCbase_setProperty($msg,"width",500); mpfc::WSCbase_setProperty($msg,"labelString","Please select a item of the radio group."); mpfc::WSCbaseDialog_popup($msg); # E return; } mpfc::WSCbase_setVisible($object,$mpfc::False); # F return } 1;まずイベントプロシージャを張り付けたダイアログのクラスポインタを取得し ます。なぜかというと、ダイアログクラス固有のgetStatus メソッドにアクセ スして、押されたボタンの種類を調べるためです。
A において押されたボタンをチェックします。OK ボタン以外は、ダイアログを そのまま不可視化します。
B で newvifi_003 に入力されているかチェックします。入力されていない場 合は、C でメッセージダイアログを表示して、終了します。D で newradi_006 が選択されているかチェックします。選択されていない場合は、 E でメッセージダイアログを表示して、終了します。
次に F で入力が正しい場合には、ダイアログを不可視化します。このとき、 このダイアログを不可視化することにより、このダイアログを呼び出している popup メソッドが復帰します。したがって、不可視化しない場合、ダイアログ が終了しません。
次はダイアログを呼び出しているイベントプロシージャの例です。[dialog!] と表示されたボタンを押すと、ダイアログが表示され、入力した結 果が、3つのラベルに表示されます。1つ目のラベルには、ダイアログの OK、 NO、CANCEL ボタンがおされた結果、2つ目のラベルには、newvifi_003 の入 力された結果、3つ目のラベルには、newradi_006 の選択された結果を表示し ます。
[ユーザダイアログを呼び出す画面の例]#---------------------------------------------------------- #Function for the event procedure #---------------------------------------------------------- use mpfc; sub btnep { my ($object) = @_; $val = mpfc::WSCbaseDialog_popup($newdial_001); if ($val == $mpfc::WS_DIALOG_OK){ mpfc::WSCbase_setProperty($newvlab_007,"labelString","DIALOG OK!"); }elsif ($val == $mpfc::WS_DIALOG_NO){ mpfc::WSCbase_setProperty($newvlab_007,"labelString","DIALOG NO!"); }elsif ($val == $mpfc::WS_DIALOG_CANCEL){ mpfc::WSCbase_setProperty($newvlab_007,"labelString","DIALOG CANCEL!"); } $tmp = mpfc::WSCbase_getProperty($newvifi_003,"labelString"); $tmp2 = sprintf("INPUT: %s",mpfc::WSCvariant_getCharPtr($tmp)); mpfc::WSCbase_setProperty($newvlab_010,"labelString",$tmp2); $val = mpfc::WSCbase_getProperty($newradi_006,"value"); $tmp2 = sprintf("SELECT: %s",mpfc::WSCvariant_getCharPtr($val)); mpfc::WSCbase_setProperty($newvlab_011,"labelString",$tmp2); return } 1;
Copyright(C) T. Hirabayashi, 2000-2002 | Last modified: Oct 27, 2002 |