桐質問掲示板 [One Topic All View / Re[14]: 明細とフッタの間をマウスで上下したい / Page: 0]

(現在過去ログ28 を表示中)

[ 親記事をトピックトップへ ]

このトピックに書きこむ

過去ログには書き込み不可

■4296 / inTopicNo.1)

　Re[14]: 明細とフッタの間をマウスで上下したい

▼■

□投稿者/ 今村　誠 -(2009/01/23(Fri) 23:20:49)

2009/01/24(Sat) 10:45:38 編集(投稿者)

homepiyoさんこんにちはツリーが分かれると後で検索しにくいと思い
こちらに完成サンプルもアップしておきます。
フッタテキストのボタン訂正は入力後イベントを個別に設定しEscキー
にも対応しました。
　マウスイベントの説明は大変分かり易かったですよ。
動作原理が解ると後は応用なので横方向への対応やウィンドの大小
への対応など欲が出ると思いますが、今はメールソフトに変わる
桐メール受信送信までの考えはないのでここで打ち止めにしたいと
思います。
貴重な時間を割いていただきありがとうございました。

送信.tblのディレクトリーを変更したので「mail詳細.rpt」の
強制改行がうまく表示されていません。
レポートを再定義で開き以下の手順で手直ししておいて下さい。
１）書式(S)→オブジェクトの属性の押しピン(左上)を何度か
　　押して立てておきます。
２）書式(S)→オブジェクトのリストを表示します。
３）オブジェクトのリストの「単票」が青くなるように左
　　クリックします。
４）オブジェクトの属性ダイアログの対象表タブをクリック
５）表ファイル名(T)の「\送信\送信.tbl」を「送信.tbl」に
　　変更します。
６）閉じる「×」を押し保存します。

解決済み!

1232720449.lzh/68KB

引用返信 [メール受信/OFF] 削除キー/

■4287 / inTopicNo.2)

　Re[13]: 明細とフッタの間をマウスで上下したい

▲▼■

□投稿者/ homepiyo -(2009/01/22(Thu) 16:39:27)

2009/01/23(Fri) 20:50:04 編集(投稿者)
2009/01/23(Fri) 20:48:02 編集(投稿者)
2009/01/23(Fri) 05:41:47 編集(投稿者)
2009/01/22(Thu) 23:07:58 編集(投稿者)
2009/01/22(Thu) 22:57:04 編集(投稿者)
2009/01/22(Thu) 20:12:41 編集(投稿者)
2009/01/22(Thu) 19:55:37 編集(投稿者)
2009/01/22(Thu) 19:10:00 編集(投稿者)

■No4286に返信(homepiyoさんの記事)
ドラッグで明細の表示行数がかわるようにできました。ただ、コンピュータへの負荷が大きいように思います。←表示が変更なければ描画更新しないように訂正しました。あと、最大化から復元したとき表示がウィンドウ内におさまらない場合があったので訂正しました。

手続き定義開始　b境界::ﾏｳｽ左ﾀﾞｳﾝ()
　&境界ボタン="左ダウン"
手続き定義終了

手続き定義開始　ﾌｫｰﾑ::ﾏｳｽ移動()
　if (&境界ボタン="左ダウン")
*　　if (&マウス移動回数>10)　　　　　　　　　　　←削除
*　　　&マウス移動回数=0　　　　　　　　　　　　　←削除
　　　手続き実行　表示行数切り替え(&マウス位置[2])
*　　end　　　　　　　　　　　　　　　　　　　　　←削除
*　　&マウス移動回数=&マウス移動回数+1　　　　　　←削除
　end
手続き定義終了

手続き定義開始　ﾌｫｰﾑ::ﾏｳｽ左ｱｯﾌﾟ()
　if (&境界ボタン="左ダウン")
　　&境界ボタン=""
　end
手続き定義終了

proc 表示行数切り替え(数値 &マウスY位置)
　/*　トィップス(twips)=ポイント(pt)×20　*/
　var　数値{&ウィンドウ作業領域高さ,&部合計高さ,&ヘッダ部高さ,&明細部高さ,&フッタ部高さ}
　var　数値{&表示行数,&本文高さ,&本文始点Y,&本文ファイル高さ}
　var　数値{&明細部高さ初期値,&フッタ部高さ初期値}　←追加
　var　長整数{ &終了状態, &size[2] }
　var　Int{&Iwinp,&mode}

