ブログ投稿用ソースコード変換ツール（preタグ付き）

ソースコード（MXML）

<?xml version="1.0" encoding="utf-8"?>
<s:Application xmlns:fx="http://ns.adobe.com/mxml/2009" 
			   xmlns:s="library://ns.adobe.com/flex/spark" 
			   xmlns:mx="library://ns.adobe.com/flex/mx" width="588" height="450" backgroundColor="#E5E1D6">

	<fx:Script>
		<![CDATA[
			import flash.desktop.*;
			//リセットボタン
			protected function sourceCodeReset(event:MouseEvent):void
			{
				sourceCode.text = null;
				result.text = null;
			}
			//変換ボタン
			protected function convert(event:MouseEvent):void
			{
				result.text = converter(sourceCode.text);
				//内容をクリップボードにコピー
				Clipboard.generalClipboard.setData(ClipboardFormats.TEXT_FORMAT, result.text);
			}
			//変換ボタン（コピーなし）
			protected function convertOnly(event:MouseEvent):void
			{
				result.text = converter(sourceCode.text);
			}
			//変換する
			protected function converter(t:String):String
			{
				//該当文字を探して変換
				t = t.replace(/&/g, "&amp;");
				t = t.replace(/</g, "&lt;");
				t = t.replace(/>/g, "&gt;");
				t = t.replace(/"/g, "&quot;");
				//preタグをつけるかどうか
				if (preCheck.selected)
				{
					t = "<pre>" + t + "</pre>"
				}
				return t;
			}

		]]>
	</fx:Script>

	<fx:Declarations>
		<!-- 非ビジュアルエレメント (サービス、値オブジェクトなど) をここに配置 -->
	</fx:Declarations>
	<s:Label x="440" y="6" text="http://www.two-hearts.net/" fontFamily="Verdana" fontSize="10" fontWeight="normal" color="#FFFFFF" textAlign="right"/>
	<s:Label x="10" y="9" text="ソースコード" fontFamily="ＭＳ ゴシック" fontWeight="bold" fontSize="14" color="#947446"/>
	<s:Label x="10" y="324" text="変換結果" fontFamily="ＭＳ ゴシック" fontWeight="bold" fontSize="14" color="#947446"/>
	<s:TextArea x="11" y="26" width="568" height="250" id="sourceCode" editable="true" enabled="true"/>
	<s:Button x="249" y="286" label="変換して結果をクリップボードにコピー" width="242" height="26" id="btnSubmit" click="convert(event)"/>
	<s:Button x="10" y="286" label="リセット" width="84" height="26" id="btnReset" click="sourceCodeReset(event)"/>
	<s:Button x="498" y="286" label="変換のみ" width="84" height="26" id="btnSubmit_convertOnly" click="convertOnly(event)"/>
	<s:TextArea x="9" y="343" width="570" height="97" id="result"/>
	<s:CheckBox x="158" y="290" label="preタグ付き" selected="true" enabled="true" id="preCheck"/>
</s:Application>