この予定メモというのは、予定や行事といったものを、１行メモのように、保存表示できるソフトです。とりあえずできましたが、かなり大変でした。
ちなみに、「Y'sカレンダー ver1.23」をベースにしていますが、表示形態など、かなり異なります。
{▼ここから}
{---プログラム掲示板投稿フォーム---
【ソフト名】予定メモ (バージョン 0.10)
【作 成 者】Yosshy (連絡先:yosshy4@m21.alpha-net.ne.jp)
【種 別】フリーソフトウェア
【ひまわりのバージョン】ver.1.57
【転 載】可(転載条件:作者にメールで連絡すること)
【改変運用】可
【ひまわり本体への梱包】可
【実行時に利用作成するファイル】予定メモ.txt(ヘルプファイルとして利用)
Yoteimemo.ini(設定ファイル)
Yoteidata.dat(データファイル)
【コメント】何とかできました。
とにかく苦労した点は、予定を書き込むイベントに、予定の保存、消去。
そういったところです。
まだこれからも少しずつ手を加えていきたいと思います。
完成は程遠い・・・。
---投稿フォームここまで---}
「User32」の、「DWORD GetSystemMenu(DWORD,BOOL)」を、「?,?」の、「API_GetSystemMenu」として、DLLを利用。
「User32」の、「BOOL EnableMenuItem(DWORD,int,int)」を、「?,?,?」の、「API_EnableMenuItem」として、DLLを利用。
＊設定フォーム
オプションフォームを、作る。
その、スタイルは、ダイアログスタイル。その、可視は、オフ。
その、背景色は、ウインドウ色。その、幅は、400。その、高さは、200。
その、テキストは、「表示設定」。
文字サイズ=11。
(10,10)に、色設定ラベルを、作る。
そを、オプションフォームに、乗せる。
その、幅は、380。その、高さは、80。
その、透過処理は、オフ。
その、背景色は、白色。
(25,30)に、色0ボタンを、作る。
そを、オプションフォームに、乗せる。
その、フォントサイズは、10。
その、テキストは、「平日」。
その、フォント色は、黒色。
その、イベントは、(
色選択。
色0ボタンの、フォント色は、それ。
F色0=それ。
)
(120,30)に、色2ボタンを、作る。
そを、オプションフォームに、乗せる。
その、フォントサイズは、10。
その、テキストは、「土曜」。
その、フォント色は、青色。
その、イベントは、(
色選択。
色2ボタンの、フォント色は、それ。
F色2=それ。
)
(215,30)に、色1ボタンを、作る。
そを、オプションフォームに、乗せる。
その、フォントサイズは、10。
その、テキストは、「日曜」。
その、フォント色は、赤色。
その、イベントは、(
色選択。
色1ボタンの、フォント色は、それ。
F色1=それ。
)
(310,30)に、色3ボタンを、作る。
そを、オプションフォームに、乗せる。
その、フォントサイズは、10。
その、テキストは、「祝日」。
その、フォント色は、赤色。
その、イベントは、(
色選択。
色3ボタンの、フォント色は、それ。
F色3=それ。
)
(25,65)に、枠表示チェックを、作る。
そを、オプションフォームに、乗せる。
その、テキストは、「今日のところに背景色をつける」。
その、幅は、250。
その、値は、オフ。
その、イベントは、(
もし、(枠表示チェックの、値)=オンならば、枠C=1。
違えば、枠C=0。
)
(310,60)に、色4ボタンを、作る。
そを、オプションフォームに、乗せる。
その、フォントサイズは、10。
その、テキストは、「今日」。
その、フォント色は、緑色。
その、イベントは、(
色選択。
色4ボタンの、フォント色は、それ。
F色4=それ。
)
(10,100)に、曜日設定ラベルを、作る。
そを、オプションフォームに、乗せる。
その、幅は、380。
その、透過処理は、オフ。
その、背景色は、白色。
(100,100)に、曜日設定コンボを、作る。
そを、オプションフォームに、乗せる。
その、幅は、250。
その、アイテムは、「日,月,火,水,木,金,土\nＳ,Ｍ,Ｔ,Ｗ,Ｔ,Ｆ,Ｓ\nSun,Mon,Tue,Wed,Thu,Fri,Sat\nＤ,Ｌ,Ｍ,Ｍ,Ｊ,Ｖ,Ｓ\nDim,Lun,Mar,Mer,Jeu,Ven,Sam\nＳ,Ｍ,Ｄ,Ｍ,Ｄ,Ｆ,Ｓ\nSon,Mon,Die,Mit,Don,Fre,Sam\n休,平,平,平,平,平,休\n復,元,懸,中,疲,倒,休」。
その、値は、0。
その、イベントは、(
(曜日設定コンボの、値)で、条件分岐。
0の時、F曜日=「日,月,火,水,木,金,土」。
1の時、F曜日=「Ｓ,Ｍ,Ｔ,Ｗ,Ｔ,Ｆ,Ｓ」。
2の時、F曜日=「Sun,Mon,Tue,Wed,Thu,Fri,Sat」。
3の時、F曜日=「Ｄ,Ｌ,Ｍ,Ｍ,Ｊ,Ｖ,Ｓ」。
4の時、F曜日=「Dim,Lun,Mar,Mer,Jeu,Ven,Sam」。
5の時、F曜日=「Ｓ,Ｍ,Ｄ,Ｍ,Ｄ,Ｆ,Ｓ」。
6の時、F曜日=「Son,Mon,Die,Mit,Don,Fre,Sam」。
7の時、F曜日=「休,平,平,平,平,平,休」。
8の時、F曜日=「復,元,懸,中,疲,倒,休」。
)
(10,130)に、年月表示ラベルを、作る。
そを、オプションフォームに、乗せる。
その、幅は、380。
その、透過処理は、オフ。
その、背景色は、白色。
(100,130)に、年月表示コンボを、作る。
そを、オプションフォームに、乗せる。
その、幅は、150。
その、アイテムは、「日本語\n英語\nフランス語\nドイツ語\nイタリア語\nスペイン語\n日本語異名\nラテン語」。
その、値は、0。
その、イベントは、(
(年月表示コンボの、値)で、条件分岐。
0の時、F年月=「日本語」。
1の時、F年月=「英語」。
2の時、F年月=「フランス語」。
3の時、F年月=「ドイツ語」。
4の時、F年月=「イタリア語」。
5の時、F年月=「スペイン語」。
6の時、F年月=「日本語異名」。
7の時、F年月=「ラテン語」。
)
(20,160)に、デフォルトボタンを、作る。
そを、オプションフォームに、乗せる。
その、イベントは(
色0ボタンの、フォント色を、黒色に、設定。F色0=黒色。
色1ボタンの、フォント色を、赤色に、設定。F色1=赤色。
色2ボタンの、フォント色を、青色に、設定。F色2=青色。
色3ボタンの、フォント色を、赤色に、設定。F色3=赤色。
色4ボタンの、フォント色を、緑色に、設定。F色4=緑色。
枠表示チェックの、値を、オンに、設定。枠C=1。
曜日設定コンボの、値を、0に、設定。F曜日=「日,月,火,水,木,金,土」。
年月表示コンボの、値を、0に、設定。F年月=「日本語」。
)
(220,160)に、OKボタンを、作る。
そを、オプションフォームに、乗せる。
その、イベントは(
色0=F色0。それは、色0。
「色設定」の、「色0」へ、INIファイル書く。
色1=F色1。それは、色1。
「色設定」の、「色1」へ、INIファイル書く。
色2=F色2。それは、色2。
「色設定」の、「色2」へ、INIファイル書く。
色3=F色3。それは、色3。
「色設定」の、「色3」へ、INIファイル書く。
色4=F色4。それは、色4。
「色設定」の、「色4」へ、INIファイル書く。
週=F曜日。それは、週。
「表示設定」の、「週表示」へ、INIファイル書く。
今日表示=枠C。それは、今日表示。
「表示設定」の、「今日表示」へ、INIファイル書く。
年月表示=F年月。それは、年月表示。
「表示設定」の、「年月表示」へ、INIファイル書く。
オプションフォームの、可視は、オフ。
コントロールフォームの、有効は、オン。
記念日フォームの、有効は、オン。
母艦の、有効は、オン。
文字サイズ=12。
メインへ、飛ぶ。
)
(300,160)に、キャンセルボタンを、作る。
そを、オプションフォームに、乗せる。
その、イベントは(
オプションフォームの、可視は、オフ。
コントロールフォームの、有効は、オン。
母艦の、有効は、オン。
文字サイズ=12。
)
システムメニューのハンドル=API_GetSystemMenu((オプションフォームの、ハンドル),0)
API_EnableMenuItem(システムメニューのハンドル,$F060,1)
＊コントロールパネル
コントロールフォームを、作る。
その、スタイルは、ダイアログスタイル。
その、可視は、オン。
その、テキストは、「操作パネル」。
その、幅は、160。
その、高さは、190。
コントロールフォームを、最前面。
文字サイズ=10。
(10,10)に、任意月エディタを、作る。
そを、コントロールフォームに、乗せる。
その、幅は、120。
その、テキストは、「{今日}」。
(130,10)に、Goボタンを、作る。
そを、コントロールフォームに、乗せる。
その、幅は、20。
その、イベントは(
それは、(任意月エディタの、テキスト)。
もし、それ=「」ならば、待機。
もし、文字数(それ)=10でなければ、待機。
当日=それ。今月=LEFT(当日,8)&「01」。
メインへ、飛ぶ。
)
(4,45)に、前年ボタンを、作る。
そを、コントロールフォームに、乗せる。
その、幅は、20。
その、テキストは、「≪」。
その、イベントは(
当日=日付加算(当日,「-1/0/0」)。
今月=LEFT(当日,8)&「01」。
メインへ、飛ぶ。
)
(26,45)に、前月ボタンを、作る。
そを、コントロールフォームに、乗せる。
その、幅は、20。
その、テキストは、「＜」。
その、イベントは(
当日=日付加算(当日,「-0/1/0」)。
今月=LEFT(当日,8)&「01」。
メインへ、飛ぶ。
)
(48,45)に、昨日ボタンを、作る。
そを、コントロールフォームに、乗せる。
その、幅は、20。
その、テキストは、「－」。
その、イベントは(
当日=日付加算(当日,「-0/0/1」)。
今月=LEFT(当日,8)&「01」。
メインへ、飛ぶ。
)
(70,45)に、現在日ボタンを、作る。
そを、コントロールフォームに、乗せる。
その、幅は、20。
その、テキストは、「○」。
その、イベントは(
当日=今日。
今月=LEFT(当日,8)&「01」。
メインへ、飛ぶ。
)
(92,45)に、明日ボタンを、作る。
そを、コントロールフォームに、乗せる。
その、幅は、20。
その、テキストは、「＋」。
その、イベントは(
当日=日付加算(当日,「0/0/1」)。
今月=LEFT(当日,8)&「01」。
メインへ、飛ぶ。
)
(114,45)に、来月ボタンを、作る。
そを、コントロールフォームに、乗せる。
その、幅は、20。
その、テキストは、「＞」。
その、イベントは(
当日=日付加算(当日,「0/1/0」)。
今月=LEFT(当日,8)&「01」。
メインへ、飛ぶ。
)
(136,45)に、来年ボタンを、作る。
そを、コントロールフォームに、乗せる。
その、幅は、20。
その、テキストは、「≫」。
その、イベントは(
当日=日付加算(当日,「1/0/0」)。
今月=LEFT(当日,8)&「01」。
メインへ、飛ぶ。
)
(35,80)に、方法ラベルを、作る。
そを、コントロールフォームに、乗せる。
その、テキストは、「≪:１年戻る\n＜:１ヶ月戻る\n－:１日戻る\n○:今日\n＋:１日進む\n＞:１ヶ月進む\n≫:１年進む\nGo:記した月へ」。
システムメニューのハンドル=API_GetSystemMenu((コントロールフォームの、ハンドル),0)
API_EnableMenuItem(システムメニューのハンドル,$F060,1)
＊カレンダー用パネル
カレンダーフォームを、作る。
その、スタイルは、ダイアログスタイル。
その、可視は、オン。
その、高さは、160。
その、幅は、180。
文字サイズは、12。
(10,0)に、年月用ラベルを、作る。
そを、カレンダーフォームに、乗せる。
その、幅は、160。その、高さは、20。
その、透過処理は、オフ。
7回(
「((回数-1)*25+5,20)に、曜日{回数}ラベルを、作る。」を、ひまわりする。
そを、カレンダーフォームに、乗せる。
その、幅は、25。その、高さは、20。
その、透過処理は、オフ。
)
6回(iy=回数。
7回(jx=回数。
「((jx-1)*25+5,(iy+1)*20)に、日付{(iy-1)*7+jx}ラベルを、作る。」を、ひまわりする。
そを、カレンダーフォームに、乗せる。
その、幅は、25。その、高さは、20。
その、透過処理は、オフ。
その、テキストは、「---」。
)
)
システムメニューのハンドル=API_GetSystemMenu((カレンダーフォームの、ハンドル),0)
API_EnableMenuItem(システムメニューのハンドル,$F060,1)
＊行事入力パネル
入力フォームを、作る。
その、スタイルは、ダイアログスタイル。
その、可視は、オフ。
その、高さは、60。その、幅は、200。
(0,0)に、行事入力エディタを、作る。
そを、入力フォームに、乗せる。
その、幅は、200。その、高さは、30。
その、テキストは、「ここに行事を記入」。
(70,30)に、登録ボタンを、作る。
そを、入力フォームに、乗せる。
その、幅は、60。その、高さは、30。
その、イベントは、(
もし、(行事入力エディタの、テキスト)<>「」ならば、(
「0,{入力フォームの、テキスト},{行事入力エディタの、テキスト}\n」を、『Yoteidata.dat』へ、追加保存。
入力フォームの、可視は、オフ。
メインへ、飛ぶ。
)
違えば、(
『入力を終了しますか』と、二択。
もし、それが、はいならば、(入力フォームの、可視は、オフ。)
)
)
＊行事消去パネル
消去フォームを、作る。
その、スタイルは、ダイアログスタイル。
その、可視は、オフ。
その、高さは、60。その、幅は、200。
(0,0)に、行事消去エディタを、作る。
そを、消去フォームに、乗せる。
その、幅は、200。その、高さは、30。
その、テキストは、「ここに行事を記入」。
その、IMEは、IMEひらがな。
(0,30)に、行事消去日エディタを、作る。
そを、消去フォームに、乗せる。
その、幅は、120。その、高さは、30。
その、テキストは、「日付」。
その、IMEは、IMEオフ。
(130,30)に、実行ボタンを、作る。
そを、消去フォームに、乗せる。
その、幅は、60。その、高さは、30。
その、イベントは、(
存在判定=オフ。
もし、(行事消去エディタの、テキスト)<>「」ならば、(
F行事数回(
もし、((行事消去日エディタの、テキスト)=F全行事#1#(回数-1))&&((行事消去エディタの、テキスト)=F全行事#2#(回数-1))ならば(
F全行事の、(回数-1)行目を、行削除。
それを、「Yoteidata.dat」へ、保存。
存在判定=オン。
消去フォームの、可視は、オフ。
メインへ、飛ぶ。
)
)
もし、(存在判定=オフ)ならば、(
『この日にこのイベントはありません。』と、言う。
『消去を終了しますか』と、二択。
もし、それが、はいならば、(消去フォームの、可視は、オフ。)
)
)
違えば、(
『消去を終了しますか』と、二択。
もし、それが、はいならば、(消去フォームの、可視は、オフ。)
)
)
{▲続く}
|
予定メモ ver.0.10(前編)
/Yosshy (02/09/21(Sat) 12:06) [128]