　/* ウィンドウリスト取得でエラーの回避･･･KU1068:対象表が更新中またはｸﾞﾙｰﾌﾟ操作中のためこのｺﾏﾝﾄﾞは使用できません */
　メソッド呼び出し　@ﾌｫｰﾑ.更新モード取得( &mode )
　条件　( &mode<>0 ) 手続き終了

　/* 部合計の高さ(ヘッダ部の高さ+明細部の高さ+フッタ部の高さ) */
　ウィンドウリスト取得　&Iwinp
　&終了状態 = #ウィンドウサイズ( &Iwinp, "size" , 2 )
　&ウィンドウ作業領域高さ=#INT(#DotToPoint(&size[2]))　/* ポイント(pt) */
　&部合計高さ=(&ウィンドウ作業領域高さ-4)×20　　　　　/* この行以降はトィップス(twips) */
*???　&ウィンドウ作業領域高さ=&部合計高さ+4pt(80twipt)　???なぜか4pt(80twipt)ほど違う。
*???　ヘルプの#ウィンドウサイズの作業領域を参照。

　/* ヘッダ部の高さ */
　オブジェクト操作 &ヘッダ部高さ=@ﾌｫｰﾑﾍｯﾀﾞ部.ｾｸｼｮﾝの高さ

　/* 明細部の高さ */
　if (&マウスY位置<0)　　/* ウィンドウの最大化･復元の場合 */
　　オブジェクト操作 &フッタ部高さ=@ﾌｫｰﾑﾌｯﾀ部.ｾｸｼｮﾝの高さ
　　&明細部高さ=&部合計高さ-&ヘッダ部高さ-&フッタ部高さ
　else　　　　　　　　　/* 境界ボタン移動の場合 */
　　&明細部高さ=&マウスY位置-&ヘッダ部高さ
　end
　&表示行数=#INT(&明細部高さ÷(21×20))　/* １明細の高さ(21pt)=21×20twipt */
　条件　( &表示行数<1 )　&表示行数=1　　　　←追加
　&明細部高さ=&表示行数×(21×20)　/* 明細行数分の高さにする(フッタ部との間に隙間をつくらない) */
　オブジェクト操作 &明細部高さ初期値=@ﾌｫｰﾑ明細部.ｾｸｼｮﾝの高さ

　/* フッタ部の高さ */
　&フッタ部高さ=&部合計高さ-&ヘッダ部高さ-&明細部高さ

　/* 本文の高さ */
　オブジェクト操作 &本文始点Y=@t本文.始点Y
　オブジェクト操作 &本文ファイル高さ=@t本文ファイル.高さ
　&本文高さ=&フッタ部高さ-&本文始点Y-&本文ファイル高さ

　/* 表示 */
　条件　( &本文高さ<400 ) 手続き終了
*　条件　( &表示行数<1 ) 手続き終了　　　　　　　　　　　　　　←削除
　オブジェクト操作 &明細部高さ初期値=@ﾌｫｰﾑ明細部.ｾｸｼｮﾝの高さ　　←追加
　オブジェクト操作 &フッタ部高さ初期値=@ﾌｫｰﾑﾌｯﾀ部.ｾｸｼｮﾝの高さ　　←追加
　if (&明細部高さ=&明細部高さ初期値 .and &フッタ部高さ=&フッタ部高さ初期値)　　←追加
　　手続き終了　　　　　　　　　　　　　　　　　　　　　　　　　←追加
　end　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　←追加
　if (&明細部高さ>&明細部高さ初期値)　/* 明細部が高くなる場合(ちらつき防止) */
　　オブジェクト操作 @ﾌｫｰﾑﾌｯﾀ部.ｾｸｼｮﾝの高さ=&フッタ部高さ
　　オブジェクト操作 @t本文.高さ=&本文高さ
　　オブジェクト操作 @t本文ファイル.始点Y=&本文高さ+&本文始点Y
　　オブジェクト操作 @t添付ファイル.始点Y=&本文高さ+&本文始点Y
　　オブジェクト操作 @ﾌｫｰﾑ明細部.表示行数=&表示行数
　　オブジェクト操作 @ﾌｫｰﾑ明細部.ｾｸｼｮﾝの高さ=&明細部高さ
　else　　　　　　　　　　　　　　　　/* 明細部が低くなる場合(ちらつき防止) */
　　オブジェクト操作 @ﾌｫｰﾑ明細部.ｾｸｼｮﾝの高さ=&明細部高さ
　　オブジェクト操作 @ﾌｫｰﾑ明細部.表示行数=&表示行数
　　オブジェクト操作 @t本文.高さ=&本文高さ
　　オブジェクト操作 @t本文ファイル.始点Y=&本文高さ+&本文始点Y
　　オブジェクト操作 @t添付ファイル.始点Y=&本文高さ+&本文始点Y
　　オブジェクト操作 @ﾌｫｰﾑﾌｯﾀ部.ｾｸｼｮﾝの高さ=&フッタ部高さ
　end

