/*---------------------------------------

	Stickypaper 
	Sample script 

	html表示モードのテスト
	スクリプトによる結果表示をリッチにする機能です。


[Memo Object]
PROPERTY
 *text		displayed text	(read/write)
 *title		title text	(read/write)	(v1.1+) タイトル
 *width,hwight	memo size	(read/write)
 *left,top	memo position	(read/write)


METHOD
 *ShowAsText(Filename)	display 'Filename' as html mode	(v1.1+) ローカルにあるhtmlファイルを表示します。
 *ShowAsText()		change to normal mode		(v1.1+) 普通のモードにもどします。
 


---------------------------------------*/


Memo.width=190;
Memo.height=220;


Memo.title="title タイトル設定テスト";
Memo.text="loading...\n";
Memo.ShowAsText();	//普通のモード

doEvents();


sleep(1000);




var outhtml = new Strings;

  outhtml.add("<html><head><meta http-equiv='Content-Type' content='text/html; charset=shift_jis'>\n</head>");
  outhtml.add('<body link="#0033cc" text="#666666"><basefont size=2 face="ＭＳ Ｐゴシック">');



  outhtml.add('<p style="font-size:9pt;">簡易なHTML表示モードです。<br>cssは使えません。</p>');


  outhtml.add('<ul><li>html list test1</li><li><strong><font color=maroon>日本語</font></strong>テスト２</li></ul>');


  outhtml.add('<p><img src="sample.gif"> 画像表示テスト<br>（スクリプトのある階層がルートです。）</p>');

  outhtml.add('<p><a href="http://yahoo.co.jp"><u>→外部リンクテスト</u></a><br>（URLを指定するとIEで開きます。）</p>');

  outhtml.add('<p><em>注意</em><br>スクリプト以外の方法では このモードの設定・解除できません。</p>');

  outhtml.saveToFile('temp.html');


	if (msgBox('結果をHTMLで表示しますか？',4 | 0x20)==6){
		Memo.ShowAsHtml('temp.html'); //HTMLモードにて表示テスト
	}else{
		Memo.text=outhtml.text;
		Memo.ShowAsText();
	}

  

