Recent

Author Topic: GDI Brush Problem  (Read 4514 times)

hammster12

  • New member
  • *
  • Posts: 5
GDI Brush Problem
« on: April 02, 2011, 12:46:21 pm »
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

  • Administrator
  • Hero Member
  • *
  • Posts: 2496
Re: GDI Brush Problem
« Reply #1 on: April 05, 2011, 10:59:01 am »
I guess that bitmapbrushes aren't implemented on CE. please bugrep
//--
{$I stdsig.inc}
//-I still can't read someones mind
//-Bugs reported here will be forgotten. Use the bug tracker