Caption DBNavigator

ソフト詳細説明

　DBNavigatorは便利なんですけど，ボタンにキャプションがないのでなんかさみしい(^^;
　そんなわけで，ボタンのキャプションが表示可能になっています。でもそれだけじゃぱっとしませんよね。OnMouseMoveイベントによって，どのボタンの上にマウスポインタがあるかわかります。マウス上のボタンのキャプションのフォント色がOnMoveColorプロパティで変更できます。ボタンの幅を取得できます。

（追加されたプロパティ＆イベント）

Captionsプロパティ Tstrings型
10個のNavigatorボタンに独自のキャプションを指定する場合にこの
プロパティを使います。

CaptionLayoutプロパティ TCaptionLayout型
Navigatorボタンのビットマップの位置を指定します。
上，下，右，左の何れかになります。
TCaptionLayout = (cbLeft, cbRight, cbTop, cbBottom);

ShowCaption Boolean型
キャプションを表示する場合Trueにします。デフォルトはTrueです。

ShowGlyphプロパティ Boolean型
ビットマップを表示する場合Trueにします。デフォルトはTrueです。

Fontプロパティ Tfont型
キャプションのフォントを指定します。

OnMouseColor Tcolor型
OnMouseMoveしているボタンのフォント色を指定します。
デフォルトはclBlueです。

BtnWidthプロパティ Integer型（実行時のみ，読取りのみ）
一つのボタンの幅を取得します。

OnMouseMoveイベント
ENavMouseMove = procedure (Sender: Tobject; Shift: TShiftState;
　　　　　　　　X, Y: Integer; Button: TNavigateBtn) of object;
ボタン上でマウスポインタを移動したときに発生するイベントです。
Buttonパラメーターでどのボタン上にマウスポインタがあるか判断可能です。（OnClickイベントのButtonパラメーターと同様です。）

動作環境