---- Support BBS ----
[ 前の記事 | 次の記事 | 一覧 ]

[00058] 1690 byte
投稿日時: 1999年10月28日(木) 10時31分28秒
ホスト名: sunrise.dnp.co.jp(210.251.192.65)

2段組のダイアログをsavedialog,loaddialogすると横幅が伸びてゆく。

投稿者: ENCODINGSHIFTJIS
e-mail: (入力されていません)
   URL: (入力されていません)

知らないのは私だけ?newdialogで20の幅にしておまじない行を消すと、そうなる。

ddeinitiate "DengakuServer","AllService";
//
menu "[ESC]:newdialog [ENT]:loaddialog";
if(!result){
//  ダイアログテンプレートの初期化&ダイアログタイトルetc.の設定
ddepoke "newdialog", ",DGテストタイトル";// ここでは省略可能
ddepoke "newpage", "20";// loaddialog をするときは おまじない??
//  各種コントロールの配置
ddepoke "newcontrol", "text,,ダイアログのテスト";//  ラベル
ddepoke "newcolumn", "30";        //  新しいカラムの開始
ddepoke "newcontrol", "edit,edt9,初期化文字列";//  エディットボックス
ddepoke "newpage", "20";
ddepoke "newcontrol", "text,,変換後のテスト";
ddepoke "newcolumn", "40";        //  新しいカラムの開始
ddepoke "newcontrol", "edit,edt8,pppppp";//  エディットボックス
ddepoke "newpage", "20";
ddepoke "newcontrol", "okcancel";
 }
else{                             // -------------------
ddeexecute "loaddialog '"+hidemarudir+"\\DAT\\confdlg.dat' 'Configuration Dialog for HogeMacro Ver.1.00'";
if(!result) endmacro;
 }
//  アドバイスループの開始//  ダイアログの表示
ddestartadvice "dlgresult", $item;
ddeexecute     "dialog lastactiveparent";
//  ループの本体
while(1){
          $item =  "";
 while( $item == "" ) ddewaitadvice $item, 999;    //  データが届くのを待つ
      if( $item == "1" || $item == "0" ) break;  //  OK, キャンセルボタン
 }
ddeexecute "enddialog";//  ダイアログを閉じる
ddestopadvice "dlgresult";//  アドバイスループの停止
//
ddeexecute "savedialog '"+hidemarudir+"\\dat\\confdlg.dat' 'Configuration Dialog for HogeMacro Ver.1.00'";//FILE保存
//  サーバの切断
ddeterminate;

[TAB] が書き込めないので文字数食う、(インデント)
キャンセルも半角だった
<END/>


[ 前の記事 | 次の記事 | 一覧 ]


>58< 2段組のダイアログをsavedialog,loaddialogすると横幅が伸びてゆく。 (ENCODINGSHIFTJIS) 10/28 10:31
<60> Re: 2段組のダイアログをsavedialog,loaddialogすると横幅が伸びてゆく。 (杉浦 まさき) 10/29 00:25
 └<64> Re: 2段組のダイアログをsavedialog,loaddialogすると横幅が伸びてゆく。 (杉浦 まさき) 10/30 01:06

---- Support BBS ----