//
//           個人専用メニュープログラム
//
// メニューを選択して設定内容を表示します
// コピーボタンで選択範囲をコピーします
// 範囲が選択されていない場合は全部をコピーします
//
// 他人に悪用されては困るパスワードなどは設定しないでください
//

CREATE
{
	SetWinStyle(0) ;
	SetWinSize(400,26) ;

	SetWinPos(0,0,1) ; // 常に手前表示モード
	SetCaption("マイメニュー") ;
	SetWinColor(14) ;

	CreateControl(0,"コピー","ID_copy",0,0,50,20) ;
	CreateControl(101,"","ID_buf",50,1,400,18) ;


	// 以下のメニューを修正、追加してください

	Menu("住所氏名") ;
		PopupMenuEX("氏名",    "ID_name") ;
		PopupMenuEX("フリガナ","ID_furigana1") ;
		PopupMenuEX("ふりがな","ID_furigana2") ;
		PopupMenuEX("---","ID") ;
		PopupMenuEX("住所",    "ID_jyuusyo") ;
		PopupMenuEX("電話番号","ID_tel") ;
		PopupMenuEX("携帯番号","ID_keitai") ;
	Menu("インターネット") ;
		PopupMenuEX("接続ＩＤ",          "ID_other") ;
		PopupMenuEX("ログインパスワード","ID_other") ;
		PopupMenuEX("---","ID") ;
		PopupMenuEX("ホームページＩＤ",  "ID_other") ;
		PopupMenuEX("ログインパスワード","ID_other") ;
	Menu("メールアドレス") ;
		PopupMenuEX("○○さんのＰＣ","ID_other") ;
		PopupMenuEX("○○さんの携帯","ID_other") ;
		PopupMenuEX("---","ID") ;
		PopupMenuEX("××さんのＰＣ","ID_other") ;
		PopupMenuEX("××さんの携帯","ID_other") ;
	Menu("会員データ") ;
		PopupMenuEX("○○○のＩＤ",      "ID_other") ;
		PopupMenuEX("○○○のパスワード","ID_other") ;
		PopupMenuEX("---","ID") ;
		PopupMenuEX("×××のＩＤ",      "ID_other") ;
		PopupMenuEX("×××のパスワード","ID_other") ;
}

// コピーボタン
ID_copy
{
	st = GetEditCursolStart("ID_buf") ;
	sp = GetEditCursolEnd("ID_buf") ;

	// 範囲が選択されていなければ全てを選択する
	if(st == sp){
		AllSelectEdit("ID_buf") ;
	}
	ClipEdit("ID_buf") ;
}
// バッファの内容を消去するサブルーチン
AllClear
{
	AllSelectEdit("ID_buf") ;
	ClearEdit("ID_buf") ;
}

// 以下の内容をメニューにあわせて修正、追加してください

// 住所氏名の項目
ID_name      { call("AllClear") ; SetEditText("ID_buf","大阪はなこ") ; }
ID_furigana1 { call("AllClear") ; SetEditText("ID_buf","オオサカハナコ") ; }
ID_furigana2 { call("AllClear") ; SetEditText("ID_buf","おおさかはなこ") ; }
ID_jyuusyo   { call("AllClear") ; SetEditText("ID_buf","ここに住所を書いておきます") ; }
ID_tel       { call("AllClear") ; SetEditText("ID_buf","0123-45-6789") ; }
ID_keitai    { call("AllClear") ; SetEditText("ID_buf","090-1234-5678") ; }

// その他のメニュー項目は準備していません
ID_other     { call("AllClear") ; SetEditText("ID_buf","内容は未設定です") ; }