L'Isola di Niente > Delphi倉庫

自作の VCL コンポーネントやクラスで他に役に立ちそうなものをいくつか公開します。
Delphi 5 で作成しています、著作権は放棄しますので適当に改造とかしてください。

ちなみに自作しているのを自慢したいだけで奉仕でもなんでもないです。

尚、超自分用に作っているのでコンポーネントにリソースアイコンはありません。
必要な人は自分でDCRファイルを作ってください（無責任！）。

Y901,Palepoliで本体のボタン類のほとんどに使っている

Glyph1　普通の状態
Glyph2　ボタン上にマウスが来て離れるまでの状態
Glyph3　ボタンを押した状態、又はへこんだ状態
Glyph4　無効状態

の画像を用意してそれぞれの画像に切り替えるコンポーネントです。
必要な画像のみ（無効状態がいらないとか）設定すればいいようになっています。
ビットマップイメージの左下端のピクセルの色が透過色になります。

欠点としてシステムフォント大に対応していません。
貼り付けるTFormのScaledはFalseで使う人だけ利用してください。

Download　GraphBtn02.lzh(3kb)

Y901,Palepoliのリサイズバーです。実はコンポーネントです。
TPanelかTFormに貼り付けてSplitModeを変更するだけで右か下に張り付いて自動でリサイズバーになります。 他に必要な人はあんまりいないと思いますが、こんな事もできる参考に。

Download　LineSplit01.lzh(2kb)

Y901 のリストメニューバーです、文字列の幅により自動で幅を調節します。
しかし他に誰かこんなん使うかなぁ…。

Download　MenuBtn01.lzh(3kb)

Palepoli のエディット部分です。
TMemo にフォーカスを失うと文字、選択色を変更できるように拡張（塗りつぶしているだけ）したのと カーソル行を一行選択するメソッドを追加しています。

Download　SpMemo01.lzh(3kb)

下記の Listutil.pas を Palepoli 用に丸ごと作り変えたソートクラスです。
ゴチャゴチャして解りにくいですがバケットソートに切り替えています。
もっとスマートなコードってどこかにないですか？見つからないから作ったんだけど…。

引数の TStringList はフルパスを入れるので注意してください。
WindowsXP のシェルソート順に完全対応しています。以下参照。

v1.1、余計な TList を作成していたので取っ払った

名前に数字が含まれるファイルやフォルダの並び順が Windows XP と Windows 2000 で異なる

Download　ExpSort02.lzh(4kb)

Y901で使っているフォルダの中身を抜いたTStringListを
Explorer同様＋拡張子別に並べ替える処理をまとめたクラスです。
見るからに効率が悪そうに見えますがY901のスピードで並べ替え出来ます。

こちらも WindowsXP のシェルソート順に完全対応しました。
本当は上記と共用に切り替えたいけどソレをやるには千行以上のコード変更が…。

Download　Listutil02.lzh(4kb)

FormatDateTime関数にいくつか英語指定が出来るように拡張したFormatDateTime2を定義したユニットです。 解る人はソースを見て爆笑してください、私はこんなアホな事平気でやっとります。

Download　NewDate01.lzh(3kb)

何に使うんだ？と思うでしょうけど実は Y901 で一箇所使っています。つーか同業者へのサービス。
尚コンポにすると当然見えませんので動的作成、破棄してください。

Download　xPanel01.lzh(2kb)