bool LastBeen;
HRGN ComplexRGN,TempRGN;
ComplexRGN=CreateRectRgn(10,10,10,10);
for(y=0;y<Bitmap->Height;y++)
{FirstX=0;LastBeen=false;
for(x=0;x<Bitmap->Width;x++)
{if((abs(Bitmap->Canvas->Pixels[x][y] - TransparentColor)>Range))
{if(!LastBeen) {LastBeen=true;FirstX=x;}}
else{if(LastBeen){
LastBeen=false;
TempRGN=CreateRectRgn(FirstX,y,x,y+1);
CombineRgn(ComplexRGN,ComplexRGN,TempRGN,RGN_OR);
DeleteObject(TempRGN);}}}}
SetWindowRgn(Form1->Handle,ComplexRGN,true);
The girl has caught a small gold fish and keeps so, that at her of an eye to get out. The fish speaks: - Not keep me, I shall execute any your three desires. - Well make to me a nose large, large and that in him everywhere the hairs grow. - It is good, else what? - And it is possible for me of ears large, large and that a hair everywhere and more. - Please. - And still that the tail was also all in a hair, hair. - Yes for the sake of the god. The girl has let off a fish, she and speaks: - Strange at you of desire however. I surprising, of all who thinks desires, ask of health there, mind, riches... - And what was possible???
