[Bug 13156] ETO_OPAQUE and clear style are not transparent on a bitmap

http://bugs.winehq.org/show_bug.cgi?id=13156

--- Comment #2 from Heiko Tietze   2008-05-13 02:32:10 ---
Created an attachment (id=12998)
 --> (http://bugs.winehq.org/attachment.cgi?id=12998)
simple test program

procedure TForm1.Button1Click(Sender: TObject);
var bmp:TBitmap;
begin
  bmp:=TBitmap.Create;
  with bmp do
  try
    Width:=75;
    Height:=100;
    with Canvas do
    begin
      //background
      Brush.Style:=bsSolid;
      Brush.Color:=clYellow;
      FillRect(ClientRect);
      //foreground
      TextFlags:=ETO_OPAQUE;
      {ETO_OPAQUE       The text is drawn with an opaque background color.
      Using this flag improves performance but does not allow images
      behind the text rectangle to show.}
      Brush.Style:=bsClear;
      Font.Color:=clBlack;
      Font.Size:=72;
      TextOut(1,1,'A');
    end;
    Form1.Canvas.Draw(10,10,bmp);
  finally
    Free;
  end;
end;