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

この発言に対し以下のコメントが寄せられています

#00477　Quiri           さん　RE^2:ハートのフォーム




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に作ったリージョンがメモリに残る
事になります。

ですので、

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

DeleteObject(Rgn2);

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

DeleteObject(Rgn2);
DeleteObject(Rgn3);

>Rgn2:=CreateEllipticRgn(0,0,2*size,2*size);
>Rgn3:=CreateRectRgn(0,0,size,size);

等とします。

                                 98/03/20(金) 09:37 謎の全知師(QZE10125)

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

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