過去に公開していた自作ソフトウェア(Windows / MS-DOS)を整理。
掲載しているのは以下。
- Advanced X-TREE-M
- ちょちょいとグランミックス
- ちょちょいと更新ペタポン
- ちょちょいとメモリモニター
- ホントの暇つぶし
掲載しているのは以下。
void TFormTest01::Test01() { TransparentColor = true; TransparentColorValue = TColor(0x000001); Canvas->Brush->Color = TColor(0x000001); Canvas->FillRect(TRect(0, 0, 300, 300)); Panel2->Color = TColor(0x000001); }TransparentColor プロパティを true にすることで透過モードとなり、フォーム上の TransparentColorValue プロパティで指定した色(コンポーネント同士の重なりに関係なく、指定した色で塗られている部分はすべて)が完全透過となる。半透明にすることはできない。
void TFormTest01::Test02() { AlphaBlend = true; AlphaBlendValue = 128; }AlphaBlendValue = 0 で完全透明、AlphaBlendValue = 255 で完全不透明、その中間で半透明となる。
void TFormTest01::Test07() { GlassFrame->Enabled = true; GlassFrame->SheetOfGlass = true; }GlassFrame->Enabled を true にするとグラスフレーム拡張モードとなり、GlassFrame->SheetOfGlass も true にすることで、クライアント領域全体でガラス効果を得られる。GlassFrame->SheetOfGlass を false にして、GlassFrame->Bottom などのプロパティで任意の範囲でガラス効果を得るようにすることもできる。