ちょっと色々なことをやろうとして混乱中だ。

拙作のシステム手帳リフィル印刷ソフト『我備帖』に幾つかリフィルを追加したのだが、それがほとんどの人には不要な機能なのだ。
そこで、それらを外部に切り出し、必要な人だけが機能追加できるようにしたいと思い、試行錯誤を繰り返している。
ということで、今まで一度も使ったことのないＤＬＬ呼び出しに挑戦中なのだ。
追加機能をＤＬＬに分離し、我備帖はＤＬＬがあればその機能をメインメニューに登録する。
でも、これがなかなか大変。目途がついたところから、備忘録としてここに書いて行こうかと思う。

で、まず、Delphiのメインメニューに動的に項目を追加する方法だ。

procedure TForm1.AddMenuItem;
var
  mi :TMenuItem;
  method: TMethod;
begin
  method.Code := @TheMethod;  // 実行したい機能のポインタ
  method.Data := Pointer(TheParameter);  // 引数のポインタ
	
  mi :=TMenuItem.Create(Self);
  mi.Caption := 'メニューの見出し';
  mi.Name := 'AddedMenuName';
  mi.OnClick := TNotifyEvent(method);  //イベントの動的割り当て
  MainMenu.Items[0].Insert(0, mi);  //メニューに挿入
end;

と、こんな感じか。

MainMenu.Items[0].Insert(0, mi) がミソで、"0″を変えれば追加項目をメニューの任意の場所に挿入することができる。最後に追加するだけなら、MainMenu.Items.Add(mi) でよい。ほぼ同様の手順でポップアップメニューへの項目追加も可能だ。

実際のコードでは、ＤＬＬを検索し、登録されている関数を読み込んでメニューのOnClickに関連づけることになる。その辺はまた今度。

今日のウォーキングは、久しぶりの真鶴半島。

	イソヒヨドリ トリミング
	メジロ
	アオゲラ トリミング

思ったほど冬鳥には出会えなかった。

今年も有休消化を兼ねて、行ってきました。

廉価な子株を数鉢、買ってきてしまった。置き場所も無いのに……デンドロ、エピデンドラム、など
お店の売り子の若い女の子たちが、みんなきれいな気がする――日本人も台湾人も、その他も。

土曜日は、ＪＲ東海道線の藤沢駅から江ノ島へ、そこから江ノ島電鉄に沿って七里ヶ浜、稲村ヶ崎、由比ヶ浜と廻って鎌倉へ。さらに北鎌倉まで歩いてみた。約１４キロの行程だった。

	江ノ島、龍口明神社前の交差点にさしかかる江ノ電３００形。 この３０５・３５５編成が江ノ電で一番古い、と鉄っちゃんの少年が教えてくれた。
	江ノ島駅を出た鎌倉行き電車が交差点にさしかかる。車体が左右に傾いている。
	江ノ島。浜には海草が干されていた。
	鎌倉高校前駅辺りは、国道１３４を挟んで浜に沿って走る。 駅の向こう側の踏切には観光客がたくさんいた。スラムダンクの聖地巡礼？らしい。まだ春節休みか。
	レトロ車両の１０形。１９９７年製と、古くはない。
	稲村ヶ崎からの眺望。江ノ島と富士山。
	極楽寺駅付近。
	鎌倉の小町通り。人、多過ぎ。 通り抜けるのは諦めた。
	横須賀線の北鎌倉駅。東海道線色のＥ２３３系。この色の電車を見るとほっとする。

藤沢〜江ノ島間は歩いても特に面白くは無い。江ノ島スタートの方が効率がいいだろう(何の？)。