徒然なるままに、日ぐらしP/Cに向ひて――
メインメニュー
ブログカレンダー
2017年 2月
« 1月   4月 »
 1234
567891011
12131415161718
19202122232425
262728  
WordPress カテゴリ一覧
WordPress 検索


富士カメラ5

Kestrel とは、チョウゲンボウのことです。ハトくらいの小さな猛禽類、つまりワシの仲間で、ハヤブサに似ています。
チョウゲンボウにはホバリングという特技があります。よく農地の上空で空中に停止している姿が見られます。小さいけれどカッコイイ、そして最近は都会でも繁殖している頼もしいタカです。
このサイトのURLは、そんなチョウゲンボウから名前を借りました。

2017年2月28日(火曜日)

Delphiのメニューに項目を動的に追加する

カテゴリー: - flyman @ 14時07分11秒

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

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

で、まず、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) でよい。ほぼ同様の手順でポップアップメニューへの項目追加も可能だ。

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


2017年2月18日(土曜日)

真鶴

カテゴリー: - flyman @ 14時28分14秒

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

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

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


2017年2月15日(水曜日)

世界らん展日本大賞2017

カテゴリー: - flyman @ 12時26分46秒

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

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


2017年2月5日(日曜日)

江ノ電に沿って歩く

カテゴリー: - flyman @ 13時40分53秒

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

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

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


22 queries. 0.065 sec.
Powered by WordPress Module based on WordPress ME & WordPress

ヘッドライン
nikkansports
テーマ選択

(4 テーマ)