🏠 ホーム 🔧 自作ツール 📓 日常のブログ 🍜 飯のブログ 📚 勉強のブログ 🗂️ その他のブログ
👃 TTManager32's Code - NoseScape

てんともち / TTManager32 Public

todo_list.hsp 1,092 Bytes
//フォントの適応
font "",TrueScale(Var_FontSizeOfTodoList) : objmode 2
objsize TrueScale(303),TrueScale(300)
//Todo一覧
pos TrueScale(696),TrueScale(000) : listbox listboxInt,0,"ToDoリストをロード中"
hListboxInt = objinfo(stat, 2)
objenable 55,0

//それぞれの概要
listboxTitle=""
listboxLimit=""
listboxDetail=""
pos TrueScale(696),TrueScale(290) : input  listboxTitle ,TrueScale(302),TrueScale( 42),0 : tmp = objinfo(stat, 2) : sendmsg tmp, $CF, 1 : objenable 56,0
pos TrueScale(696),TrueScale(332) : input  listboxLimit ,TrueScale(302),TrueScale( 42),0 : tmp = objinfo(stat, 2) : sendmsg tmp, $CF, 1 : objenable 57,0
pos TrueScale(696),TrueScale(374) : mesbox listboxDetail,TrueScale(305),TrueScale(178),0 : tmp = objinfo(stat, 2) : sendmsg tmp, $CF, 1 : objenable 58,0

font "",Var_FontSizeOfButton : objmode 2
objsize TrueScale(1000-696)/2,TrueScale(50)
pos TrueScale(696),TrueScale(552)              : button gosub "タスクを追加する",*AddTask : objenable 59,0
pos TrueScale(696+(1000-696)/2),TrueScale(552) : button gosub "タスクを完了する",*DelTask   : objenable 60,0