　/* 描画更新 */
　メソッド呼び出し　@ﾌｫｰﾑ.再描画(1)
　メソッド呼び出し　@ﾌｫｰﾑ.描画更新()
End

Accountsample10.lzh/86KB

引用返信 [メール受信/OFF] 削除キー/

■4286 / inTopicNo.3)

　Re[12]: 明細とフッタの間をマウスで上下したい

▲▼■

□投稿者/ homepiyo -(2009/01/22(Thu) 09:15:16)

2009/01/23(Fri) 06:08:06 編集(投稿者)
2009/01/22(Thu) 14:44:32 編集(投稿者)

ウィンドウの形式でオーバーラップからチャイルドに変更すると明細とフッタの間に隙間ができていたのを修正しました。#ウィンドウサイズで作業領域の高さを求めることにしました。ただ、ウィンドウ作業領域の高さと部合計の高さ(ヘッダ部の高さ+明細部の高さ+フッタ部の高さ)なぜか4pt(80twipt)ほど違います。ヘルプの#ウインドウサイズの説明に作業領域のことが書かれてあり多少小さくする必要があるのかもしれません??

ONnojiさんよるマウスドラッグでフッタの高さを変更やトィップス(twips)に統一などで仕組みが理解できるようになりました。フッタの高さを変更は今後自作プログラムに応用できそうです。

今村さん。最初のサンプルはかなり分かりづらいのではないかと思います。やっと自分なりに整理できましたのでサンプルを添付します。何回も添付してすいません。これで最終にしようと思います。

引用返信 [メール受信/OFF] 削除キー/

■4285 / inTopicNo.4)

　Re[11]: 明細とフッタの間をマウスで上下したい

▲▼■

□投稿者/ homepiyo -(2009/01/21(Wed) 20:37:39)

2009/01/21(Wed) 20:40:40 編集(投稿者)

■No4284に返信(うにんさんの記事)
>>手続き定義開始　ﾌｫｰﾑ::ﾏｳｽ移動()
>>　&マウスyb=&マウス位置[2]
>
> ﾏｳｽ左ｱｯﾌﾟ()でもマウス位置を拾えるので、移動中に何もしないなら
> そっちだけでいいかな？
>
うにんさん。ありがとうございます。

手続き定義開始　b境界::ﾏｳｽ左ﾀﾞｳﾝ()
　&境界ボタン="左ダウン"
手続き定義終了

手続き定義開始　ﾌｫｰﾑ::ﾏｳｽ左ｱｯﾌﾟ()
　if (&境界ボタン="左ダウン")
　　&境界ボタン=""
　　手続き実行　表示行数切り替え(&マウス位置[2])
　end
手続き定義終了

結局、これだけでよかったのですね。

ONnojiさん。トィップス(twips)を使ってみました。すっきりしたと思います。

引用返信 [メール受信/OFF] 削除キー/

■4284 / inTopicNo.5)

　Re[10]: 明細とフッタの間をマウスで上下したい

▲▼■

□投稿者/ うにん -(2009/01/21(Wed) 20:19:07)

> 手続き定義開始　ﾌｫｰﾑ::ﾏｳｽ移動()
> 　&マウスyb=&マウス位置[2]

ﾏｳｽ左ｱｯﾌﾟ()でもマウス位置を拾えるので、移動中に何もしないなら
そっちだけでいいかな？

引用返信 [メール受信/OFF] 削除キー/

■4283 / inTopicNo.6)

　Re[11]: 明細とフッタの間をマウスで上下したい

▲▼■

□投稿者/ homepiyo -(2009/01/21(Wed) 17:24:19)

