この発言は
#00457　Quiri           さんのハートのフォーム
に対するコメントです



Quiri さん、こんにちは。謎の全知師です。

>Rgn1:=CreateEllipticRgn(-(2*size),-(2*size),4*size,4*size);
>Rgn2:=CreateRectRgn(2*size,size,4*size,4*size);
>combinergn(Rgn1,Rgn1,Rgn2,1);
>Rgn2:=CreateEllipticRgn(0,-(2*size),6*size,4*size);
>Rgn3:=CreateRectRgn(0,size,2*size,4*size);

このやり方だと、Rgn2やRgn3に作られたリージョンが破棄されず
残ったままになります。
CombineRgnした後は不要なリージョンはDeleteObjectした方が
良いでしょう。

                                 98/03/17(火) 10:45 謎の全知師(QZE10125)

Original document by 謎の全知師      氏 ID:(QZE10125)

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