| 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
お世話になりました。
|
