![[PukiWiki]](image/pukiwiki.png "[PukiWiki]")
バルーン上でチェックボックス（擬似）つきの一行メモを実現させる。
（バックアップを取ってから導入を。
処理が回りくどいかもしれないので、頑張れる人大歓迎）
＃-------------------------------------------------------------------- ＃ ToDoリスト：初期化 ＃-------------------------------------------------------------------- ＊ToDoリスト＿準備 ＄ToDo現在ページ数【タブ】1 ＄ToDotmp【タブ】 ＞ToDoリスト ＃-------------------------------------------------------------------- ＃ 初期化 ＃ 1～10だけは初期から設定する ＃-------------------------------------------------------------------- ＊ToDoリスト＿初回 ＄ToDo（ToDo現在ページ数）【タブ】0（b1）0（b1）0（b1）0（b1）0（b1）0（b1）0（b1）0（b1）0（b1）0（b1）（sprintf,%-12s, ）（b1）（sprintf,%-12s, ）（b1）（sprintf,%-12s, ）（b1）（sprintf,%-12s, ）（b1）（sprintf,%-12s, ）（b1）（sprintf,%-12s, ）（b1）（sprintf,%-12s, ）（b1）（sprintf,%-12s, ）（b1）（sprintf,%-12s, ）（b1）（sprintf,%-12s, ） ＄ToDoリスト＿txt取出【タブ】０ ＄ToDo総合ページ数【タブ】1 ＄ToDo個数【タブ】10 ＄ToDo始値【タブ】1 ＞ToDoリスト ＃-------------------------------------------------------------------- ＃ ヘッダー ＃-------------------------------------------------------------------- ＊ToDoリスト ＞ToDoリスト＿初回【タブ】（変数「ToDo1」の存在）==0 ：\b[2]\_q\![set,choicetimeout,-1] \q[戻る,戻る] \q[＜,ToDo＿前ページ] 【ToDo】 \q[＞,ToDo＿次ページ] \q[閉じ,閉じる] ───────────── ＞ToDoリスト＿ページ ＃-------------------------------------------------------------------- ＃ リストアップ用ループとフッター ＃-------------------------------------------------------------------- ＊ToDoリスト＿ページ ：（nop,（split,（ToDo（ToDo現在ページ数））,（b1）））（times,10,（ToDoループ））───────────── Page:（ToDo現在ページ数）/（ToDo総合ページ数） \q[ADD,OnToDoAddPage] \q[DEL,OnToDoDelPage] \q[Reset,ToDoリスト＿初回] ＊ToDoループ ＄ToDoリスト＿txt取出＝（Ｃ０）＋１０ ：（Ｃ０）: \__q[OnToDoCheck,（Ｃ０）,（Ｓ（Ｃ０））]\_b[ico\Check（Ｓ（Ｃ０））.png,inline]\__q\f[underline,true]（Ｓ（ToDoリスト＿txt取出））\f[underline,default] \__q[OnToDoEdit,（Ｃ０）]\_b[ico\edit.png,inline]\__q \__q[OnToDoDelete,（Ｃ０）]\_b[ico\close.png,inline]\__q ＃（Ｃ０）はループ数 →（Ｒ０） ＃（Ｓ０）はスプリット→（Ｒ１） ＃-------------------------------------------------------------------- ＃ チェックのON/OFF ＃ ToDo[n]_icoの値で分岐 ＃-------------------------------------------------------------------- ＊OnToDoCheck【タブ】（Ｒ１）==0 （nop,（split,（ToDo（ToDo現在ページ数））,（b1））） ＄ToDotmp【タブ】（Ｓ（Ｒ０）） （set,Ｓ（Ｒ０）,1） ＄ToDo（ToDo現在ページ数）【タブ】（Ｓ０）（b1）（Ｓ１）（b1）（Ｓ２）（b1）（Ｓ３）（b1）（Ｓ４）（b1）（Ｓ５）（b1）（Ｓ６）（b1）（Ｓ７）（b1）（Ｓ８）（b1）（Ｓ９）（b1）（Ｓ１０）（b1）（Ｓ１１）（b1）（Ｓ１２）（b1）（Ｓ１３）（b1）（Ｓ１４）（b1）（Ｓ１５）（b1）（Ｓ１６）（b1）（Ｓ１７）（b1）（Ｓ１８）（b1）（Ｓ１９） ＄ToDotmp【タブ】 ＞ToDoリスト ＊OnToDoCheck【タブ】（Ｒ１）==1 （nop,（split,（ToDo（ToDo現在ページ数））,（b1））） （set,Ｓ（Ｒ０）,0） ＄ToDo（ToDo現在ページ数）【タブ】（Ｓ０）（b1）（Ｓ１）（b1）（Ｓ２）（b1）（Ｓ３）（b1）（Ｓ４）（b1）（Ｓ５）（b1）（Ｓ６）（b1）（Ｓ７）（b1）（Ｓ８）（b1）（Ｓ９）（b1）（Ｓ１０）（b1）（Ｓ１１）（b1）（Ｓ１２）（b1）（Ｓ１３）（b1）（Ｓ１４）（b1）（Ｓ１５）（b1）（Ｓ１６）（b1）（Ｓ１７）（b1）（Ｓ１８）（b1）（Ｓ１９） ＞ToDoリスト ＃-------------------------------------------------------------------- ＃ メモ欄編集 ＃-------------------------------------------------------------------- ＃[ ボックスを開く ]-------------------------------------------------- ＊OnToDoEdit ＄ToDotmp＝（Ｒ０）＋１０ \![open,inputbox,OnToDoInput,-1] ＃[ 確定処理 ]-------------------------------------------------------- ＊OnToDoInput ：（nop,（split,（ToDo（ToDo現在ページ数））,（b1）））（set,Ｓ（ToDotmp）,（sprintf,%-12s,（Ｒ０））） ＄ToDo（ToDo現在ページ数）【タブ】（Ｓ０）（b1）（Ｓ１）（b1）（Ｓ２）（b1）（Ｓ３）（b1）（Ｓ４）（b1）（Ｓ５）（b1）（Ｓ６）（b1）（Ｓ７）（b1）（Ｓ８）（b1）（Ｓ９）（b1）（Ｓ１０）（b1）（Ｓ１１）（b1）（Ｓ１２）（b1）（Ｓ１３）（b1）（Ｓ１４）（b1）（Ｓ１５）（b1）（Ｓ１６）（b1）（Ｓ１７）（b1）（Ｓ１８）（b1）（Ｓ１９） ＄ToDotmp【タブ】 ＞ToDoリスト ＃-------------------------------------------------------------------- ＃ メモ欄入力消去 ＃-------------------------------------------------------------------- ＃[ 削除確認 ]-------------------------------------------------------- ＊OnToDoDelete ＄ToDotmp＝（Ｒ０）＋１０ ：（nop,（split,（ToDo（ToDo現在ページ数））,（b1）））\c\_qToDo （Ｒ０）:『（Ｓ（ToDotmp））』を消しちゃう？ \_b[ico\ok.png,inline]\q[はい,OnToDoDeleteGo,（Ｒ０）] \_b[ico\no.png,inline]\q[いいえ,ToDoリスト]\_q ＃[ 削除処理 ]-------------------------------------------------------- ＊OnToDoDeleteGo ＄Ｓ（Ｒ０）【タブ】0 ＄Ｓ（ToDotmp）【タブ】（sprintf,%-12s, ） ＄ToDo（ToDo現在ページ数）【タブ】（Ｓ０）（b1）（Ｓ１）（b1）（Ｓ２）（b1）（Ｓ３）（b1）（Ｓ４）（b1）（Ｓ５）（b1）（Ｓ６）（b1）（Ｓ７）（b1）（Ｓ８）（b1）（Ｓ９）（b1）（Ｓ１０）（b1）（Ｓ１１）（b1）（Ｓ１２）（b1）（Ｓ１３）（b1）（Ｓ１４）（b1）（Ｓ１５）（b1）（Ｓ１６）（b1）（Ｓ１７）（b1）（Ｓ１８）（b1）（Ｓ１９） ＄ToDotmp【タブ】 ＞ToDoリスト ＃-------------------------------------------------------------------- ＃ ページの切り替え ＃-------------------------------------------------------------------- ＊ToDo＿前ページ ＞ToDoリスト【タブ】（ToDo現在ページ数）==1 （set,ToDo現在ページ数,（ToDo現在ページ数）-1） ＞ToDoリスト ＊ToDo＿次ページ ＞ToDoリスト【タブ】（ToDo現在ページ数）==（ToDo総合ページ数） （set、ToDo現在ページ数、（ToDo現在ページ数）+1） ＞ToDoリスト ＃-------------------------------------------------------------------- ＃ ページの追加／削除 ＃ （変数式は＄で指定すると結果が全角になるのでset関数） ＃-------------------------------------------------------------------- ＃[ ページ追加 ]------------------------------------------------------ ＊OnToDoAddPage （set,ToDo総合ページ数,（ToDo総合ページ数）+1） （set,ToDo現在ページ数,（ToDo現在ページ数）+1） ＄ToDo（ToDo現在ページ数）【タブ】0（b1）0（b1）0（b1）0（b1）0（b1）0（b1）0（b1）0（b1）0（b1）0（b1）（sprintf,%-12s, ）（b1）（sprintf,%-12s, ）（b1）（sprintf,%-12s, ）（b1）（sprintf,%-12s, ）（b1）（sprintf,%-12s, ）（b1）（sprintf,%-12s, ）（b1）（sprintf,%-12s, ）（b1）（sprintf,%-12s, ）（b1）（sprintf,%-12s, ）（b1）（sprintf,%-12s, ） ＞ToDoリスト ＃[ ページ削除確認 ]-------------------------------------------------- ＊OnToDoDelPage ＞ToDoリスト【タブ】（ToDo総合ページ数）==1｜｜（ToDo現在ページ数）==1 ：\_qページ番号:『（ToDo現在ページ数）』を消しちゃう？ ページ内のToDoも消えちゃうよ。 \_b[ico\ok.png,inline]\q[はい,ToDoページ削除処理] \_b[ico\no.png,inline]\q[いいえ,ToDoリスト]\_q ＃[ 削除処理 ]-------------------------------------------------------- ＊ToDoページ削除処理 ＄ToDo（ToDo現在ページ数）【タブ】 （set、ToDo総合ページ数、（ToDo総合ページ数）-1） （set、ToDo現在ページ数、（ToDo現在ページ数）-1） ＞ToDoリスト
ようこそ里々wikiへ！
初めての方へ
