半透明の範囲指定

あんぽんたん  2011-12-02 17:09:51  No: 41303  IP: 192.*.*.*

お世話になります
Delphi2007を使用していますが、最近流行の短形範囲指定にて、
半透明の塗りつぶし対辺指定を行いたいのですが、方法が全く解りません。
対象OSはWin2K以降と考えております。
ご存じの方は宜しくお願いいたします。

編集 削除
あんぽんたん  2011-12-04 18:09:56  No: 41304  IP: 192.*.*.*

Rectangle()で、pmXorが効くとは知りませんでした。

Canvas.Pen.Mode  := pmXor;
Canvas.Brush.Color := RGB($64,$95,$ED);
Canvas.Rectangle(x1,y1,x2,y2);

何とかなりそうです。

編集 削除