![[PukiWiki]](image/pukiwiki.png "[PukiWiki]")
#author("2023-11-11T07:41:10+09:00","default:post","post") ---- #contents ---- ~ *ToDoリストもどき [#g1a8f376] バルーン上でチェックボックス（擬似）つきの一行メモを実現させる。&br; （バックアップを取ってから導入を。&br; 処理が回りくどいかもしれないので、頑張れる人大歓迎）&br; **備考 [#qd12ca35] -メニューなどから『ToDoリスト＿準備』を呼び出してお使いください。 -操作用アイコンは画像です。icoフォルダにcheck0,check1,close,edit,no,ok.pngが必要です。~ サンプル http://ssp.shillest.net/etc/ico.zip サンプル https://ssp.shillest.net/etc/ico.zip -勝手に余白が入ります。ソース中の『sprintf,%-12s,』をいじればOK。 -replace.txtに[[こちら>関数#q7a98c64]]の記述をしてください。（もしかすると不要？） **変数一覧 [#r80ad8d5] -ToDo（ページ数）&br;ToDoのチェック有無とテキストを（b1）で区切り格納。1ページにつき1つ使用。 -ToDo現在ページ数&br;現在のページ数 （ページの切り替えに使う） ＜呼出時・初期化＞ -ToDo総合ページ数&br;ページの合計数 （ページの切り替え・追加削除に使う） -ToDotmp&br;一時的な変数の保存 **コード [#p712d63c] ＃-------------------------------------------------------------------- ＃ 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リスト