2009/01/23(Fri) 00:39:01 編集(投稿者)

■No4282に返信(ONnojiさんの記事)
ONnojiさん。たびたびありがとうございます。

> オブジェクトの［幅］／［高さ］や［始点X］／［始点Y］を、数値型の変数に代入すると、twipsの値が得られますよ。
> オブジェクトの［幅］／［高さ］や［始点X］／［始点Y］は、twipsの値（数値）を指定して変更できます。
>
なるほど。

> 今回の話題は、典型的なドラッグ＆ドロップですね。
>
> この場合、利用者に親切に作るのなら、ドラッグ中に［Esc］キーでキャンセルできるといいですね。
>
ドラッグ中に［Esc］キーが効くのですね。知りませんでした。

手続き定義開始　ﾌｫｰﾑ::ｷｰﾀﾞｳﾝ()
　if (&仮想キーコード=27 .and &フラグ=1) /* マウスを押しながら[Esc] */
　　&境界ボタン=""
　end
手続き定義終了

を入れてみました。

引用返信 [メール受信/OFF] 削除キー/

■4282 / inTopicNo.7)

　Re[10]: 明細とフッタの間をマウスで上下したい

▲▼■

□投稿者/ ONnoji -(2009/01/21(Wed) 16:23:46)

> 試行錯誤しているとき、なぜかptの20倍の値が時々出てきてなんのことかよく分からなかったのです。トィップス(twips)というのですね。もしかしたら、"??? 20にするとなぜかフォームの高さにずれが生じる。"のようなことが起こるので、表示行数切り替えの手続きはトィップス(twips)を使ったほうがよいかもしれません。まだトィップス(twips)に慣れていないので今のままにしておきます。
> このマウス操作でﾏｳｽ左ｱｯﾌﾟしたときのy位置の&マウスybを取得するとき変数は&境界ボタンだけでよいみたいなので修正しました。

オブジェクトの［幅］／［高さ］や［始点X］／［始点Y］を、数値型の変数に代入すると、twipsの値が得られますよ。
オブジェクトの［幅］／［高さ］や［始点X］／［始点Y］は、twipsの値（数値）を指定して変更できます。

今回の話題は、典型的なドラッグ＆ドロップですね。

この場合、利用者に親切に作るのなら、ドラッグ中に［Esc］キーでキャンセルできるといいですね。

よろしければ、以下をご参考にしてください。
　↓
コラム５項目の表示幅を自由に変更する　ez_width＜項目幅を変更する仕組み＞
http://www.geocities.jp/siliconvalley_bay_7565/column05.htm#overview

＜蛇足＞

横にドラッグするのも、縦にドラッグするのも、考え方は同じです。

引用返信 [メール受信/OFF] 削除キー/

■4281 / inTopicNo.8)

　Re[9]: 明細とフッタの間をマウスで上下したい

▲▼■

□投稿者/ homepiyo -(2009/01/21(Wed) 15:58:34)

2009/01/23(Fri) 00:37:46 編集(投稿者)
2009/01/21(Wed) 16:11:12 編集(投稿者)
2009/01/21(Wed) 16:02:46 編集(投稿者)

■No4278に返信(ONnojiさんの記事)
> 老婆心ながら…
>
> オブジェクトの［高さ］／［幅］を操作するときは、ポイント(pt)よりトィップス(twips)を使ったほうがよいと思いますよ。
>

ONnojiさん。ありがとうございます。

試行錯誤しているとき、なぜかptの20倍の値が時々出てきてなんのことかよく分からなかったのです。トィップス(twips)というのですね。もしかしたら、"??? 20にするとなぜかフォームの高さにずれが生じる。"のようなことが起こるので、表示行数切り替えの手続きはトィップス(twips)を使ったほうがよいかもしれません。まだトィップス(twips)に慣れていないので今のままにしておきます。

このマウス操作でﾏｳｽ左ｱｯﾌﾟしたときのy位置の&マウスybを取得するとき変数は&境界ボタンだけでよいみたいなので修正しました。

手続き定義開始　b境界::ﾏｳｽ左ﾀﾞｳﾝ()
　&境界ボタン="左ダウン"
手続き定義終了

手続き定義開始　ﾌｫｰﾑ::ﾏｳｽ移動()
　&マウスyb=&マウス位置[2]
手続き定義終了

