GDI Brush Problem
Original Reporter info from Mantis: hammster12
-
Reporter name: newport
Original Reporter info from Mantis: hammster12
- Reporter name: newport
Description:
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?
Thank you for your help in advance!
Steps to reproduce:
Code:
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;
Mantis conversion info:
- Mantis ID: 19152
- OS: Windwos CE
- OS Build: 5.0
- Build: i386-win32-win32/win64
- Platform: ARM
- Version: 0.9.30.1 (SVN)