//Flash＆イメージビューアー
!母艦設計=「母艦の可視はオフ
エラー無視」
母艦のタイトルは「Flash＆イメージビューアー」
//母艦のスタイルは「枠固定」
//母艦の最大化ボタン有効変更(オフに)
母艦を中央移動

/*ホットキー
バグ報告用にも報告したが
"ブラウザ部品を使用時に母艦のスタイルを「枠なし」にすると
ブラウザで表示しているものが見えなくなる"
と言うバグがあるからバグが直るまでは使えない。
「Alt+Enter」で「サイズ変更処理」をホットキー登録
*/

temp=「いいえ」

種類は「Flash」

IEキャッシュ=「C:\Documents and Settings\{ユーザー名取得}\Local Settings\Temporary Internet Files\Content.IE5\」

//FlashList=「」
//FlashPass=「C:\Documents and Settings\tetz\デスクトップ\IE\SwfFiles\」
/*「{FlashPass}*.swf」の全ファイル列挙して反復
	「{対象}{~}」をFlashListに追加*/

選択列挙処理

右クリメニューとはポップアップメニュー
右クリメニューに「,フォセ,フォルダ選択,,,選択列挙処理
,セッテ,設定,,,設定処理
,ホゾ,保存,Ctrl+S,,保存処理
,ダウン,ダウンロード,,,ダウソ処理
,バジョ,バージョン情報,,,バージョン表示処理」をポップアップメニュー一括作成

Flash選択リストとはリスト
そのアイテムはFlashListtmp
そのダブルクリックした時は
	Flssh閲覧ブラウザのURLは「{FlashList[Flash選択リストの値]}」
そのレイアウトは「左」
その幅は母艦のクライアント幅/10*3
そのポップアップメニューは右クリメニュー

Flssh閲覧ブラウザとはブラウザ
そのレイアウトは全体

//設定フォーム

設定フォームとはフォーム
そのタイトルは「設定」
そのクライアント高さは110
そのクライアント幅は180

基本Xは10
基本Yは10

種類ラベルとはラベル
その親部品は設定フォーム
そのテキストは「種類」

種類コンボとはコンボ
その親部品は設定フォーム
そのアイテムは「Flash{~}イメージ」
その値は0
その編集はオフ

おｋボタンとはボタン
そのテキストは「OK」
その親部品は設定フォーム
そのクリックした時は
	設定フォームの可視はオフ

//バージョンフォーム
バージョンフォームとはフォーム
そのタイトルは「バージョン情報」

母艦の可視はオン

//サブルーチン
●設定処理
	設定フォームの可視はオン

●保存処理
	Flash選択リストのテキスト≠空ならば、
		ダイアログ初期値はFlash選択リストのテキスト
		保存先=「Flashファイル(*.swf)|*.swf|イメージファイル|*.png;*.bmp;*.jpg;*.gif;*.ico」の保存ファイル選択
		保存先≠空ならば、
			「{FlashPass}{Flash選択リストのテキスト}」から保存先へファイルコピー

●サイズ変更処理
	もし、temp=「いいえ」ならば、
		temp=「はい」
		Flash選択リストの可視はオフ
		母艦のスタイルは「枠なし」
		Flssh閲覧ブラウザのレイアウトは「全体」
		母艦を最大化
	違えば
		temp=「いいえ」
		母艦の元通り
		Flash選択リストの可視はオン
		母艦のスタイルは「枠固定」

●選択列挙処理
	もし、(種類コンボのテキスト<>空)ならば
		種類=種類コンボのテキスト

	FlashPass=フォルダ選択	
	FlashListtmp=「」

	もし、(種類=「イメージ」)ならば
		拡張子=「*.png;*.bmp;*.jpg;*.gif;*.ico」
	違えば
		拡張子=「*.swf」

	FlashList=「{FlashPass}{拡張子}」の全ファイル列挙
	FlashListを反復
		対象からファイル名抽出。
		それをFlashListtmpに配列追加
		//FlashList=FlashListtmp
	Flash選択リストのアイテムはFlashListtmp

●バージョン表示処理
	バージョンフォームの可視はオン