Lazarus

Programming => Operating Systems => Windows CE => Topic started by: hammster12 on April 02, 2011, 12:46:21 pm

Title: GDI Brush Problem
Post by: hammster12 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!
Title: Re: GDI Brush Problem
Post by: Marc on April 05, 2011, 10:59:01 am
I guess that bitmapbrushes aren't implemented on CE. please bugrep
TinyPortal © 2005-2018