DOWN LOAD BBS

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

[ 最新記事及び返信フォームをトピックトップへ ]

■389 / inTopicNo.1) 　#205　INF_Framework 第3.3版 改訂版(MkII) サンプル集 for 桐10ｓ / 桐ｓSL
  ▼■
□投稿者/ ONnoji -(2023/09/28(Thu) 09:36:01)
    都道府県ピッカーの手続きを改良しました。

    ⇒　マウスがホバーした［県のオブジェクト］に縁取りが付くようになりました。

    #205　INF_Framework 第3.3版 改訂版(MkII) サンプル集 for 桐10ｓ / 桐ｓSL

    ■INF_都道府県picker.kex

    【改良前】

    手続き定義開始　famPref::マウスインアウト(長整数　&フラグ，長整数　&明細番号)

    　if　( #変数( "UImConvertLive" ) .and ( #変数( "UImModernUse" ) .or ( 1 + #配列要素数( "TMPVARmModernUse" ) ) ) .and #変数( "UImIsfamModernUI" ) )
    　　&UImThis = &this
    　　手続き実行　famModernUI::ﾏｳｽｲﾝｱｳﾄ( &フラグ，1 )
    　end

    手続き定義終了


    【改良後】※↓コピペで動きます。

    手続き定義開始　famPref::マウスインアウト(長整数　&フラグ，長整数　&明細番号)
    　変数宣言　自動，文字列｛ &icon, &title = "famPref::マウスインアウト( )", &msg ｝
    　変数宣言　自動，文字列｛ &objectName ｝
    　変数宣言　自動，文字列｛ &threeDimensionalColorMode ｝

    　** 2023.09.26　マウスインの時に 立体色モード = "フラット（縁有り）"、マウスアウトの時に 立体色モード = "フラット" にした

    　変数宣言　自動，文字列｛ &traceMsg = #cond( #変数( "INFmTraceFormPathAdd" ), &INFmMyWfmPath ) + &INFmMyWfmName + " hdl=" + #last( " " + #str( &hwindow ), 2 ) + ">" + &title ｝
    　変数宣言　自動，整数　｛ &traceON = #対応番号( #uc2( #変数( "INFmTraceModuleNameList" ) ), "ALL" ) .or #対応番号( #uc2( #変数( "INFmTraceModuleNameList" ) ), "APL" ) ｝

    　**&traceON = 1
    　条件　( &traceON )　トレース出力　&traceMsg + "を実行開始しました"

    　&objectName = &this
    　オブジェクト操作　&objectName｛ &threeDimensionalColorMode = 立体色モード ｝
    　条件　( &traceON )　トレース出力　_&objectName, "　 ", _&threeDimensionalColorMode

    　if　( #変数( "UImConvertLive" ) .and ( #変数( "UImModernUse" ) .or ( 1 + #配列要素数( "TMPVARmModernUse" ) ) ) .and #変数( "UImIsfamModernUI" ) )

    　　if ( &フラグ )
    　　　**ＮＧ！　オブジェクト操作　&objectName｛ 立体色モード = "フラット（縁有り）" ｝
    　　　オブジェクト操作　&objectName｛ 立体色モード = 4 ｝　/* フラット（縁有り）の件は、数値の４を指定すればＯＫであると分かりました */
    　　end

    　　**if　( #変数( "UImConvertLive" ) .and ( #変数( "UImModernUse" ) .or ( 1 + #配列要素数( "TMPVARmModernUse" ) ) ) .and #変数( "UImIsfamModernUI" ) )
    　　&UImThis = &this
    　　手続き実行　famModernUI::ﾏｳｽｲﾝｱｳﾄ( &フラグ，1 )
    　　**end

    　　if ( .not &フラグ )
    　　　オブジェクト操作　&objectName｛ 立体色モード = "フラット" ｝
    　　end
    　end

    　条件　( &traceON )　トレース出力　&traceMsg + "を実行終了しました"

    　**【転載】UIprcObjectPropertyModify より
    　** 次のように"フラット（縁有り）"を指定するとエラーになります
    　** オブジェクト操作 ハンドル = &hdl, &objectName｛ 立体色モード = "フラット（縁有り）" ｝
    　** エラー　:KU1093:データの形式に誤りがあります
    　** この問題は、2020-07-20 にＫ３殿に報告済みです　確認した桐ビルド番号：#2432
    　** この問題は、2022-01-31 にＫ３殿に確認済みです　確認した桐ビルド番号：#3100　※桐ｓ　#3131　2022/11/04更新　【221104-5】でfixed

    　** メモ：2022-02-01
    　** 数値の 4 を "フラット（縁有り）" の替わりに指定するとＯＫ
    　** 数値の 2^30 … 継承
    　**　　　　0　　… Windowsの立体色
    　**　　　　1　　… 背景色の立体色
    　**　　　　2　　… 背景色のハイコントラスト立体色
    　**　　　　3　　… フラット
    　**　　　　4　　… フラット（縁有り）

    手続き定義終了

514×580 => 221×250

1696554485.jpg/49KB
引用返信 [メール受信/OFF] 削除キー/


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

このトピックに書きこむ
Mode/　 Pass/

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

- Child Tree -
- Antispam Version -