JCL_pgs_Show

プログレスバー表示用メソッドのひとつ。進捗状況を表すフォームを表示する。

使い方
JCL_pgs_Show(“プログレスバーテスト”)

引数
$1: タイトル行の文字列

//JCL_pgs_Show
//プログレスバーの表示
//$1:メッセージ
//20080605　矢部　新規作成

//プログレスバーを閉じるかどうかのフラグは新プロセスになる前に初期化しておく
//新プロセス内で初期化しようとしても、先に親プロセスが実行されることがあるため
//20211228 wat New proessのサイズをゼロに変更

<>P01_Cancel:=False

C_TEXT($1; $msg)
$msg:=$1

//新しいプロセスに、ダイアログを表示
$ProcessNo:=New process("JCL_pgs_Open"; 0; "JCL_pgs_Open"; $msg)