DOWN LOAD BBS

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

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

■348 / inTopicNo.1)  193 クラシックUI_モダンUI_変換ユーティリティ
  
□投稿者/ ONnoji -(2020/08/23(Sun) 15:08:35)
    2020/08/23(Sun) 15:10:47 編集(投稿者)

     ■使い方

     1.最初に、クラシックUI_モダンUI_変換ユーティリティを開きます。

     2.次に、いずれかのコマンドボタンを実行してターゲットのフォームを選びます。

      [ウィンドウ一覧...]  … 開いているフォームからターゲットのフォームを選びます

      [以前開いたファイル...]… 以前ターゲットにしたフォームの一覧からターゲットのフォームを選びます

      [開く...]       … [開く]ダイアログでターゲットのフォームを選びます

     3.最後にUI変換をするコマンドボタンを実行します

      [モダンUI]… フラットなUIに変換します

      [クラシックUI]… 立体的なUIに変換します

      < 変換対象 >

      ○ 10 テキストボックス ※境界線モードが"囲み罫線"で[ソース]属性の値が編集可能なもののみ対象 表形式または伝票形式のフォーム明細部を除く
      ○ 14 グループ項目   ※[グループソース]属性の値が編集可能なもののみ対象
      ○ 30 コマンドボタン  ※INF_Frameworkのファミリ:famCAPは対象外
      ○ 35 トグルボタン
      ○ 37 内部トグルボタン
      ○ 70 リストボックス

      ※数字は[領域種別]メソッドで取得できる領域種別番号です 
      ※[透明なオブジェクト]は変換対象外です

     ■カスタマイズ(改造)に関して

      手続き:UIprcObjectPropertyModify を改造するとカスタマイズできます。

      手続きの引数の説明

      整数  &hdl       … ターゲットのハンドル番号
      文字列 &sectionName   … セクション名
      文字列 &objectName   … オブジェクト名
      整数  &areaTypeNum   … [領域種別]メソッドで取得できる領域種別番号
      文字列 &areaTypeName  … 領域名
      整数  &linkFlag     … リンクしているオブジェクトならばイチ(1)、そうでなければゼロ(0)
      整数  &isAssistButton … 入力支援ボタンがあればイチ(1)、そうでなければゼロ(0)
      整数  &modernUI    … 変換モードがモダンUIであればイチ(1)、そうでなければゼロ(0)
      文字列 &familyName   … ファミリ名
      整数  &isFamily    … ファミリ名があればイチ(1)、そうでなければゼロ(0)
      文字列 &formStyle    … フォームの形式(カード形式 一覧表形式 伝票形式)

       ケース開始
        ケース ( &noOperation =  1 )
    ** nop ケース ( &areaTypeNum =  1 ) /*  1 ラベル     */
        ケース ( &areaTypeNum = 10 .or &areaTypeNum = 14 ) /* 10 テキストボックス 14 グループ項目 */
    ** nop ケース ( &areaTypeNum = 14 ) /* 14 グループ項目 は ケース ( &areaTypeNum = 10 .or &areaTypeNum = 14 ) で処理する */
    ** nop ケース ( &areaTypeNum = 20 ) /* 20 グループボックス */
        ケース ( &areaTypeNum = 30 ) /* 30 コマンドボタン  */
        ケース ( &areaTypeNum = 35 .or &areaTypeNum = 37 ) /* 35 トグルボタン   ※ ヘルプでは トグルボタン(グループボックス外) */
    ** nop ケース ( &areaTypeNum = 37 ) /* 37 内部トグルボタン ※ ヘルプでは トグルボタン(グループボックス内) */
    ** nop ケース ( &areaTypeNum = 60 ) /* 60 コンボボックス  */
        ケース ( &areaTypeNum = 70 ) /* 70 リストボックス   */
    ** nop ケース ( &areaTypeNum = 75 ) /* 75 入力支援ボタン */
    ** nop ケース ( &areaTypeNum = 80 ) /* 80 ピクチャ    */
    ** nop ケース ( &areaTypeNum = 90 ) /* 90 直線     */
    ** nop ケース ( &areaTypeNum = 92 ) /* 92 楕円     */
    ** nop ケース ( &areaTypeNum = 96 ) /* 96 扇形     */
    ** nop ケース ( &areaTypeNum = 98 ) /* 98 角丸め矩形  */
    ** nop ケース ( &areaTypeNum = 110 ) /* 110 サブフォーム   */
    ** nop ケース ( &areaTypeNum = 120 ) /* 120 グラフ     */
       **ケース ( &areaTypeNum = 130 ) /* 130 バーコード   */
    ** nop ケース ( &areaTypeNum = 200 ) /* 200 行セレクタ または セレクタ ※名称が2種類あるので注意 */
       ケース終了

引用返信 [メール受信/OFF] 削除キー/
■349 / inTopicNo.2)  Re[1]: 193 クラシックUI_モダンUI_変換ユーティリティ
□投稿者/ ONnoji -(2020/08/23(Sun) 16:21:50)

    さっそく虫が見つかってしまった。(^^ゞ

    × if ( #バージョン番号 >= 1.1 )  ※ゼロ(0) が抜けていた

    ○ if ( #バージョン番号 >= 10.1 ) ※桐10s のバージョン

    差し替えるほどの虫では無いので、差し替えはしません。

    気になる人はお手数ですが修正願います。m(__)m

     ◇ ◇ ◇ ◇ ◇ ◇ ◇ ◇ ◇ ◇ ◇

    手続き定義開始 UIprcStart( )
     変数宣言 自動,文字列{ &icon, &title = "UIprcStart( )", &msg }

     &msg = "#バージョン番号 = " + #str( #バージョン番号 )
     &icon = "i"
     **手続き実行 INFprcMsgPause( &icon, &title, &msg )
    ┌if ( #バージョン番号 >= 10.1 ) ←←←←←←←←←←← ここ!

    │┌if ( #ウィンドウハンドル( &mTargetHdl ) )
    ││
    ││ 手続き実行 UIprcFormObjectSeekOnHdl( )
    │├else
    ││
    ││ &msg = "ウィンドウハンドルが見つかりません"
    ││ &msg = &msg + "\n\n&mTargetHdl = " + #str( &mTargetHdl )
    ││ &msg = &msg + "\n\n次のボタンでフォームを開いてから実行してください。"
    ││ &msg = &msg + "\n\n・[ウィンドウ一覧...]"
    ││ &msg = &msg + "\n\n・[以前開いたファイル...]"
    ││ &msg = &msg + "\n\n・[開く...]"
    ││ &icon = "e"
    ││ 手続き実行 INFprcMsgPause( &icon, &title, &msg )
    │└end

    ├else

    │ &msg = "モダンUI は 桐10s 以降でサポートされています"
    │ &msg = &msg + "\n\n実行中の桐では実行できません"
    │ &msg = &msg + "\n\n#バージョン番号 = " + #str( #バージョン番号 )
    │ &icon = "e"
    │ 手続き実行 INFprcMsgPause( &icon, &title, &msg )
    └end

    手続き定義終了



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



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

このトピックに書きこむ

Mode/  Pass/

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

- Child Tree -
- Antispam Version -