netail.net

_ Delphi ▲

ドラッグ中のキーボード状態を取得するのには，KeyboardStateToShiftState というのを使えばいいらしい．VCL ヘルプに載ってないけど……．

CTRL が押されたら DragObject を継承して作ったCopy プロパティを ON にして，Copy プロパティが ON かどうかでドラッグ中のカーソルキーの値を返すようにgetDragCursor をオーバーライドしてみた．

カーソル自体も自作．影は付かないけど，Windows システムカーソルを手本にそれっぽいコピー時用のカーソルを作ってみた．[ツール]-[イメージエディタ]で書いてMYCURSOR CURSOR "ファイル名"const crMyCursor = 1;Screen[crMyCursor] := LoadCursor(hinstance, "MYCURSOR");とするだけ．けっこう簡単でいい．

_ Calendar ▲

周期予定の GUI を大幅修正開始．データ構造はまったく変わってないが，ListView を使うところを TreeView に完全に置換する．