半透明でドラッグ(3)

要するに、チラつくのは描画する順番に問題があるんですよ。専ら VCL の機能に依存してるんでその辺の無駄、「消しては描き描いては消し」の挙動を制圧できない。ですから描画を一本化した単一の描画コンポーネントをあつらえれば解決すると思うんですが、メンドーさ。ああメンドーなのさ。

と言うわけで、TImage を動的に生成しペーストする画像を割り当ててドラッグ部分を実装。楽チン楽チン。RAD とはかくあれかし。……半透明やりたいよう･ﾟ･(つдＴ)･ﾟ･
この方法で領域に枠をつけてやろうと思って

procedure TPastedImage.Paint; {override}
begin
　　inherited Paint;
　　inherited Canvas.DrawFocusRect( Rect(0,0,Width,Height) );
end;

って書いたら異常にちらついてしまいます。原因不明。まったく不明。意味不明。

枠がないと見難いよねぇ……？　ううーむ。なーぜーだー。

http://hx.sakura.ne.jp/~masakazz/ngym/garakuta/pdw0003.lzh