Ahotari Web 848

　今まで問題なく再構築できた動いていたプロジェクト，いつものように再構築しようとしたらタイトルにあるエラーがでて動かない．
　ネットで検索したら「IDEが自動生成するリソースファイルを削除してもう一度再生成させたら？」「JEDIのコンポーネントを削除したら動いたよ」みたいな情報があったもののそれでは解決せず．数時間格闘の上見つけたのがこれでした．

{$R 'FooBar_Pics.res' 'FooBar_Pics.rc'}　※ファイル名は改変してあります

　リソーススクリプトファイルを指定すると勝手にコンパイルして取り込んでくれるというオプションです（が，バグなのか最初は自分でコマンドラインからコンパイルしないといけないとか風の噂で聞いていた）．問題のプロジェクトではプロジェクトファイルではなくてユニットファイルにこれを書いてあるのですが何となく怪しいと思ってコマンドラインからbrc32.exeで再コンパイルしてみたら今度は再構築できるようになりました．
　スクリプトファイルでは数十キロバイトの画像ファイルを2つ指定しているだけなのに.resファイルがなぜか1メガバイトを超えていました．再コンパイルしたら約100キロバイトになりました．IDEがコンパイルを重ねているうちに.resファイルにゴミのようなものがどんどん蓄積していったのかもしれません．

　以前，エラそうに記事にした「プロジェクトウィアード」は結局，作者本人がなんとか実用出来るようになったところで妥協して開発停止…だったのですが，開発環境をTurbo Delphi Explorer （※無料版Delphi 2006）に移行したのでそれにあわせて修正しています．

　その過程で気が付いたのですがDelphi 2006にはアイコントレイに常駐するためのコンポが標準で用意されているのですね．バルーンの表示も出来るようですし折角なのでこれを使うようにしてみました．

　さて本題．TrayIconコンポ（ネットで配布されているコンポとは名前は同じですが別物です）にはイメージリストコンポと接続してトレイアイコンに表示するイメージを切り替える機能があります．

Iconsプロパティ

トレイアイコンに表示する各イメージを格納しているイメージリストコンポを指定

IconIndexプロパティ

参照しているイメージリストのどの番号の絵をアイコントレイに表示させるか（先頭が0です）

　実行中にアイコントレイに表示させるアイコンを切り替えるのが簡単にできて便利なのですが，どうも実行して一番最初にインデックス0を指定すると切り替わらないようです．そこで実行して一番最初の変更時には一度0以外のインデックスに切り替えてから0に切り替えるようにしました．実行したときに一度切り替えて戻してしまっても良いでしょう．ただしこのコンポはアイコンを切り替えるまではアプリケーションアイコンを表示しますのでイメージリストに格納しているイメージがいずれもアプリケーションアイテムと異なる場合はやはり実行して一番最初の変更時に切り替えて戻さなければならないでしょう．

　「プロジェクトウィアード」は"weird"の名にふさわしくソフトのように似合わずますます怪しいソフトになってきました．しかし公開はまだ先になりそうです．

　毎度俺様メモなのですが…（近いうちにトップのページに現れないように直します）．

症状

　ビットマップを含むメタファイルをSetWorldTransformで180度回転したデバイスコンテキストに描画するとビットマップだけ描画されない

var
  xf: TXForm; // XForm
begin
    xf.eM11 := -1; //  Cos(180°)
    xf.eM12 :=  0; //  Sin(180°)
    xf.eM21 := -0; // -Sin(180°)
    xf.eM22 := -1; //  Cos(180°)
    xf.eDx  := Printer.Width;
    xf.eDy  := 2 * Printer.Height;
    SetWorldTransform(Printer.Canvas.Handle, xf);
    Printer.Canvas.Draw(MyMetafile);
    //※以下略

環境

　Borland Delphi 5

不具合の発生条件

　少なくとも，Windows 2000で180°回転を意図してem12, em21に180°の正弦値として0を指定したとき．

処方

　180°の時には定数0を指定せずに sin(pi) などを使う．

メモ

　いくつかの角度で試しただけですがその中で不具合が発生したのは180°のときでかつ定数（この場合は0）を指定した場合のみでした．Sin関数を使った場合は正常に動作しました．驚いたことに統合環境で関数の戻り値を見ると0ではなくて-5.4210108624e-20となっていました．

　Delphiでは浮動小数の0を表現するのに 0 を使ってはいけないのかと思って int(0.1) （小数点以下を切り捨てて浮動小数形式で返す）も試してみましたが戻り値を見てみるとやはり0で不具合が起きましたので0を渡してはいけないようです．