//list memo //ver.3.141592 //母艦 !母艦設計=「母艦の可視はオフ エラー無視」 母艦のタイトルは「リストメモ」 母艦のサイズ変更した時は listの幅は母艦のクライアント幅/10*2 母艦の閉じた時は 終了処理 //存在か 存在確認処理 //変数 datafolder=「{母艦パス}data\」 listdata=「{datafolder}list.txt」を読んだもの settingdatafire=「{母艦パス}setting.txt」 //menu 「,ファ,ファイル(&F),,, -,ツイ,追加,Ctrl+P,,追加処理 -,ホゾ,保存,Ctrl+S,,保存処理 -,シュ,終了,Ctrl+W,,終了処理」をメニュー一括作成 //ホットキー 「Ctrl+A」に「textboxの全選択」をホットキー登録 //GUI listとはリスト そのレイアウトは「左」 その幅は母艦のクライアント幅/10*2 そのアイテムはlistdata そのダブルクリックした時は number=listの値 text読込処理 textboxとはメモ そのレイアウトは「全体」 その文字書体は「MS Pゴシック|12|」 母艦を中央移動 //settingdatafire読込処理 母艦の可視はオン /*●settingdatafire読込処理 もし、(settingdatafireの存在=1)ならば settingdata=settingdatafireを読んだもの settingdataとは配列 母艦のX=settingdata[0] 母艦のY=settingdata[1] 母艦のクライアント幅=settingdata[2] 母艦のクライアント高さ=settingdata[3] textboxの文字書体=settingdata[4]*/ ●存在確認処理 //フォルダが在るか もし、(datafolderのフォルダ存在=0)ならば datafolderにフォルダ作成 //ファイル二つが在るか //listfire もし、(「{datafolder}list.txt」の存在=0)ならば 空を「{datafolder}list.txt」へ保存 /*/numberfile もし、(「{datafolder}number.txt」の存在=0)ならば 空を「{datafolder}number.txt」へ保存*/ ●追加処理 追加項目=「何を追加しますか?」と尋ねる もし、追加項目=空でなければ 追加項目をlistdataに配列追加 listのアイテムはlistdata ●保存処理 もし、number=空でなければ textboxのテキストを「{datafolder}{number}.txt」へ保存 ●text読込処理 「{datafolder}{number}.txt」が存在 もし、それ=1ならば textboxのテキストは「{datafolder}{number}.txt」を読む 違えば、 空を「{datafolder}{number}.txt」へ保存 textboxのテキストは「{datafolder}{number}.txt」を読む ●終了処理 母艦の可視はオフ 母艦の終了可能はオフ listのアイテムを「{datafolder}list.txt」へ保存 「{母艦パス}datafolder\」のフォルダ削除 「{母艦パス}datafolderlist.txt」をファイル完全削除 /*「{母艦のX} {母艦のY} {母艦のクライアント幅} {母艦のクライアント高さ} {textboxの文字書体}」をsettingdatafireへ保存*/ 母艦の終了可能はオン 終了