この発言は
#01134　かとちん        さんのビットマップ→アイコン ファイル変換処理
に対するコメントです



訂正です。ビットマップファイルによって、色値がシステムパレットに
（$2000000 との OR）になってしまう場合がありますので、透過がうまくいき
ません。次のように修正してください。

#1134-49行目

>         TransColor := Base.TransparentColor;
　　　　　　           ↓
          TransColor := ColorToRGB(Base.TransparentColor) and $FFFFFF;

それと使用例は括弧が足りなかったです。申し訳ありません。
#1134-111行目

>       SaveToFile(ChangeFileExt(BmpFileName, '.ico');
　　　　　　           ↓
        SaveToFile(ChangeFileExt(BmpFileName, '.ico'));


▲●    2000/07/11 13:14 JDX06162(とんちんかんちんかとちん)
 ■     Inprise Delphi ... The Great Development Kit
uses D2Desktop, D3CSS, D4CSS, D5ENT;
 


Original document by かとちん        氏 ID:(JDX06162)

ここにあるドキュメントは NIFTY SERVEの Delphi Users' Forum の16番会議室「玉石混淆みんなで作るSample蔵」に投稿されたサンプルです。これらのサンプルはボーランド株式会社がサポートする公式のものではありません。また、必ずしも動作が検証されているものではありません。これらのサンプルを使用したことに起因するいかなる損害も投稿者、およびフォーラムスタッフはその責めを負いません。使用者のリスクの範疇でご使用下さい。