/*
本体バージョン1.1.1以上用
設定後はスクリプトの指定を解除してもOK
*/

function getRvalue(color){ return color & 0x0000FF; }
function getGvalue(color){ return (color & 0x00FF00)>>8 ; }
function getBvalue(color){ return (color & 0xFF0000)>>16 ; }
function RGB(r,g,b){ return (r | (g<<8) | (b<<16)); }



var frm=new VCLForm(true);

frm.width=180;
frm.height=250;
frm.Position='poScreenCenter';
frm.caption='Color setting';
frm.Bordericons='biSystemMenu';


var btn1=new VCLButton(frm);
btn1.caption='Bg color';
btn1.onClick=function(){Memo.SetColorByDialog(0);};
btn1.left=20;btn1.top=10; btn1.width=120;



var btn2=new VCLButton(frm);
btn2.caption='Bar color';
btn2.onClick=function(){Memo.SetColorByDialog(1);};
btn2.left=20;btn2.top=40; btn2.width=120;

var btn3=new VCLButton(frm);
btn3.caption='Text color';
btn3.onClick=function(){Memo.SetColorByDialog(2);};
btn3.left=20;btn3.top=70; btn3.width=120;

var btn4=new VCLButton(frm);
btn4.caption='TitleText color';
btn4.onClick=function(){Memo.SetColorByDialog(3);};
btn4.left=20;btn4.top=100; btn4.width=120; 

var btn6=new VCLButton(frm);
btn6.caption='shadow color';
btn6.onClick=function(){Memo.SetColorByDialog(4);};
btn6.left=20;btn6.top=130; btn6.width=120; 


var btn5=new VCLButton(frm);
btn5.caption='Randomize color';
btn5.onClick=function(){  
	Memo.SetColor(0,Math.round(Math.random()*255*255*255));
 	Memo.SetColor(1,Math.round(Math.random()*255*255*255));
 	Memo.SetColor(2,Math.round(Math.random()*255*255*255));
 	Memo.SetColor(3,Math.round(Math.random()*255*255*255));
};
btn5.left=20;btn5.top=180; btn5.width=120; 

  frm.show(); //フォームを表示



  eventLoop();






exit();
