/*
本体バージョン1.1.1以上用
シフトボタンを押して実行した場合は 「設定」

*/

var fn='~'+Memo.id+'_url.txt';  //URLを保存するファイル。直接編集も可

	// Dialog create --------------------
	frm = new VCLForm(true); //trueを渡すとメインフォームとなります
	frm.width = 520;
	frm.height = 100;
	frm.position = 'poScreencenter';
	frm.borderIcons = '[biSystemMenu]'; //集合型は文字列で指定できます
	frm.caption = 'Enter RSS URI';
	cb=new VCLComboBox( frm);
	cb.left=20;cb.top=20;cb.width=380;
	cb.autocomplete=true;

	btn= new VCLButton(frm);
	btn.left=420;btn.top=18;btn.width=80;
	btn.onClick=function(){ print(cb.text);  };
	btn.modalresult=1;
	btn.caption='OK';
	// Dialog create --------------------



var url='';

ini=new Strings();
if(new File(fn).exists()){ini.loadFromFile(fn);}

if (ini.length>0){
	url=ini[0];
	cb.items.assign(ini);
	cb.text=url;
}


if( Keyboard.shift || url=='' ){  //ボタンが押されたら設定
	//setting
  	mr=frm.showModal();
  	if (mr==1){
	  	var s = cb.text;
		if(s){url=s;
			find=ini.indexOf(s);
			if( find == -1){  ini.insert(0,s);    }
			else{  ini.delete(find) ; ini.insert(0,s);      }
			ini.saveToFile(fn);
		}
	}
}




import rss2;


Memo.text='';

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

var RSS=rss2.readrss(url);
if(RSS){

	
	html.add('<div><a href="'+RSS.channel.url+'">['+RSS.channel.title+']</a><br><br></div>');
	for(var i=0;i<RSS.item.length;i++){
		
		html.add(  '<img src=ya.gif> <a href="'+ RSS.item[i].url +'">'+RSS.item[i].title.substr(0,16) +"...</a><br>\n" );
	}

	html.saveToFile('~'+Memo.id+'_temp.html');
	Memo.ShowAsHtml('~'+Memo.id+'_temp.html'); //HTMLモードにて表示テスト

}else{
	Memo.text='Error.';
	Memo.ShowAsText();
}


