Delphi

Xakep, номер #049, стр. 049-084-3

i_left := j;

end

else

if rgnBitmap.Canvas.Pixels[j, i] = transColor then

begin

i_right := j;

rectRgn := CreateRectRgn(i_left, i, i_right, i + 1);

if Result = 0 then

Result := rectRgn

else

begin

CombineRgn(Result, Result, rectRgn, RGN_OR);

DeleteObject(rectRgn);

end;

i_left := -1;

end;

end;

if i_left >= 0 then

begin

rectRgn := CreateRectRgn(i_left, i, i_width, i + 1);

if Result = 0 then

Result := rectRgn

else

begin

CombineRgn(Result, Result, rectRgn, RGN_OR);

DeleteObject(rectRgn);

end;

end;

end;

end;