手続き定義開始　ﾌｫｰﾑ::ﾏｳｽ左ｱｯﾌﾟ()
　if (&境界ボタン="左ダウン")
　　&境界ボタン=""
　　手続き実行　表示行数切り替え(&マウスyb)
　end
手続き定義終了

引用返信 [メール受信/OFF] 削除キー/

■4278 / inTopicNo.9)

　Re[8]: 明細とフッタの間をマウスで上下したい

▲▼■

□投稿者/ ONnoji -(2009/01/21(Wed) 10:54:10)

老婆心ながら…

オブジェクトの［高さ］／［幅］を操作するときは、ポイント(pt)よりトィップス(twips)を使ったほうがよいと思いますよ。

この話題は既出なので、以下の過去ログをご参考にしてください。

過去ログ No77
--------------------------------------------------------------------------------
http://www2u.biglobe.ne.jp/~s_tanaka/cgi-bin/bbs/bbs.cgi?function=logview_html&no=77

引用返信 [メール受信/OFF] 削除キー/

■4276 / inTopicNo.10)

　Re[7]: 明細とフッタの間をマウスで上下したい

▲▼■

□投稿者/ homepiyo -(2009/01/20(Tue) 23:46:53)

2009/01/21(Wed) 00:07:35 編集(投稿者)
2009/01/20(Tue) 23:50:47 編集(投稿者)

■No4275に返信(今村　誠さんの記事)
分かりづらいようなので少し説明させてください。

手続き定義開始　b境界::ﾏｳｽ左ﾀﾞｳﾝ()
　&境界ボタン="左ダウン"
手続き定義終了

手続き定義開始　ﾌｫｰﾑ::ﾏｳｽ移動()
　if (&境界ボタン="左ダウン")
　　&境界ボタン=""
　　&境界移動="する"
　end
　if (&境界移動="する")
　　&マウスyb=&マウス位置[2]
　end
手続き定義終了

手続き定義開始　ﾌｫｰﾑ::ﾏｳｽ左ｱｯﾌﾟ()
　if (&境界移動="する")
　　&境界移動="しない"
　　手続き実行　表示行数切り替え("マウス")
　end
手続き定義終了

このマウス操作でﾏｳｽ左ｱｯﾌﾟしたときのy位置の&マウスybを取得します。

proc 表示行数切り替え(Str &マウス)では

ウィンドウ位置　取得でウインドウの高さを求めて&設定部高さを計算。
&設定部高さ=&ウインドウ高さ-66
66ptはたぶんヘッダ部、明細部、フッタ部以外の高さ。

&マウスybから&明細部高さと&フッタ部高さを計算。
&明細部高さ=#INT(&マウスyb÷20)-&ヘッダ部高さ
&表示行数=#INT(&明細部高さ÷20)
&明細部高さ=&表示行数×21
↑??? 20にするとなぜかフォームの高さにずれが生じる。
&フッタ部高さ=&設定部高さ-&ヘッダ部高さ-&明細部高さ
など

オブジェクト操作でそれぞれの高さ、表示行数、始点yを設定しています。

66ptとか21ptとか自分でもまだよく分かっていない部分があり
計算式については間違っているかもしれません。
&表示行数=#INT(&明細部高さ÷20)は
&表示行数=#INT(&明細部高さ÷21)の方がよいようです。

仕様としては、マウスのy位置からオブジェクトの高さ、表示行数、始点yを求めています。

引用返信 [メール受信/OFF] 削除キー/

■4275 / inTopicNo.11)

　Re[6]: 明細とフッタの間をマウスで上下したい

▲▼■

□投稿者/ 今村　誠 -(2009/01/20(Tue) 21:48:20)

homepiyoさんこんにちは
意外と短い行数で希望の処理が出来ているのに感心しました。
動作はばっちりです。
動作の仕組みは全く理解できませんが、何回かイベントを読み返してみます。
参考になるマウスイベントをありがとうございました。
再定義での表送信.tblのエラーは他のフォルダーに置かずに同じフォルダーで
良かったのではないかと思っています。
送信.emlや受信.emlのパスを指定するだけで良かったのではないかと
最後になって考えております。

引用返信 [メール受信/OFF] 削除キー/

■4274 / inTopicNo.12)

　Re[5]: 明細とフッタの間をマウスで上下したい

