DOWN LOAD BBS
HOME
HELP
新規作成
新着記事
ツリー表示
スレッド表示
トピック表示
ファイル一覧
検索
過去ログ
[
最新記事及び返信フォームをトピックトップへ
]
[ トピック内全2記事(1-2 表示) ] <<
0
>>
■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 … ターゲットのハンドル番号
文字列 §ionName … セクション名
文字列 &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
>>
このトピックに書きこむ
入力内容にタグは利用できません。
他人を中傷する記事は管理者の判断で予告無く削除されます。
半角カナは使用しないでください。文字化けの原因になります。
名前、コメントは必須記入項目です。記入漏れはエラーになります。
入力内容の一部は、次回投稿時の手間を省くためブラウザに記録されます。
削除キーを覚えておくと、自分の記事の編集・削除ができます。
URLは自動的にリンクされます。
記事中に No*** のように書くとその記事にリンクされます(No は半角英字/*** は半角数字)。
使用例:
No123 → 記事No123の記事リンクになります(指定表示)。
No123,130,134 → 記事No123/130/134 の記事リンクになります(複数表示)。
No123-130 → 記事No123〜130 の記事リンクになります(連続表示)。
Name
/
E-Mail
/
└> 関連するレス記事をメールで受信しますか?
NO
YES
/ アドレス
非公開
公開
Title
/
メッセージ中には下記URLと同じURLを書き込まないで下さい
URL
/
Comment/ 通常モード->
図表モード->
(適当に改行して下さい/半角10000文字以内)
■No349に返信(ONnojiさんの記事) > > さっそく虫が見つかってしまった。(^^ゞ > > × 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 > > 手続き定義終了 > > >
File
/
アップ可能拡張子=> /
.gif
/
.jpg
/
.jpeg
/
.png
/.txt/.lzh/.zip/.mid
圧縮ファイル[lzh,zip]は、事前に解凍してご利用下さい。
1) 太字の拡張子は画像として認識されます。
2) 画像は初期状態で縮小サイズ250×250ピクセル以下で表示されます。
3) 同名ファイルがある、またはファイル名が不適切な場合、
ファイル名が自動変更されます。
4) アップ可能ファイルサイズは1回
200KB
(1KB=1024Bytes)までです。
5) ファイルアップ時はプレビューは利用できません。
6) スレッド内の合計ファイルサイズ:[0/500KB]
残り:[500KB]
パスワード
/
半角小文字で「ケイ・アイ・アール・アイ」を入力
削除キー
/
(半角8文字以内)
解決済み!
BOX/
解決したらチェックしてください!
プレビュー/
Mode/
通常管理
表示許可
Pass/
HOME
HELP
新規作成
新着記事
ツリー表示
スレッド表示
トピック表示
ファイル一覧
検索
過去ログ
-
Child Tree
-
-
Antispam Version
-