| ONnojiさんうにんさんオヨヨさんも貴重なアドバイスありがとうございました。 結局マウスはあきらめました。 1行と3行の上下ボタンに20ptの+-で下記の手続きを設定して 一覧表フォームにしました。 Proc フッタ高さ変更(int &Ihedd) var Int{&Ihフッタobj,&Icount},str{&Sfmobjy\ ,&Sフッタ,&S本文,&Sfobj="""t本文ファイル"",""t添付ファイル"",""b高_1"",""b高_2"",""b高_3""\ ,""b高_4"",""bBcc"",""bCc"",""bReplyTo"",""tBCC"",""tCC"",""tReplyTo"",""tSender"""} &Ihフッタobj=#l(&Sfobj)-#L(#S(&Sfobj,",",""))+1 Eval "var 文字列{&Sfml["+#str(&Ihフッタobj)+"]={"+&Sfobj+"}}" object &S本文 = @t本文.高さ object &Sフッタ = @フォームフッタ部.セクションの高さ object &Sfmobjy = @t本文ファイル.始点Y &Icount = #NUM(&Sフッタ)-#NUM(&Sfmobjy) &Sフッタ = #str(#NUM(&Sフッタ)+&Ihedd)+"pt",&S本文 = #str(#NUM(&S本文)+&Ihedd)+"pt" &Sfobj = #str(#NUM(&Sフッタ)-&Icount)+"pt" if (&Ihedd>0) object @フォームフッタ部.セクションの高さ = &Sフッタ for &Icount=1,&Ihフッタobj object &Sfml[&Icount].始点Y = &Sfobj end object @t本文.高さ = &S本文 else object @t本文.高さ = &S本文 for &Icount=1,&Ihフッタobj object &Sfml[&Icount].始点Y = &Sfobj end object @フォームフッタ部.セクションの高さ = &Sフッタ end End お世話になりました。
|