▲▼■

□投稿者/ homepiyo -(2009/01/20(Tue) 20:59:27)

2009/01/23(Fri) 00:41:48 編集(投稿者)

■No4273に返信(今村　誠さんの記事)
今村さん。こんにちは。
解決ずみですが、みなさんの書き込みを参考に試しに作ってみました。
動作が希望されているものと違うかもしれません？

引用返信 [メール受信/OFF] 削除キー/

■4273 / inTopicNo.13)

　Re[4]: 明細とフッタの間をマウスで上下したい

▲▼■

□投稿者/ 今村　誠 -(2009/01/20(Tue) 17:13:14)

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

解決済み!

引用返信 [メール受信/OFF] 削除キー/

■4272 / inTopicNo.14)

　Re[3]: 明細とフッタの間をマウスで上下したい

▲▼■

□投稿者/ ONnoji -(2009/01/20(Tue) 11:14:55)

> わんたっち表形式２や INF_Tools_Framework のフォームには次の２つのコマンドボタンがあります。
>
> コマンドボタン：EZWcmd行高（手続き実行　EZWcmdLinesPerBodyClick, 1）
> コマンドボタン：EZWcmd行低（手続き実行　EZWcmdLinesPerBodyClick, -1）
>
> 呼び出されている一般手続き：EZWcmdLinesPerBodyClick( &整数 )は、一覧表形式と伝票形式の両方に対応しています。

こちらは、参考ＵＲＬです。

INF Tools 第1.1版 for 桐ver.8 / 桐ver.9　仕様ノート　　　　By ONnoji Copyright (C) 2003

９　小道具類（専用オブジェクト）

　フォームの倍率を変更する場合には、必ず専用のコマンドボタン（ EZWcmdZoomIn，EZWcmdZoomOut ）を利用してください。
　一覧表形式または伝票形式のフォームで明細行の高さを変更する場合には、
　専用のコマンドボタン（ EZWcmdLinesPerBodyUp と EZWcmdLinesPerBodyDown ）を利用してください。
　※伝票形式のフォームで行の高さを変更すると、表示が揺れますがご了承ください。

EZWcmdLinesPerBodyUp 行の高さを一段高くします
EZWcmdLinesPerBodyDown 行の高さを一段低くします

http://www.geocities.jp/siliconvalley_bay_7565/inf_tools_note/inf_tools_note.htm#commandButton

引用返信 [メール受信/OFF] 削除キー/

■4271 / inTopicNo.15)

　Re[2]: 明細とフッタの間をマウスで上下したい

▲▼■

□投稿者/ 今村　誠 -(2009/01/20(Tue) 11:05:37)

うにんさんこんにちは
> これは普通、伝票でなく一覧表を使うケースなのでは？
伝票から一覧表に変えてみたら明細部の空白は何事もなく消えました。
一覧表で決めようかと思います。
フッタ部を工夫して上下できるよう頑張ってみます。

引用返信 [メール受信/OFF] 削除キー/

■4270 / inTopicNo.16)

　Re[2]: 明細とフッタの間をマウスで上下したい

▲▼■

□投稿者/ ONnoji -(2009/01/20(Tue) 11:02:19)

■No4268に返信(うにんさんの記事)
> これは普通、伝票でなく一覧表を使うケースなのでは？
> 多分一覧表だと何か不都合があるんでしょうけど。。。
> 「伝票」というのは行数が固定しているのが前提なので。。。

私も一覧表形式が適していると思いますが…、きっと理由があるんでしょうね。

わんたっち表形式２や INF_Tools_Framework のフォームには次の２つのコマンドボタンがあります。

コマンドボタン：EZWcmd行高（手続き実行　EZWcmdLinesPerBodyClick, 1）
コマンドボタン：EZWcmd行低（手続き実行　EZWcmdLinesPerBodyClick, -1）

呼び出されている一般手続き：EZWcmdLinesPerBodyClick( &整数 )は、一覧表形式と伝票形式の両方に対応しています。

よろしければ、ご参考にしてみてください。

引用返信 [メール受信/OFF] 削除キー/

■4269 / inTopicNo.17)

　Re[2]: 明細とフッタの間をマウスで上下したい

▲▼■

□投稿者/ 今村　誠 -(2009/01/20(Tue) 09:45:55)

