GDI Brush Problem

[hammster12]

I would like to use as a brush an image for filling a circle on canvas-drawing.
It works on Win32 but not on WinCE.
On WinCE I get a black circe instead of an image-filled circle.
What do you think what is the problem?

Code: [Select]

procedure TForm1.Button1Click(Sender: TObject);
var a:trect;
begin
     form1.Canvas.Brush.Bitmap:=tbitmap.create;
     form1.Canvas.Brush.Bitmap.SetSize(100,100);
     a.Top:=0;
     a.Bottom:=100;
     a.Left:=0;
     a.Right:=100;
     form1.Canvas.Brush.Bitmap.Canvas.GradientFill(a,clgreen,clred,gdVertical);
     form1.Canvas.EllipseC(50,50,30,30);
     form1.Canvas.Brush.Bitmap.Free;
end;

Thank you for your help in advance!

[Marc]

I guess that bitmapbrushes aren't implemented on CE. please bugrep