半透明の範囲指定

あんぽんたん 2011-12-03 02:09:51 No: 41303

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

あんぽんたん 2011-12-05 03:09:56 No: 41304

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

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

何とかなりそうです。