オヨヨさんこんにちはアイデアいただきです(^_^)
戻った場合がうまくなかったのでちょっと書き足しました。
　if (&Smode = "最大化")
　　ウィンドウ位置　最大化,&実行リターン
　　オブジェクト操作 @ﾌｫｰﾑ明細部.ｾｸｼｮﾝの高さ = "224.0 pt"
　　オブジェクト操作 @ﾌｫｰﾑﾌｯﾀ部.ｾｸｼｮﾝの高さ = "275.0 pt"
　　オブジェクト操作 @ﾌｫｰﾑ明細部.表示行数 = "11"
　Else if (&Smode = "最小化")
　　ウィンドウ位置　最小化,&実行リターン
　Else if (&Smode = "元に戻す")
　　ウィンドウ位置　復元,&実行リターン
　　オブジェクト操作 @ﾌｫｰﾑ明細部.ｾｸｼｮﾝの高さ = "140.0 pt"
　　オブジェクト操作 @ﾌｫｰﾑﾌｯﾀ部.ｾｸｼｮﾝの高さ = "255.0 pt"
　　オブジェクト操作 @ﾌｫｰﾑ明細部.表示行数 = "7"
　Else

引用返信 [メール受信/OFF] 削除キー/

■4268 / inTopicNo.18)

　Re[1]: 明細とフッタの間をマウスで上下したい

▲▼■

□投稿者/ うにん -(2009/01/20(Tue) 09:45:35)

解決法じゃないですが

> 最大化ボタンをクリックすると明細部とフッタ部の間に無駄な部分が
> 出来るので、最大化時は明細行数を増やしてほしいのです。

これは普通、伝票でなく一覧表を使うケースなのでは？
多分一覧表だと何か不都合があるんでしょうけど。。。
「伝票」というのは行数が固定しているのが前提なので。。。

> 　定義画面ですると上下に移動するが、編集画面ではメールソフトの
> ように移動しないので、非常に不便なのです。

定義画面では移動してるけどメールソフトのような境界位置の変更じゃなくて
上のセクションのサイズを変更してるだけですよね。（下のセクションのサイズは変わらない）

今年発売されたFileMaker10は、ようやくイベントを実装しましたが、
レイアウトがいじれないのでその点はまだ桐の勝ちだな～

引用返信 [メール受信/OFF] 削除キー/

■4267 / inTopicNo.19)

　Re[1]: 明細とフッタの間をマウスで上下したい

▲▼■

□投稿者/ オヨヨ -(2009/01/20(Tue) 07:53:17)

■No4264に返信(今村　誠さんの記事)
> 最大化ボタンをクリックすると明細部とフッタ部の間に無駄な部分が
> 出来るので、最大化時は明細行数を増やしてほしいのです。

proc 画面切り替え(Str &Smode)
　ウィンドウリスト取得　&実行リターン
　if (&Smode = "最大化")
　　ウィンドウ位置　最大化,&実行リターン
　　オブジェクト操作 @ﾌｫｰﾑ明細部.ｾｸｼｮﾝの高さ = "246.0 pt"
　　オブジェクト操作 @ﾌｫｰﾑ明細部.表示行数 = "12"
…

ではだめ?

引用返信 [メール受信/OFF] 削除キー/

■4266 / inTopicNo.20)

　Re[2]: マウスドラッグでフッタの高さを変更したい？

▲　■

□投稿者/ ONnoji -(2009/01/19(Mon) 15:18:26)

> 拙作：utx_list 2.1のフォーム（utx_list2.wfm）ではマウスドラッグでフッタの高さを変更していますよ。

具体的なイメージはこちら
　↓
清書ユーティリティ　第２．１版　for　桐Ｖ８/桐Ｖ９　ヘルプ　Copyright (C) 2002, 2003 ONnoji

マウスで項目の幅や高さが変更できます
・マウスで項目の幅が変更できます。
・マウスで拡張表示の高さが変更できます。拡張表示の高さを大きくする場合、線は表示されません。

http://www.geocities.jp/siliconvalley_bay_7565/utx_list/utx_list2_help.htm#ezw

引用返信 [メール受信/OFF] 削除キー/

次の20件＞

トピック内ページ移動 / << 0 | 1 >>

HOME HELP 新規作成新着記事トピック表示ファイル一覧検索過去ログ

- Child Tree -
- Antispam Version -