SetBkMode(pDC, TRANSPARENT);
Наверное будет правильно добавить эту строку во все элементы использующие штриховые кисти (свойсто Style): Img_Rectangle, Img_Ellipse, Img_Arc, Img_Polygon, Img_FloodFill.
Вместо этого (hiImg_Rectangle.pas):
45 else46 br := CreateHatchBrush(ord(_prop_Style) - 2, sColor);
elsebegin
SetBkMode(pDC, TRANSPARENT);
br := CreateHatchBrush(ord(_prop_Style) - 2, sColor);
end;